CrLf

一秒后退出 vbs

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

超过一秒结束循环

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

网页的话，可以这样

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

CrLf

回复 3# 522235677


    你都 wscript.quit 了，当然不循环了

CrLf

回复 5# 522235677


    变量类型问题：

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

一般会自动转换，不懂这里为什么不会，没研究

CrLf

回复 7# 522235677


我这是正常的：
测试用 cscript test.vbs "任意一个不存在的标题" 5  引用内容为如下代码的 vbs

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

那要不分别试试其他的办法，比如 CInt(WScript.Arguments(1)) 强制int类型转换和 WScript.Arguments(1)/1 自动double类型转换