VBscript HTML应用程序中的等待函数

Question

我正在开发一个html页面，其中我使用vbscript作为脚本语言，即在html页面的头部部分的VBScript。我想在一些函数的执行中插入显式的等待。

在Excel宏中，Application.wait waitTime效果很好，但在html页面中，我无法实现我想要的效果。

有没有人可以推荐一些代码片段，帮助我插入一些等待，比如10秒？

Answer 1

您可以使用setTimeout()来延迟代码的执行。把你所有的vbscript代码放到一个子模块中，假设你把它叫做mySub，然后调用setTimeout

<script type="text/vbscript">
    Sub mySub
        'Your code goes here
        MsgBox "Executed after delay"
    End Sub

    window.setTimeout "mySub()", 10000, "VBScript"
</script>

注意，第二个参数是以毫秒为单位的延迟持续时间。

Answer 2

另一种解决方案，可以更“自然”地使用，但只有几秒钟的粒度：

<script type="text/vbscript">
Set sh = CreateObject("WScript.Shell")

Sub Sleep(seconds)
  sh.Run "%COMSPEC% /c ping -n " & seconds+1 & " 127.0.0.1", 0, True
End Sub

...
Sleep 10
...
</script>