[已解决]删除所有非@开头的注册表值，为什么不行？

smooth

For $i = 1 to 1000
    $var = RegEnumVal("HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache", $i)
    if @error <> 0 Then ExitLoop
        $result = StringLeft($var, 1)
        If Not ($result = "@") Then  RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache", $var)
next

谢谢

afan

没觉得不行…
只觉得 For $i = 1 to 1000 有点问题

smooth

搞定了：

For $k = 1 To 1000
    For $i = 1 to 1000
        $var = RegEnumVal("HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache", $i)
        if @error <> 0 Then ExitLoop
            $result = StringLeft($var, 1)
            If $result <> "@" Then RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache", $var)
        next
        $kz = RegEnumVal("HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache", $k)
        If $result = StringLeft($kz, 1) = "@" Then ExitLoop
Next
 

或者

 For $i = 1 to 1000
                $var = RegEnumVal("HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache", $i)
                if @error <> 0 Then ExitLoop
                $result = StringLeft($var, 1)
                If $result= "@" Then
                Else
                        RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache", $var)
                        $i=$i-1
                EndIf
        
        next