Dim objIE
Set objIE = CreateObject("InternetExplorer.Application")
objIE.navigate("http://www.baidu.com/")
objIE.visible=1
Do
Loop Until objIE.ReadyState=4
objIE.Quit
Set objIE = Nothing
參考資料
================================================================================
Windows定時執行asp程式
from: http://www.9enjoy.com/post/232/
原來我是這麼做的，假設要運作的網址是：http://www.itlearner.com/task.asp
但在任務計劃中不能直接寫這個位址，隻能選擇本機的檔案。
于是我建立一個task.htm，這個檔案用js跳轉到要運作的頁面。然後在任務計劃中選擇task.htm，設定運作時間。
但在實際運作中，發現偶爾它會不執行：（
最近看到一段代碼，測試了一下挺有效，方法如下：
DIM IE
SET IE = CREATEOBJECT("INTERNETEXPLORER.APPLICATION")
IE.NAVIGATE("http://www.itlearner.com/task.asp")
IE.VISIBLE=1
'1為顯示IE視窗，0為不顯示
SET IE = NOTHING
存為task.vbs，然後在任務計劃中設定其運作時間，就可以了。
================================================================================
頁面下載下傳完自動關閉
from: http://www.9enjoy.com/post/258/
之前寫了一篇 Windows定時執行asp程式 ，但發現每次執行完後，IE視窗還留着。幾天下來，就一大堆視窗開在那裡了。就希望它能執行完後自動關閉。
看了下其代碼，
IE.NAVIGATE("http://www.itlearner.com/task.asp")
IE.VISIBLE=1
應該還有其它屬性。
搜尋加測試了一大段時間，懷疑有半個多小時，終于解決。原來想用查到的DocumentComplete屬性，但測試不支援。後來使用ReadyState有效，測試了幾種方法，實作了這個功能。以下是執行完畢自動關閉的代碼。
DIM IE
SET IE = CREATEOBJECT("INTERNETEXPLORER.APPLICATION")
IE.NAVIGATE("http://www.itlearner.com")
IE.VISIBLE=1
'1為顯示IE視窗，0為不顯示
Do
Loop Until IE.ReadyState=4
IE.Quit
SET IE = Nothing
轉載于:https://www.cnblogs.com/cole2295/archive/2009/07/11/1520930.html