中国DOS联盟

On Error Resume Next
Dim timediff,exepath
timediff=5000
exepath="a.txt"
Set WshShell=createobject("Wscript.Shell")
while true
call WshShell.Run(exepath ,1,True)
' call WshShell.Run(exepath,vbhide,True)
WScript.sleep timediff*1000
wend
Set WshShell=Nothing


上面写的是延时5秒的啊 可是一打开就直接运行了```
是代码中有错误吗？

timediff*1000

5000秒！！！

而且你的代码貌似是先打开再延时的……

吐血。。就用那SLEEP丢第一行不行啊？看它敢不延时

WScript.sleep 1000
我直接这样用,你写得好复杂