Vbscript 向等待Internet Explorer的过程添加超时

我在VBScript中调用此sub，它等待Internet Explorer完成加载，然后再转到下一行：

Sub Wait
   Do While objIE.ReadyState < 4 Or objIE.Busy
      WScript.Sleep 200
   Loop
End Sub

子等待
当objIE.ReadyState<4或objIE.Busy时执行
WScript.Sleep 200
环
端接头

这很好用。但是，偶尔出现Internet连接问题时，网页会在加载阶段卡住，因此脚本将继续等待

所以我的问题是：
我是否可以设置超时，以便在调用此sub时，它在退出脚本之前等待指定的时间，例如5分钟？

set oIE=CreateObject（“InternetExplorer.application”）

oIE.Visible=True
导航（“http://technopedia.com")
在oIE.Busy或oIE.ReadyState 4:WScript.Sleep 100:Loop时执行
>>
Do While oIE.ReadyState 4:WScript.Sleep 100:Loop

任何其他建议？？？

设置oIE=CreateObject（“InternetExplorer.application”）

oIE.Visible=True
导航（“http://technopedia.com")
在oIE.Busy或oIE.ReadyState 4:WScript.Sleep 100:Loop时执行
>>
Do While oIE.ReadyState 4:WScript.Sleep 100:Loop

---

任何其他建议？？？

您可以像这样为您的程序添加时间限制：

Sub Wait
   limit = DateAdd("n", 5, Now)
   Do While (objIE.ReadyState < 4 Or objIE.Busy) And Now < limit
      WScript.Sleep 200
   Loop
End Sub

子等待
限制=日期添加（“n”，5，现在）
执行While（objIE.ReadyState<4或objIE.Busy）和Now

您可以像这样为您的过程添加时间限制：

Sub Wait
   limit = DateAdd("n", 5, Now)
   Do While (objIE.ReadyState < 4 Or objIE.Busy) And Now < limit
      WScript.Sleep 200
   Loop
End Sub

子等待
限制=日期添加（“n”，5，现在）
执行While（objIE.ReadyState<4或objIE.Busy）和Now

您可以添加一个计时器变量，并在循环中检查设置的间隔。如果达到阈值，请中断循环并继续？与其等待某个修复持续时间，不如使用vbscript检查连接是否存在？这里是示例-您可以添加一个计时器变量并检查循环中设置的间隔。如果达到阈值，请中断循环并继续？与其等待某个修复持续时间，不如使用vbscript检查连接是否存在？这是考试-