等待窗口(第2次)并按是

时间:2016-04-28 19:26:15

标签: vbscript

我正在运行以下脚本从我们的计算机中删除Novell Client:

On Error Resume Next

Set objShell = WScript.CreateObject("WScript.Shell")

objShell.Run "%SystemRoot%\System32\rundll32 ""C:\Program Files\Novell\Client\ncsetup.dll"" NWUninstallClient"
Do Until Success = True
    Success = objShell.AppActivate("Uninstall Novell Client for Windows")
    Wscript.Sleep 200
Loop
objShell.SendKeys "Yes"

这样做是启动卸载,当窗口打开时,按“是”进行卸载处理。卸载后,我得到另一个具有相同标题的窗口,卸载Novell Client for Windows,这要求我重新启动。我想在这里说“是”,但不知道如何添加它。

所以基本上运行上面的相同脚本但是在第一个"是"之后,等待"卸载Novell Client for Windows"再次击中"是"试。

这有意义吗?

编辑: 我可以这样做:

On Error Resume Next

Set objShell = WScript.CreateObject("WScript.Shell")

objShell.Run "%SystemRoot%\System32\rundll32 ""C:\Program Files\Novell\Client\ncsetup.dll"" NWUninstallClient"
Do Until Success = True
    Success = objShell.AppActivate("Uninstall Novell Client for Windows")
    Wscript.Sleep 200
Loop
objShell.SendKeys "Yes"
Do Until Success = True
    Success = objShell.AppActivate("Uninstall Novell Client for Windows")
    Wscript.Sleep 200
Loop
objShell.SendKeys "Yes"

那会有用吗?

0 个答案:

没有答案