イベントログのハンドルを開きます。
#Include <EventLog.au3>
_EventLog__Open($sServerName, $sSourceName)
パラメータ
$sServerName | イベントログを開くサーバーのUNC名。 空白の場合、操作はローカルコンピュータ上でおこなわれます。 |
$sSourceName | ログの名前 |
返し値
成功: | イベントログのハンドル |
失敗: | 0 |
注意
イベントログのハンドルを閉じるには_EventLog__Closeを使用してください
関連
_EventLog__Close, _EventLog__Clear, _EventLog__Read, _EventLog__Report
例
#include <GuiConstantsEx.au3>
#include <EventLog.au3>
Global $iMemo
_Main()
Func _Main()
Local $hEventLog, $hGUI
; GUI作成
$hGUI = GUICreate("EventLog", 400, 300)
$iMemo = GUICtrlCreateEdit("", 2, 2, 396, 300, 0)
GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
GUISetState()
$hEventLog = _EventLog__Open ("", "Application")
MemoWrite("Log full ........: " & _EventLog__Full ($hEventLog))
MemoWrite("Log record count : " & _EventLog__Count ($hEventLog))
MemoWrite("Log oldest record: " & _EventLog__Oldest ($hEventLog))
_EventLog__Close ($hEventLog)
; ユーザーが終了させるまでループ
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc ;==>_Main
; メモコントロールに1行書き込む
Func MemoWrite($sMessage)
GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc ;==>MemoWrite