刷新网页的vbs

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