この記事と
この記事をベースに作成した。
Option Explicit
'InternetExplorerオブジェクトを作成。第2引数にイベントのプリフィックスを指定。
Dim objIE
Set objIE = WScript.CreateObject("InternetExplorer.Application", "IE_")
'VisibleプロパティをTrueにして可視状態にする
objIE.Visible = True
'Navigateメソッドで@ITのトップページにアクセス
objIE.Navigate "http://www.atmarkit.co.jp/index.html"
'無限ループを回す。
Do
WScript.Sleep 200
Loop
'This event is obsolete. Use the BeforeNavigate2 event instead.
Sub IE_BeforeNavigate(browser, url, flags, target, postdata, headers, cancel)
objLogFile.Write 1, "IE_BeforeNavigate"
End Sub
Sub IE_BeforeNavigate2(browser, url, flags, target, postdata, headers, cancel)
objLogFile.Write 1, "IE_BeforeNavigate2"
End Sub
Sub IE_CommandStateChange(Command ,Enable)
objLogFile.Write 1, "IE_CommandStateChange"
End Sub
Sub IE_DocumentComplete(browser, url)
objLogFile.Write 1, "IE_DocumentComplete"
End Sub
Sub IE_DownloadBegin()
objLogFile.Write 1, "IE_DownloadBegin"
End Sub
Sub IE_DownloadComplete()
objLogFile.Write 1, "IE_DownloadComplete"
End Sub
Sub IE_FileDownload(ActiveDocument, Cancel)
objLogFile.Write 1, "IE_FileDownload"
End Sub
'This event is obsolete. Use the NavigateComplete2 event instead.
Sub IE_NavigateComplete(browser, url)
objLogFile.Write 1, "IE_NavigateComplete"
End Sub
Sub IE_NavigateComplete2(browser, url)
objLogFile.Write 1, "IE_NavigateComplete2"
End Sub
Sub IE_NavigateError(browser, url, target, status, cancel)
objLogFile.Write 1, "IE_NavigateError"
End Sub
Sub IE_NewProcess(lCauseFlag, pWB2, Cancel)
objLogFile.Write 1, "IE_NewProcess"
End Sub
'This event is obsolete. Use the NewWindow2 event instead.
Sub IE_NewWindow(browser, Cancel)
objLogFile.Write 1, "IE_NewWindow"
End Sub
Sub IE_NewWindow2(browser, Cancel)
objLogFile.Write 1, "IE_NewWindow2"
End Sub
Sub IE_NewWindow3(browser, Cancel, dwFlags, bstrUrlContext, bstrUrl)
objLogFile.Write 1, "IE_NewWindow3"
End Sub
Sub IE_OnFullScreen(FullScreen)
objLogFile.Write 1, "IE_OnFullScreen"
End Sub
Sub IE_OnMenuBar(MenuBar)
objLogFile.Write 1, "IE_OnMenuBar"
End Sub
'OnQuitイベント
Sub IE_OnQuit()
objLogFile.Write 1, "Internet Explorerが閉じられました。"
'オブジェクトの破棄
Set objIE = Nothing
WScript.Quit() 'スクリプトの終了
End Sub
Sub IE_OnStatusBar(StatusBar)
objLogFile.Write 1, "IE_OnStatusBar"
End Sub
Sub IE_OnTheaterMode(TheaterMode)
objLogFile.Write 1, "IE_OnTheaterMode"
End Sub
Sub IE_OnToolBar(ToolBar)
objLogFile.Write 1, "IE_OnToolBar"
End Sub
Sub IE_OnVisible(vVisible)
objLogFile.Write 1, "IE_OnVisible"
End Sub
Sub IE_PrintTemplateInstantiation(browser)
objLogFile.Write 1, "IE_PrintTemplateInstantiation"
End Sub
Sub IE_PrintTemplateTeardown(browser)
objLogFile.Write 1, "IE_PrintTemplateTeardown"
End Sub
Sub IE_PrivacyImpactedStateChange(bPrivacyImpacted)
objLogFile.Write 1, "IE_PrivacyImpactedStateChange"
End Sub
Sub IE_ProgressChange(nProgress , nProgressMax)
objLogFile.Write 1, "IE_ProgressChange"
End Sub
Sub IE_PropertyChange(sProperty)
objLogFile.Write 1, "IE_PropertyChange"
End Sub
Sub IE_RedirectXDomainBlocked(browser, url, RedirectURL, Frame, StatusCode)
objLogFile.Write 1, "IE_RedirectXDomainBlocked"
End Sub
Sub IE_SetPhishingFilterStatus(PhishingFilterStatus)
objLogFile.Write 1, "IE_SetPhishingFilterStatus"
End Sub
Sub IE_SetSecureLockIcon(SecureLockIcon)
objLogFile.Write 1, "IE_SetSecureLockIcon"
End Sub
Sub IE_StatusTextChange(sText )
objLogFile.Write 1, "IE_StatusTextChange"
End Sub
Sub IE_ThirdPartyUrlBlocked(URL, dwCount)
objLogFile.Write 1, "IE_ThirdPartyUrlBlocked"
End Sub
Sub IE_TitleChange(sText)
objLogFile.Write 1, "IE_TitleChange"
End Sub
'Not implemented.
Sub IE_UpdatePageStatus()
objLogFile.Write 1, "IE_UpdatePageStatus"
End Sub
'Not implemented.
Sub IE_WindowActivate()
objLogFile.Write 1, "IE_WindowActivate"
End Sub
'Not implemented.
Sub IE_WindowMove()
objLogFile.Write 1, "IE_WindowMove"
End Sub
'Not implemented.
Sub IE_WindowResize()
objLogFile.Write 1, "IE_WindowResize"
End Sub
Sub IE_WindowStateChanged(dwFlags, dwValidFlagsMask)
objLogFile.Write 1, "IE_WindowStateChanged"
End Sub