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

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

在ExcelmacrosApplication.wait waitTime伟大工作，但在HTML页面我无法实现我想要的。

有人可以请build议任何代码片段，可以帮我插入一些等待说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

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

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