Dim IE
Set IE = CreateObject("InternetExplorer.Application")
ie.navigate("http://1.0.0.8/a.asp")
ie.visible=1
Set IE = Nothing
存儲成一個vbs后綴的文件，比如test.vbs。
在windows的管理工具――服務中啟動“計劃任務”服務。
在控制面板的“任務計劃”中，雙擊“添加任務計劃”。
點“下一步”。
點“瀏覽”，找到并選擇你保存的VBS文件。
選擇“每天”，點“下一步”。
點“下一步”。
輸入你當前用戶的登陸密碼，點“下一步”。
點“完成”。
在任務計劃中找到你新建的計劃，雙擊它。
在“計劃”中點“高級”。
選中“顯示多項計劃”。
點“刪除”，再點“新建”。
將“開始時間”改為3：00，再點“新建”。
將“開始時間”改為8：50，再點“新建”。
將“開始時間”改為18：00，點“確定”。
計劃配置完了，最后在你定時執行的程序的最后加上如下關閉窗口的代碼：
<script language=javascript>
window.opener='';
window.close();
</script>