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的管理工具——服務(wù)中啟動“計劃任務(wù)”服務(wù)。
在控制面板的“任務(wù)計劃”中，雙擊“添加任務(wù)計劃”。
點(diǎn)“下一步”。
點(diǎn)“瀏覽”，找到并選擇你保存的VBS文件。
選擇“每天”，點(diǎn)“下一步”。
點(diǎn)“下一步”。
輸入你當(dāng)前用戶的登陸密碼，點(diǎn)“下一步”。
點(diǎn)“完成”。
在任務(wù)計劃中找到你新建的計劃，雙擊它。
在“計劃”中點(diǎn)“高級”。
選中“顯示多項(xiàng)計劃”。
點(diǎn)“刪除”，再點(diǎn)“新建”。
將“開始時間”改為3：00，再點(diǎn)“新建”。
將“開始時間”改為8：50，再點(diǎn)“新建”。
將“開始時間”改為18：00，點(diǎn)“確定”。
計劃配置完了，最后在你定時執(zhí)行的程序的最后加上如下關(guān)閉窗口的代碼：
script language=javascript>
window.opener='';
window.close();
/script>