IE定期刷新網頁的VBS腳本

IE定期刷新網頁的VBS腳本
2011年01月02日
　　[b][b]IE[/b][/b][b][b]定期刷新網頁的[/b][b]VBS[/b][b]腳本 [/b]
　　[/b]On Error Resume Next
　　Set objExplorer = CreateObject("InternetExplorer.Application") objExplorer.Navigate "http://www.microsoft.com/technet/scriptcenter" objExplorer.Visible = 1 Wscript.Sleep 5000 Set objDoc = objExplorer.Document Do While True Wscript.Sleep 30000 objDoc.Location.Reload(True) If Err 0 Then Wscript.Quit End If Loop 這裏巧妙地利用腳本來啓動Internet Explorer，然後讓該腳本將命令傳遞給此瀏覽器。要實現此目的，首先添加On Error Resume Next 語句（以後將進行詳細介紹），然後創建一個InternetExplorer.Application 對象實例。使用Navigate 方法來打開所需的網頁（嘿，真巧：竟然是“腳本中心”主頁！），然後將Visible 屬性設置爲1。（這很重要嗎？如果我們真想看到Internet Explorer 實例，它確實很重要。）
　　接下來，使用Wscript.Sleep 將腳本暫停5 秒（5,000 毫秒）。這樣做是爲了確保在繼續之前完全加載了Internet Explorer；如果沒有完全加載Internet Explorer，那麼下一行代碼很可能會失敗，這意味着我們的腳本很可能會失敗。
　　順便說一句，下一行代碼將創建對Internet Explorer 文檔對象的對象引用。因爲要刷新網頁就不得不重新加載當前的Internet Explorer 文檔，所以必須這樣做。這正是Internet Explorer 對象模型的工作方式。
　　創建此對象引用之後，設置一個將會永遠運行的Do While 循環。（不用擔心，要停止該腳本很容易。）在該循環內，調用Sleep 方法並使腳本暫停30 秒（這是因爲我們決定每隔30 秒刷新一次網頁）。如果我們想每隔兩分鐘刷新一次網頁怎麼辦呢？沒問題，只要使用下面一行代碼就可以了，它會使腳本暫停120 秒（120,000 毫秒）。
　　Wscript.Sleep 120000
　　到30 秒後，調用Reload 方法來重新加載當前文檔。向Reload 傳遞一個參數 －True，它將通知Internet Explorer 從Web 服務器重新加載文檔。如果沒有此參數，Reload 就會從Internet Explorer 緩存重新加載文檔，這意味着我們將不能獲得最新和最全的網頁。
　　調用Reload 方法之後，檢查Err 對象的值。如果發生了錯誤（並且導致該錯誤的主要原因是有人關閉了瀏覽器窗口），只要終止腳本即可。如果沒有發生錯誤，則進入下一輪循環，等待30 秒，然後全部重新啓動。
　　是的，結束該腳本的簡便方法就是：關閉瀏覽器窗口。執行該操作後，腳本會在30 秒內終止。