添加超時等待程序的Internet Explorer

我把這個子在我的VBScript，它等待的Internet Explorer移動到下一行之前完成加載：添加超時等待程序的Internet Explorer

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

工作正常。但是，偶爾當互聯網連接出現問題時，網頁將停留在加載階段，因此腳本將繼續等待。

所以我的問題是：
我可以設置超時時間，這樣，當我把這個子，等待指定的時間，例如5分鐘，在退出腳本之前？

來源

2016-01-19 huberu

您可以添加一個計時器var和檢查在循環設定的間隔。如果達到閾值，打破循環，繼續前進？ –

而不是等待一些修復時間爲什麼你不使用VBScript來檢查連接是否存在？這是exapmle -http：//www.visualbasicscript.com/VBScript-to-check-network-connection-m1700.aspx – Amol

你可以加一個期限到你的過程是這樣的：

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

來源

2016-01-19 13:58:16

集OIE =的CreateObject（「InternetExplorer.application」）

oIE.Visible = True 
    oIE.navigate ("http://technopedia.com") 



Do While oIE.Busy Or oIE.ReadyState <> 4: WScript.Sleep 100: Loop 


           <<<<<OR>>>>>> 

Do While oIE.ReadyState <> 4: WScript.Sleep 100: Loop

任何其他建議??

來源

2016-01-19 12:18:22 burhan

添加超時等待程序的Internet Explorer

回答

相關問題