关于for循环删除注册表某项删除不干净只能删除部分项[已解决]

m765555

请教一下各位大大们：下面的脚本是删除注册表hkcu下run项右侧所有的启动项目，因个人工作需要，读取run所有启动并删除，保留ctfmon.exe。但本人这个脚本一次只能删除出部分，多建立几个启动项就无法删除，不知道原因在哪里，仔细好像没错呀。请指教下！

Local $sWow64 = ""
If @AutoItX64 Then $sWow64 = "\Wow6432Node"

;Local $mm = ""

For $i = 1 To 100
        $mm = RegEnumVal("HKEY_CURRENT_USER\Software" & $sWow64 & "\Microsoft\Windows\CurrentVersion\Run", $i)
        If @error <> 0 Then 
                ExitLoop
                MsgBox(0,"没有了","为空或读取失败!")
        EndIf
        
        MsgBox(0, "第" & $i & " 个值", "第" & $i & "个值是"& $mm)
        RegDelete("HKEY_CURRENT_USER\Software" & $sWow64 & "\Microsoft\Windows\CurrentVersion\Run",$mm)
Next

RegWrite("HKEY_CURRENT_USER\Software" & $sWow64 & "\Microsoft\Windows\CurrentVersion\Run","ctfmon.exe","REG_SZ","C:\\WINDOWS\\system32\\ctfmon.exe")

afan

For $i = 1 To 100 改为 For $i = 1 To 100 Step 0.1 试试

m765555

感谢，OK了，神！

49666684

必须支持一下，学习中

nmgwddj

回复 2# afan


    这是为什么？

bill.chen

#include <MsgBoxConstants.au3>
#RequireAdmin
For $n=2 To 10 Step 0.1
$enVal = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", $n)
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "$enVal")
Next
Exit(0)
可是我的这个代码 一个都删除不了，我的是WIN7 32位的系统，是管理员administrator支行的，是啥情况呢？请指点一下，多谢！

afan

#include
#RequireAdmin
For $n=2 To 10 Step 0.1
$enVal = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE ...
bill.chen 发表于 2016-4-25 13:30

    "$enVal"  去掉外围引号

afan

回复  afan


    这是为什么？
nmgwddj 发表于 2016-2-14 12:15

    具体原因不明，相当于延时吧~  Reg枚举一直都是这样

bill.chen

非常感谢各位 的帮助！