[问题求助] VBS怎样循环检测窗口并按下回车键？

522235677

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
复制代码

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

522235677

回复 2# yu2n

start "" 2345pack3_k204849_120010026_v3.2.exe

1.vbs 2345一键安装合集V3.2
复制代码

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

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

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

好奇怪的问题啊。

yu2n

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

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

Set objArgs = WScript.Arguments
Do While CreateObject("wscript.shell").Appactivate(objArgs(0)) = False
    WScript.Sleep 200
    If CreateObject("wscript.shell").Appactivate(objArgs(0)) = True Then
        createobject("wscript.shell").sendkeys "{enter}"
    End If
Loop
复制代码