刷新网页的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