[问题求助] [已解决]vbs如何1分钟后跳出循环

522235677

do 
...........
loop
复制代码

该代码会无限循环，怎样能在循环开始后1分钟跳出循环

522235677

回复 2# CrLf

Dim objShell,ret,wshshell
set wshshell=createobject("wscript.shell") 
Set objShell = CreateObject("WSCript.Shell")

t=timer
do while timer-t<WScript.Arguments(1)
  ret = objShell.Appactivate(WScript.Arguments(0))
    If ret Then
    wshshell.sendkeys "{tab}"
    wscript.quit (10)
end if
loop
复制代码

我这样为什么没有效果，我第二个参数是10

522235677

回复 4# CrLf


    不是的，我的这个还是一直在循环，If ret Then 都没有达成，所有还没quit

522235677

回复 6# CrLf


    提示 变量使用了一个vbscript中不支持的automation 类型 CDbl

522235677

回复 8# CrLf


    是我写错了……