1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| 'IErefresh.vbs
'Auto Refresh in Internet Explorer
'http://forums.moneysavingexpert.com/showthread.php?t=171901
option explicit
dim ie, url, refreshSeconds, i
url = InputBox("Enter web site URL (http:// optional)")
if url = "" then WScript.Quit
refreshSeconds = InputBox("Enter refresh interval in seconds",,60)
if IsEmpty(refreshSeconds) then WScript.Quit
set ie = WScript.CreateObject("InternetExplorer.Application", "ie_")
ie.Navigate url
ie.Visible = true
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 |
Partager