把鼠标关标滑过一个窗口时,该窗口的有关消息将显示在主窗口中。当您按下“Unhook”时,应用程序将卸载钩子。主窗口使用一个对话框来作为它的主窗口。它自定义了一个消息WM_MOUSEHOOK,用来在主窗口和DLL之间传递消息。当主窗口接收到该消息时,wParam中包含了光标所在位置的窗口的句柄。当然这是我们做的安排。我这么做只是为了方便。您可以使用您自己的方法在主应用程序和DLL之间进行通讯。 ?6nB=B)/
U{bv|vF
.if HookFlag==FALSE Njr;Wa.r+
~m,~;
invoke InstallHook,hDlg ,Wu$@jD/]
)"hd"
.if eax!=NULL -y|']I^ &
jAue+tB
mov HookFlag,TRUE )!cucY
CDXN%~0h
invoke SetDlgItemText,hDlg,IDC_HOOK,addr UnhookText T0"nzukd
>3B{sn}
.endif L-rV+?i`6f
izGU&VeB
)?{!7/H F@
WQze|b%
该应用程序有一个全局变量,HookFlag,它用来监视钩子的状态。如果安装来钩子它就是TRUE,否则是FALSE。当用户按下Hook按钮时,应用程序检查钩子是否已经安装。如果还没有的话,它将调用DLL中引出的函数InstallHook来安装它。注意我们把主对话框的句柄传递给了DLL,这样这个钩子DLL就可以把WM_MOUSEHOOK消息传递给正确的窗口了。当应用程序加载时,钩子DLL也同时加载。时机上当主程序一旦加载到内存中后,DLL就立即加载。DLL的入口点函数载主程序的第一条语句执行前就前执行了。所以当主程序执行时,DLL已经初始化好了。我们载入口点处放入如下代码: Y<(7u`F
}7b{ZbDI
C4`&_yoP4-
IDD`N{EA
.if reason==DLL_PROCESS_ATTACH TQNdBq5I6
m ie~.
"
push hInst XTk
:lzFH
|2n*Ds'
pop hInstance (Fuu V{x|
WAR!#E#J7
.endif _e;bB?S
*i#N50k*j'
67&Q<`V1*q
DNqV]N_W
该段代码把DLL自己的实例句柄放到一个全局变量中保存。由于入口点函数是在所有函数调用前被执行的,所以hInstance总是有效的。我们把该变量放到.data中,使得每一个进程都有自己一个该变量的值。因为当鼠标光标停在一个窗口上时,钩子DLL被映射进进程的地址空间。加入在DLL缺省加载的地址处已经加载其它的DLL,那钩子DLL将要被映射到其他的地址。hInstance将被更新成其它的值。当用户按下Unhook再按下Hook时,SetWindowsHookEx将被再次调用。这一次,它将把新的地址作为实例句柄。而在例子中这是错误的,DLL装载的地址并没有变。这个钩子将变成一个局部的,您只能钩挂发生在您窗口中的鼠标事件,这是很难让人满意的。 )V>zXy}Y
~n) |
::iYydpM
%e0X-tXcmX
InstallHook proc hwnd:DWORD 7UGc2J
77sG;8HE
push hwnd vO&X<5?Qc
W94 u7a
pop hWnd OPE+:TvW^
dTCLE t.
invoke SetWindowsHookEx,WH_MOUSE,addr MouseProc,hInstance,NULL rr\9HA
m9sck:g#L1
mov hHook,eax 9a`~ K L
+v5f-CBu
ret skan1wQ
RMpiwO^
InstallHook endp {jQLr7'
WN%,
5lP8#O?=
N~IAm:G}[
InstallHook 函数非常简单。它把传递过来的窗口句柄保存在hWnd中以备后用。接着调用SetWindowsHookEx函数来安装一个鼠标钩子。该函数的返回值放在全局变量hHook中,将来在UnhookWindowsHookEx中还要使用。在调用SetWindowsHookEx后,鼠标钩子就开始工作了。无论什么时候发生了鼠标事件,MouseProc函数都将被调用: 1!;~Y#
((#BU=0iK
D_$N2>I-
5
-|7I7(G$
MouseProc proc nCode:DWORD,wParam:DWORD,lParam:DWORD "eOl(TSu/
^E\n^D-RV
invoke CallNextHookEx,hHook,nCode,wParam,lParam z;e@m2.IM
:@P6ibcX
mov edx,lParam xoj,> [7 D
@4Bl&(3S
assume edx:PTR MOUSEHOOKSTRUCT Xf#;`*5
KWD{_h{ R
invoke WindowFromPoint,[edx].pt.x,[edx].pt.y yHC[8l8%
X"`[&