[読み込み時にタイトルを表示する]

ページが読み込まれるごとに、タイトルを表示します。

【ソースコード】

[tips0166.vbs]
Option Explicit
On Error Resume Next

' タイトル表示用の関数
Sub Test_TitleChange(ByVal strTitle)
    WScript.Echo "タイトルが " & strTitle & " に変更されました。"
End Sub

Dim objIE           ' IE オブジェクト

Set objIE = WScript.CreateObject("InternetExplorer.Application", "Test_")
If Err.Number = 0 Then
    objIE.GoHome
    objIE.Visible = True

    ' 無限ループ
    Do While True
        WScript.Sleep(1000)
    Loop
Else
    WScript.Echo "エラー：" & Err.Description
End If

【実行結果】

C:\> cscript //NoLogo tips0166.vbs
タイトルが http://www.google.co.jp/ に変更されました。
タイトルが Google に変更されました。
タイトルが http://www.yahoo.co.jp/ に変更されました。
タイトルが Yahoo! JAPAN に変更されました。