Er
r
　　监视输入到消息队列中的鼠标消息r
r
　　6、WH_MOUSE_LLr
r
　　监视输入到线程消息队列中的鼠标消息r
r
　　四、钩子类型r
r
　　1线程钩子：监视指定线程的事件消息。r
r
　　2系统钩子：监视系统中的所有线程的事件消息。r
r
　　VB只能设定线程钩子，因为系统钩子会影响系统中所有的应用程序，所以钩子函数必须放在独立的动态链接库DLL中才能做到。r
r
　　五、VB建立钩子的方法步骤r
r
　　步骤1：挂钩r
r
　　挂钩是第一步，目的是1，告诉操作系统我要监听什么消息，2是告诉操作系统得到消息后调用什么回调函数。r
r
　　挂钩的方法：r
r
　　例如：r
r
r
　PrivateCo
stWH_MOUSE_LLAsLo
g14r
　　PrivatehHookAsLo
gr
　　r
　　hHookSetWi
dowsHookExWH_MOUSE_LLAddressOfHookProcApphI
sta
ce0r
r
r
　　第一个参数：告诉操作系统，我要挂的是一个鼠标监听钩子。r
r
　　第二个参数：告诉操作系统，我的回调函数是HookProc，AddressOf的作用是得到HookProc这个函数的地址。r
r
　　步骤二：回调函数的编写r
r
r
　PublicFu
ctio
HookProcByVal
CodeAsLo
gByValwParamAsLo
gByVallparamAsLo
gAsLo
gr
　　DimtypMHSAsMSLLHOOKSTRUCTptAsPOINTAPIr
　　IfwParamWM_MOUSEMOVEThe
r
　　CallCopyMemorytypMHSByVallparamLe
BtypMHSr
　　pttypMHSptr
　　IfPtI
RecthRTptxpty0The
r
　　HookProc1取消原本要完成的作r
　　Elser
　　Form1Captio