定期的にブラウザを更新するスクリプト

お仕事で、特定のURLに定期的なアクセスを繰り返す必要があったのでざっくりVBSで。
といっても有難いサンプルがあったのでちょっとだけ改良した版です。

参考：定期的に画面を更新する - whitire Company!
http://www.whitire.com/vbs/tips0157.html

こちらでは無限ループだったところを、
URLはもちろんとして、実行時間と更新間隔を設定できるようにしました。
「○○というURLに、○分間、○分ごとにアクセスする」
という感じです。
IEで問題なかったので参考元のままIEにしていますが、
他のブラウザなら書き方など変わってくるかと思います。

どっかのブラウザには確かそういう機能ありましたね。プラグインかもしれませんが。

Option Explicit
On Error Resume Next

Dim strUrl     ' 表示するページ
Dim objIE      ' IE オブジェクト
Dim i          ' カウンタ変数
Dim time       ' 実行時間(分)
Dim interval   ' 何分ごとに更新したいか

' --------------------------
' 設定
' --------------------------
strUrl = "http://www.google.com"
time = 5
interval = 1
' --------------------------

Set objIE = WScript.CreateObject("InternetExplorer.Application")
If Err.Number = 0 Then
    objIE.Navigate strUrl
    objIE.Visible = True
    
    MsgBox ("開始します")
    For i = 1 To (time / interval)
        ' 停止
        WScript.Sleep(1000 * 60 * interval)
        objIE.Refresh
    Next
    MsgBox ("終了します")
    
Else
    WScript.Echo "エラー：" & Err.Description
End If
Set objIE = Nothing