Interest.MP » 我的作品 » IE自动刷新脚本

IE自动刷新脚本

  现在很多的论坛提供在线时间转换论坛货币的功能噢,不过限制10分钟内要有活动的操作,汗,我总不能一直手动刷新吧,直接弄一个脚本来操作啦。

  这个脚本的功能就是自动在限定的时间内,自动刷新网站,其他的用法,恩,你可以自己想噢。。。应用范围还是够广的。

‘IErefresh.vbs

option explicit
dim ie, url, refreshSeconds, i

url = InputBox(“Enter web site URL (http:// optional)”,,”http://share.zcool.com.cn“)
if url = “” then WScript.Quit
refreshSeconds = InputBox(“输入刷新时间,单位为分钟”,,480)
if IsEmpty(refreshSeconds) then WScript.Quit
set ie = WScript.CreateObject(“InternetExplorer.Application”, “ie_”) ‘这个对象的用法,请参考 DevGuru
ie.Navigate url
ie.Visible = false ‘这个取值有true|false,代表运行时是否显示IE,现在的设置为不显示,就是后台运行,不影响你其他的操作哈

do until ie.ReadyState = 4 : WScript.Sleep 100 : loop
while true
 i = 0
 while i < CInt(refreshSeconds)
  WScript.Sleep 1000
  i = i + 1
 wend 
 ie.refresh2 3 ’3=REFRESH_COMPLETELY
wend

sub ie_onQuit
 WScript.Quit
end sub

标签: , , , , ,



评论关闭.