向Event Log中写入数据

tan4852445

某天突发奇想，决定考察一番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