1

我正在尝试通过 AutoIt 脚本从添加或删除程序中卸载程序。

*我不想通过删除注册表项来卸载。* 我不想通过运行卸载程序来卸载。

我可以通过 appwiz.cpl 命令打开“添加删除程序”

但是，我无法从列表中识别正确的程序名称并调用卸载。

我要做的就是从列表中识别我的程序，例如“Helloworld”并调用卸载。

4

2 回答 2

3

您可以遍历所有相应的注册表值，这些注册表值是由“添加或删除程序”中的卸载列表组成的......然后直接提取您要执行的命令。在此示例中，我将其显示在消息框中，但您可以直接将DisplayName与“Helloworld”进行比较，然后使用Run(...). 这与您调用的“添加或删除程序”完全相同。这并不意味着简单地删除注册表项。这并不意味着只运行“任何”卸载程序，而是正确的卸载程序，需要完全卸载这个程序，例如单击appwiz.cpl中的“卸载”按钮将调用。因此，要执行您所要求的结果，此解决方案可以正常工作。它并没有真正处理appwiz.cpl并循环浏览程序列表......

$uninstall_path1 = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Uninstall"
searchUninstallStrings($uninstall_path1)
$uninstall_path2 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
searchUninstallStrings($uninstall_path2)

Func searchUninstallStrings($uninstall_path)
    $i = 0
    While True
        $i += 1
        Local $entry = RegEnumKey($uninstall_path, $i)
        If @error <> 0 Then ExitLoop
        $regPath = $uninstall_path & "\" & $entry
        $DisplayName = RegRead($regPath, "DisplayName")
        If $DisplayName <> "" Then
            $message = $DisplayName & @CR
            $UninstallString = RegRead($regPath, "UninstallString")
            If $UninstallString <> "" Then
                $message &= "Uninstall: '" & $UninstallString & "'"
                MsgBox(4096, "SubKey #" & $i & ": " & $entry, $message)
            EndIf
        EndIf
    WEnd
EndFunc

祝你好运！

于 2013-06-10T10:06:36.617 回答
1

我能够使用以下命令成功地自动卸载程序，以打开程序和功能控制面板菜单，然后按一系列按键：

Run("C:\Windows\System32\control.exe appwiz.cpl")
WinWait("Programs and Features")
WinActivate("Programs and Features")
Send("ProgramNameHere")
Send("{Enter}")
于 2014-08-13T14:36:33.193 回答