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

WScript.exe /T:1 test.vbs
复制代码

t=timer
do while timer-t<1
...........
loop
复制代码

id=setTimeOut("loopSub()",0)
setInterval("clearTimeOut(id)",1000)
复制代码

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

CDbl(WScript.Arguments(1))
复制代码

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

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

Const nTimeOut = +5  ' 超时时间(秒)
Dim dtStart, dtEnd
dtStart = Now()
dtEnd = DateAdd("s", nTimeOut, Now())
Do While DateDiff("s", Now(), dtEnd) > 0
	WScript.Sleep 200
	' Do Something ..
Loop
' Do Something ..
Msgbox DateDiff("s", dtStart, Now()) & " 秒过去鸟。不要嫌代码长长长 ..."
复制代码