Question

我正在开发一个html页面，其中我使用vbscript作为脚本语言，即html页面的head部分中的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>

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

2 个答案: