xor eax,eax
ret
mouseproc endp
installhook proc hwnd:dword
push hwnd
pop hwnd
invoke setwindowshookex,wh_mouse,addr mouseproc,hinstance,null
mov hhook,eax
ret
installhook endp
uninstallhook proc
invoke unhookwindowshookex,hhook
ret
uninstallhook endp
end dllentry
;---------------------------------------------- dll的makefile文件 ----------------------------------------------
name=mousehook
$(name).dll: $(name).obj
link /section:.bss,s /dll /def:$(name).def /subsystem:windows /libpath:c:\masm\lib $(name).obj
$(name).obj: $(name).asm
ml /c /coff /cp $(name).asm
分析:
该应用程序的主窗口中包括三个编辑控件，它们将分别显示当前鼠标光标所在位置的窗口类名、窗口句柄和窗口过程的地址。还有两个按钮：“hook”和“eixt”。当您按下hook时，应用程序将钩挂鼠标输入的事件消息，该按钮的文本将变成“unhook”。当您把鼠标关标滑过一个窗口时，该窗口的有关消息将显示在主窗口中。当您按下“unhook”时，应用程序将卸载钩子。 主窗口使用一个对话框来作为它的主窗口。它自定义了一个消息wm_mousehook，用来在主窗口和dll之间传递消息。当主窗口接收到该消息时，wparam中包含了光标所在位置的窗口的句柄。当然这是我们做的安排。我这么做只是为了方便。您可以使用您自己的方法在主应用程序和dll之间进行通讯。 .if hookflag==false
invoke installhook,hdlg
.if eax!=null
mov hookflag,true
invoke setdlgitemtext,hdlg,idc_hook,addr unhooktext
.endif
该应用程序有一个全局变量，hookflag，它用来监视钩子的状态。如果安装来钩子它就是true，否则是false。 当用户按下hook按钮时，应用程序检查钩子是否已经安装。如果还没有的话，它将调用dll中引出的函数installhook来安装它。注意我们把主对话框的句柄传递给了dll，这样这个钩子dll就可以把wm_mousehook消息传递给正确的窗口了。当应用程序加载时，钩子dll也同时加载。时机上当主程序一旦加载到内存中后，dll就立即加载。dll的入口点函数载主程序的第一条语句执行前就前执行了。所以当主程序执行时，dll已经初始化好了。我们载入口点处放入如下代码：
.if reason==dll_process_attach
push hinst
pop hinstance
.endif
该段代码把dll自己的实例句柄放到一个全局变量中保存。由于入口点函数是在所有函数调用前被执行的，所以hinstance总是有效的。我们把该变量放到.data中，使得每一个进程都有自己一个该变量的值。因为当鼠标光标停在一个窗口上时，钩子dll被映射进进程的地址空间。加入在dll缺省加载的地址处已经加载其它的dll，那钩子dll将要被映射到其他的地址。hinstance将被更新成其它的值。当用户按下unhook再按下hook时，setwindowshookex将被再次调用。这一次，它将把新的地址作为实例句柄。而在例子中这是错误的，dll装载的地址并没有变。这个钩子将变成一个局部的，您只能钩挂发生在您窗口中的鼠标事件，这是很难让人满意的 。
installhook proc hwnd:dword
push hwnd
pop hwnd
invoke setwindowshookex,wh_mouse,addr mouseproc,hinstance,null
mov hhook,eax
ret
installhook endp
installhook 函数非常简单。它把传递过来的窗口句柄保存在hwnd中以备后用。接着调用setwindowshookex函数来安装一个鼠标钩子。该函数的返回值放在全局变量hhook中，将来在unhookwindowshookex中还要使用。在调用setwindowshookex后，鼠标钩子就开始工作了。无论什么时候发生了鼠标事件，mouseproc函数都将被调用：
mouseproc proc ncode:dword,wparam:dword,lparam:dword
invoke callnexthookex,hhook,ncode,wparam,lparam
mov edx,lparam
assume edx:ptr mousehookstruct
invoke windowfrompoint,[edx].pt.x,[edx].pt.y
invoke postmessage,hwnd,wm_mousehook,eax,0
assume edx:nothing
xor eax,eax
ret
mouseproc endp
钩子函数首先调用callnexthookex函数让其它的钩子处理该鼠标事件。然后，调用windowfrompoint函数来得到给定屏幕坐标位置处的窗口句柄。注意：我们用lparam指向的mousehookstruct型结构体变量中的point成员变量作为当前的鼠标位置。在我们调用postmessage函数把wm_mousehook消息发送到主程序。您必须记住的一件事是：在钩子函数中不要使用sendmessage函数，它会引起死锁。mousehookstruct的定义如下：
mousehookstruct struct dword
pt point <>
hwnd dword ?
