html - 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>