VBS怎样循环检测窗口并按下回车键？

522235677

1. Set objArgs = WScript.Arguments
   
2. Do While CLng(Timer) < Timer + 10000
   
3.         If CreateObject("wscript.shell").Appactivate(objArgs(0)) = True Then
   
4.                 createobject("wscript.shell").sendkeys "{enter}"
   
5.                 Exit Do
   
6.         End If
   
7. Loop

复制代码

这个是自动检测标题的，检测到这窗口后激活并按下回车键。
现在有个问题就是这样的，
按下回车键后，然后再次检测这个窗口还是否存在，不存在的话就退出。
如果还是存在的话就继续激活并按回车键。这样一直循环，直到检测到这个窗口不存在了为止。

yu2n

这个是自动检测标题的，检测到这窗口后激活并按下回车键。
现在有个问题就是这样的，
按下回车键后，然后 ...
522235677 发表于 2013-4-18 19:53

试试以下代码，Win7 x64已测试。

1. Set objArgs = WScript.Arguments
   
2. Do While CreateObject("wscript.shell").Appactivate(objArgs(0)) = False
   
3.     WScript.Sleep 200
   
4.     If CreateObject("wscript.shell").Appactivate(objArgs(0)) = True Then
   
5.         createobject("wscript.shell").sendkeys "{enter}"
   
6.     End If
   
7. Loop

复制代码

522235677

回复 2# yu2n

1. start "" 2345pack3_k204849_120010026_v3.2.exe
   
2. 
   
3. 1.vbs 2345一键安装合集V3.2
   

复制代码

看这个用bat来调用的，这个可以激活窗口，但是没有按下回车键。

然后我直接运行cmd，把vbs 拖到窗口，然后空格，在输入”2345一键安装合集V3.2“。

这个可以的，但是测试几次后也不行了。也是只激活窗口不按回车键。

好奇怪的问题啊。