论坛 › 已解决问题区 › 怎么一次性总删不完这键下包含的关键字呢？{解决了}

bhffhzh 发表于 2015-5-12 17:48:57

怎么一次性总删不完这键下包含的关键字呢？{解决了}

本帖最后由 bhffhzh 于 2015-5-14 08:06 编辑


#include <MsgBoxConstants.au3>
Local $sVar = ""
For $i = 1 To 5000
        $sVar = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\SharedDLLs", $i)
        If @error <> 0 Then ExitLoop
        If StringInStr($sVar, "Microsoft SQL Server") Then
                RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\SharedDLLs", $sVar)
                Sleep(1000)
        EndIf
Next比如这键下有10个包含这关键字的键，执行一次总还剩下3、5个。

vigiles 发表于 2015-5-13 09:04:22

用递归的方法试试

bhffhzh 发表于 2015-5-14 08:06:27

另类办法解决了。外套一个。

For $a = 1 To 15
Next

查看完整版本: 怎么一次性总删不完这键下包含的关键字呢？{解决了}