[定期的に画面を更新する]

株価情報(http://quote.yahoo.co.jp/)を1分おきに再表示します。
無限ループしていますので、Ctrl+C で終了してください。

【ソースコード】
[tips0157.vbs]
Option Explicit
On Error Resume Next

Dim strUrl      ' 表示するページ
Dim objIE       ' IE オブジェクト

strUrl = "http://quote.yahoo.co.jp/"
Set objIE = WScript.CreateObject("InternetExplorer.Application")
If Err.Number = 0 Then
    objIE.Navigate strUrl
    objIE.Visible = True

    Do While True
        ' 1分停止
        WScript.Sleep(1000 * 60)
        objIE.Refresh
    Loop
Else
    WScript.Echo "エラー:" & Err.Description
End If
Set objIE = Nothing