- Set objArgs = WScript.Arguments
- Do While CLng(Timer) < Timer + 10000
- If CreateObject("wscript.shell").Appactivate(objArgs(0)) = True Then
- createobject("wscript.shell").sendkeys "{enter}"
- Exit Do
- End If
- Loop
复制代码 这个是自动检测标题的,检测到这窗口后激活并按下回车键。
现在有个问题就是这样的,
按下回车键后,然后再次检测这个窗口还是否存在,不存在的话就退出。
如果还是存在的话就继续激活并按回车键。这样一直循环,直到检测到这个窗口不存在了为止。 |