以 XP SP3 系统运行 CleanZ.exe(清理武器)为例,固定流程如下:
启动 CleanZ → 回车【扫描】开始 → 扫描完成后回车【确定】确认清理 → 回车【确定】关闭清理完成弹窗 → 确认主界面【退出】程序。
主界面和两次弹窗标题均为“清理武器”。
CleanZ.exe(清理武器)程序网盘无密码下载链接: https://wx.mail.qq.com/s?k=nLT5nFRidAgQruzWtb
现有 VBS如下:
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "CleanZ.exe"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}" '开始扫描
While WshShell.AppActivate("清理武器")=False:WScript.Sleep 200:Wend
WshShell.SendKeys "{ENTER}"'确认清理
WScript.Sleep 200
WshShell.SendKeys "{ENTER}" '确认清理完毕
WScript.Sleep 1500
WshShell.Run "taskkill /f /im CleanZ.exe",0 '关闭窗口
WScript.Sleep 200
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("ComputerZ.set") Then fso.DeleteFile "ComputerZ.set", True
WScript.Quit
因扫描时长、清理时长不固定,无法按实际弹窗时机精准触发按键,容易造成扫描或清理不完全。
望网友赐教适配 Windows XP 的完善写法,为盼! |