IE定期刷新网页的VBS脚本

IE定期刷新网页的VBS脚本
2011年01月02日
　　[b]IE[/b][b]定期刷新网页的VBS脚本
　　[/b]On Error Resume Next
　　Set objExplorer = CreateObject("InternetExplorer.Application") objExplorer.Navigate "http://www.microsoft.com/technet/scriptcenter"   objExplorer.Visible = 1 Wscript.Sleep 5000 Set objDoc = objExplorer.Document Do While True     Wscript.Sleep 30000     objDoc.Location.Reload(True)     If Err  0 Then         Wscript.Quit     End If Loop  这里巧妙地利用脚本来启动Internet Explorer，然后让该脚本将命令传递给此浏览器。要实现此目的，首先添加On Error Resume Next 语句（以后将进行详细介绍），然后创建一个InternetExplorer.Application 对象实例。使用Navigate 方法来打开所需的网页（嘿，真巧：竟然是“脚本中心”主页！），然后将Visible 属性设置为1。（这很重要吗？如果我们真想看到Internet Explorer 实例，它确实很重要。）
　　接下来，使用Wscript.Sleep 将脚本暂停5 秒（5,000 毫秒）。这样做是为了确保在继续之前完全加载了Internet Explorer；如果没有完全加载Internet Explorer，那么下一行代码很可能会失败，这意味着我们的脚本很可能会失败。
　　顺便说一句，下一行代码将创建对Internet Explorer 文档对象的对象引用。因为要刷新网页就不得不重新加载当前的Internet Explorer 文档，所以必须这样做。这正是Internet Explorer 对象模型的工作方式。
　　创建此对象引用之后，设置一个将会永远运行的Do While 循环。（不用担心，要停止该脚本很容易。）在该循环内，调用Sleep 方法并使脚本暂停30 秒（这是因为我们决定每隔30 秒刷新一次网页）。如果我们想每隔两分钟刷新一次网页怎么办呢？没问题，只要使用下面一行代码就可以了，它会使脚本暂停120 秒（120,000 毫秒）。
　　Wscript.Sleep 120000
　　到30 秒后，调用Reload 方法来重新加载当前文档。向Reload 传递一个参数 －True，它将通知Internet Explorer 从Web 服务器重新加载文档。如果没有此参数，Reload 就会从Internet Explorer 缓存重新加载文档，这意味着我们将不能获得最新和最全的网页。
　　调用Reload 方法之后，检查Err 对象的值。如果发生了错误（并且导致该错误的主要原因是有人关闭了浏览器窗口），只要终止脚本即可。如果没有发生错误，则进入下一轮循环，等待30 秒，然后全部重新启动。
　　是的，结束该脚本的简便方法就是：关闭浏览器窗口。执行该操作后，脚本会在30 秒内终止。