复制代码 代码如下:
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>