原版的_EventLog__Read返回只能返回一条记录？
本帖最后由 leon460 于 2011-7-13 15:27 编辑原版的_EventLog__Read返回只能返回一条记录？想做成返回所有的记录存于数组的形式，可惜啊，自己能力不够，有会的人 顶下哇
或者指定返回的项目也可以
如下图，可以返回所有的EVENT ID为52236并存于一个数组中吗？
多谢，多谢。#include <GuiConstantsEx.au3>
#include <EventLog.au3>
Global $iMemo
$ttt=1
_Main()
MsgBox(0,"",$ttt)
Func _Main()
Local $hEventLog, $aEvent
; Create GUI
GUICreate("EventLog", 400, 300)
$iMemo = GUICtrlCreateEdit("", 2, 2, 396, 300, 0)
GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
GUISetState()
; Read most current event record
;$hEventLog = _EventLog__Open("", "Application")
;$aEvent = _EventLog__Read($hEventLog, True, False) ; read last event
$hEventLog = _EventLog__Open("", "System")
;$aEvent = _EventLog__Read($hEventLog)
$aEvent = _EventLog__Read($hEventLog, True, False)
If $aEvent=7036 Then
$ttt+=$ttt
EndIf
MemoWrite("Result ............: " & $aEvent)
MemoWrite("Record number .....: " & $aEvent)
MemoWrite("Submitted .........: " & $aEvent & " " & $aEvent)
MemoWrite("Generated .........: " & $aEvent & " " & $aEvent)
MemoWrite("Event ID ..........: " & $aEvent)
MemoWrite("Type ..............: " & $aEvent)
MemoWrite("Category ..........: " & $aEvent)
MemoWrite("Source ............: " & $aEvent)
MemoWrite("Computer ..........: " & $aEvent)
MemoWrite("Username ..........: " & $aEvent)
MemoWrite("Description .......: " & $aEvent)
_EventLog__Close($hEventLog)
; Loop until user exits
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc ;==>_Main
; Write a line to the memo control
Func MemoWrite($sMessage)
GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc ;==>MemoWrite
自己顶下,呵呵,希望有人解答------ 再次顶顶，要沉了 宁死不屈，再次顶
页:
[1]