发表新帖
发表新帖

How to set delay in vbscript

前端 未结
关注
11 1398
鱼传尺愫
鱼传尺愫 2020-12-03 09:35

How to set delay in vbscript?

WScript.Sleep(100) does not work on Windows XP, Vista.

相关标签:
11条回答
  • 眼角桃花
    2020-12-03 09:55

    Here's another alternative:

    Sub subSleep(strSeconds) ' subSleep(2)
    Dim objShell
    Dim strCmd
    set objShell = CreateObject("wscript.Shell")
    'objShell.Run cmdline,1,False

    strCmd = "%COMSPEC% /c ping -n " & strSeconds & " 127.0.0.1>nul"     
    objShell.Run strCmd,0,1 
End Sub
    0 讨论(0)
  • 青春惊慌失措
    2020-12-03 09:55

    As stated in this answer:

    Application.Wait (Now + TimeValue("0:00:01"))

    will wait for 1 second

    0 讨论(0)
  • 挽巷
    2020-12-03 09:56

    A lot of the answers here assume that you're running your VBScript in the Windows Scripting Host (usually wscript.exe or cscript.exe). If you're getting errors like 'Variable is undefined: "WScript"' then you're probably not.

    The WScript object is only available if you're running under the Windows Scripting Host, if you're running under another script host, such as Internet Explorer's (and you might be without realising it if you're in something like an HTA) it's not automatically available.

    Microsoft's Hey, Scripting Guy! Blog has an article that goes into just this topic How Can I Temporarily Pause a Script in an HTA? in which they use a VBScript setTimeout to create a timer to simulate a Sleep without needing to use CPU hogging loops, etc.

    The code used is this:

    <script language = "VBScript">

    Dim dtmStartTime

    Sub Test
        dtmStartTime = Now 
        idTimer = window.setTimeout("PausedSection", 5000, "VBScript")
    End Sub

    Sub PausedSection
        Msgbox dtmStartTime & vbCrLf & Now
        window.clearTimeout(idTimer)
    End Sub

</script>

<body>
    <input id=runbutton  type="button" value="Run Button" onClick="Test">
</body>

    See the linked blog post for the full explanation, but essentially when the button is clicked it creates a timer that fires 5,000 milliseconds from now, and when it fires runs the VBScript sub-routine called "PausedSection" which clears the timer, and runs whatever code you want it to.

    0 讨论(0)
  • 渐次进展
    2020-12-03 09:57

    Time of Sleep Function is in milliseconds (ms)

    if you want 3 minutes, thats the way to do it:

    WScript.Sleep(1000 * 60 * 3)
    0 讨论(0)
  • 深忆病人
    2020-12-03 09:58

    better use timer:

    Sub wait (sec)
    dim temp
    temp=timer
    do while timer-temp<sec
    loop
end Sub
    0 讨论(0)
  • 后悔当初
    2020-12-03 09:59

    if it is VBScript, it should be 

    WScript.Sleep 100

    If it is JavaScript 

    WScript.Sleep(100);

    Time in milliseconds. WScript.Sleep 1000 results in a 1 second sleep.

    0 讨论(0)
 看不清?
提交回复
热议问题