'IErefresh.vbs

option explicit
dim ie, url, refreshSeconds, i

url = InputBox("Enter web site URL (http:// optional)",,"你要的刷新页面")
if url = "" then WScript.Quit
refreshSeconds = InputBox("输入刷新时间,单位为分钟",,480)
if IsEmpty(refreshSeconds) then WScript.Quit
set ie = WScript.CreateObject("InternetExplorer.Application", "ie_")
ie.Navigate url
'ie.Visible = true
ie.Visible = false
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

将以上的代码保存为vbs文件，知道干什么的了吧

[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课