向Event Log中写入数据
某天突发奇想，决定考察一番Windows XP的Event Log。网上这方面的资料很少，汇编语言的资料几乎就是空白。本文对Event Log只是浅尝辄止，希望本文对有这方便需求的朋友有所帮助。
基于 Windows XP 的计算机将事件记录在以下三种日志中：
1. 应用程序日志
应用程序日志包含由程序记录的事件。例如，数据库程序可能在应用程序日志中记录文件错误。写入到应用程序
日志中的事件是由软件程序开发人员确定的。
2. 安全日志
安全日志记录有效和无效的登录尝试等事件，以及与资源使用有关的事件（如创建、打开或删除文件）。例如，
在启用登录审核的情况下，每当用户尝试登录到计算机上时，都会在安全日志中记录一个事件。您必须以 Administrator
或 Administrators 组成员的身份登录，才能打开、使用安全日志以及指定将哪些事件记录在安全日志中。
3. 系统日志
系统日志包含 Windows XP 系统组件所记录的事件。例如，如果在启动过程中未能加载某个驱动程序，则会在
系统日志中记录一个事件。Windows XP 预先确定由系统组件记录的事件。
本文，我们专注于第一类应用程序日志，介绍如何写入一条EventLog。Windows使用ReportEvent 报告应用程序消息，
下面就对这个函数做点简单的介绍。
HANDLE hEventLog,// RegisterEventSource返回的handle
WORD wType,// 要记录的事件类型
WORD wCategory,// 事件种类
DWORD dwEventID,// 事件标示
PSID lpUserSid,// 用户安全标示（可选）
WORD wNumStrings,// 消息的字符串数
DWORD dwDataSize,// 以字节为单位的二进制数据的大小
LPCTSTR *lpStrings,// 消息本身
LPVOID lpRawData // 二进制数据
);
Parameters
hEventLog
事件标志。这个是 RegisterEventSource 返回的handle.
wType
事件的类型。可以是如下中的一个：
Value Meaning
EVENTLOG_ERROR_TYPE Error event
EVENTLOG_WARNING_TYPE Warning event
EVENTLOG_INFORMATION_TYPE Information event
EVENTLOG_AUDIT_SUCCESS Success Audit event
EVENTLOG_AUDIT_FAILURE Failure Audit event
wCategory
指出消息种类。这个地方是由源自己定义的，可以是任何值。
dwEventID
事件标识。根据我的理解，这里的标识在使用时，会又源解释为具体的含义。比如：2001表示文件打开错误等等。
因此，要想设定完整的Event Log还需要在系统中注册一个解释的服务程序。示例程序并没有设计这个服务，
读者可以参考另外的那个VB程序。
lpUserSid
指向用户安全标示。当不需要安全标示时，该参数可以为NULL.
wNumStrings
给定lpStrings 指向的数组中字符串组的数量。0表示当前没有字符串组。
dwDataSize
给出将写入Evenet Log的数据的大小，以字节为单位。如果这个参数为0，表示当前没有事件数据。
lpStrings
指向一个缓冲区，其中是一个以0为结尾的字符串数组，这个数组将会添加到消息中。即使dwDataSize 参数为0，
这个参数也必须是有效的指针（或者为NULL）。数组中每个字符串最大为32K 字节。
lpRawData
指向包含二进制数据的缓冲区。即使dwDataSize 参数为0，该项也必须是一个有效的指针（或者为NULL）.
Return Values
如果执行成功，返回非零值，表示事件入口已经写入日志。
如果执行不成功，返回0.
通过上面这个简单的API，我们就可以实现写入Event Log的功能：
;MASMPlus 代码模板 - 普通的 Windows 程序代码
.386
.Model Flat, StdCall
Option Casemap :None
Include windows.inc
Include user32.inc
Include kernel32.inc
Include gdi32.inc
Include advapi32.inc
includelib gdi32.lib
IncludeLib user32.lib
IncludeLib kernel32.lib
IncludeLib advapi32.lib
include macro.asm
WinMain PROTO :DWORD,:DWORD,:DWORD,:DWORD
WndProc PROTO :DWORD,:DWORD,:DWORD,:DWORD
.DATA
szClassName db "MASMPlus_Class",0
.DATA?
hInstancedd ?
.CODE
START:
invoke GetModuleHandle,NULL
mov hInstance,eax
invoke WinMain,hInstance,NULL,NULL,SW_SHOWDEFAULT
invoke ExitProcess,0
WinMain proc hInst:DWORD,hPrevInst:DWORD,CmdLine:DWORD,CmdShow:DWORD
LOCAL wc :WNDCLASSEX
LOCAL msg :MSG
local hWnd :HWND
mov wc.cbSize,sizeof WNDCLASSEX
mov wc.style,CS_HREDRAW or CS_VREDRAW or CS_BYTEALIGNWINDOW
mov wc.lpfnWndProc,offset WndProc
mov wc.cbClsExtra,NULL
mov wc.cbWndExtra,NULL
push hInst
pop wc.hInstance
mov wc.hbrBackground,COLOR_BTNFACE+1
mov wc.lpszMenuName,NULL
mov wc.lpszClassName,offset szClassName
invoke LoadIcon,hInst,100
mov wc.hIcon,eax
invoke LoadCursor,NULL,IDC_ARROW
mov wc.hCursor,eax
mov wc.hIconSm,0
invoke RegisterClassEx, ADDR wc
invoke CreateWindowEx,NULL,ADDR szClassName,CTXT("http://www.aogosoft.com"),WS_OVERLAPPEDWINDOW,200,200,400,200,NULL,NULL,hInst,NULL
mov hWnd,eax
invoke ShowWindow,hWnd,SW_SHOWNORMAL
invoke UpdateWindow,hWnd
StartLoop:
invoke GetMessage,ADDR msg,NULL,0,0
cmp eax, 0
je ExitLoop
invoke TranslateMessage, ADDR msg
invoke DispatchMessage, ADDR msg
jmp StartLoop
ExitLoop:
mov eax,msg.wParam
ret
WinMain endp
WndProc proc hWin:DWORD,uMsg:DWORD,wParam :DWORD,lParam :DWORD
LOCALhEventLog:DWORD
.if uMsg==WM_CREATE
invoke RegisterEventSource,NULL,CTXT("VBRuntime") ;错误类型，我们借用 VBRuntime
movhEventLog,eax
invoke ReportEvent,hEventLog,EVENTLOG_WARNING_TYPE,1003,0,NULL,0,9,NULL,CTXT('Hello Ken')
; 警告类型 随便给的ID 9个字节长度的字符串
.if eax==0
invoke MessageBox,hWin,CTXT("Fail"),NULL,MB_APPLMODAL
.endif
invoke DeregisterEventSource,hEventLog
.elseif uMsg == WM_DESTROY
invoke PostQuitMessage,NULL
.else
invoke DefWindowProc,hWin,uMsg,wParam,lParam
.endif
ret
WndProc endp
END START
页:
[1]