如何通过autoit自动卸载程序

Question

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

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

我可以用appwiz打开"添加删除程序"。cpl命令

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

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

Answer 1

你可以在你的"添加或删除程序"的卸载列表中循环所有相应的注册表值…然后直接提取要执行的命令。在本例中，我将其显示在消息框中，但是您可以直接将DisplayName与"Helloworld"进行比较，然后使用Run(...)执行UninstallString。这与您的"添加或删除程序"将调用的完全相同。这并不意味着简单地删除注册表项。这并不意味着只是运行"任何"卸载程序，而是正确的卸载程序，需要准确卸载这个程序，就像点击appwiz中的"卸载"按钮一样。Cpl 将调用。因此，要执行您所要求的结果，此解决方案工作得很好。它实际上并不处理appwiz。Cpl 并循环遍历程序列表…

$uninstall_path1 = "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionUninstall"
searchUninstallStrings($uninstall_path1)
$uninstall_path2 = "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionUninstall"
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

祝你好运!

Answer 2

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

Run("C:WindowsSystem32control.exe appwiz.cpl")
WinWait("Programs and Features")
WinActivate("Programs and Features")
Send("ProgramNameHere")
Send("{Enter}")