VB编程中钩子的实现及应用

二、VB编程中钩子的实现

　　（一）钩子函数(HOOK Function)的格式。Hook Function实际上是一个函数，如果是系统钩子，该函数必须放在动态链接库中。该函数有一定的参数格式，在VB中如下:

Private Function HookFunc(ByVal nCode As Long，ByVal wParam As Long，ByVal lParam As Long)As Long

　　其中，nCode代表是什么情况之下所产生的钩子，随钩子的不同而有不同组的可能值；参数wParam，lParam传回值包括了所监视到的消息内容，它随Hook所监视消息的种类和nCode的值不同而不同。对于用VB所设置的钩子函数,一般的框架形式如下:

Private Function HookFunc(ByVal nCode As Long，ByVal wParam As Long，ByVal lParam As Long)As Long 　Select case of nCode 　　case ncode<0:hookfunc=callnexthookex(hHookFunc，nCode，wParam，lParam) 　　case值1:处理过程1:HookFunc=X1 　　case2:处理过程2:HookFunc=X1 　　…… 　end select end Function

　　函数的传回值，如果消息要被处理，则传0，否则传1，吃掉消息。

　　（二）钩子的安装及执行。钩子的安装要用到几个API函数:可以使用API函数SetWindowsHookEx()把一个应用程序定义的钩子子程安装到钩子链表中。SetWindowsHookEx()函数的声明如下:

Declare function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA"(ByVal idHook As Long，ByVal lpfn As Long，ByVal hmod As Long，ByVal dwThreadId As Long)As Long

　　idHook值为它处理的消息类型；lpfn值为钩子子程序的地址指针。如果dwThreadId参数为0或是一个由别的进程创建的线程的标识，lpfn必须指向DLL中的钩子子程。除此以外，lpfn可以指向当前进程的一段钩子子程代码。hMod值为应用程序的句柄，标识包含lpfn所指的子程的DLL。如果dwThreadId标识当前进程创建的一个线程，而且子程代码位于当前进程，hMod必须为0。dwThreadId值为与安装的钩子子程相关联的线程的标识符，如果为0，钩子子程与所有的线程关联。钩子安装成功则返回钩子子程的句柄，失败返回0。

　　另外，一般应在钩子子程中调用CallNextHookEx()函数以执行钩子链表所指的下一个钩子子程，否则安装了别的钩子的应用程序就会收不到钩子通知，从而产生错误的结果。CallNextHookEx()函数的声明如下:

Declare Function CallNextHookEx Lib"user32" Alias "CallNextHookEx"(ByVal hHook As Long，ByVal ncode As Lonog， ByVal wParam As Long，lParam As Any)As Long

　　hHook值是SetWindowsHookEx()的传回值，nCode、wParam、lParam则是Hook函数中的三个参数。在程序终止之前，必须调用UnhookWindowsHookEx()函数释放与钩子关联的系统资源。UnhookWindowsEx()函数声明如下:

Declare Function Unhook WindowsHookEx Lib "user32" Alias "Unhook WindowsHookEx(ByVal hHook As Long)As Long

　　hHook为安装钩子时的返回值，即钩子子程的句柄。

　　（三）VB中钩子安装应注意的问题。lpfn参数是一个HookFunc的地址,VB规定必须将HookFunc代码放到标准的.BAS模块中，并以"Address Of HookFunc"传入，而不可以将其放到类模块中，也不能将其附加到窗体上。而对于RemoteHook来说，HookFunc应包含在动态链接库中，因此如果在VB中使用RemoteHook，则还要用到GetModuleHandle()、GetProcAddress()两个API函数,它们的声明如下:

Declare Function GetModuleHandle Lib"kernel32" Alias "GetModuleHandleA"（ByVal lpModuleName As String）As Long Declare Function GetProcAddress Lib "kernel32" Alias "GetProcAddress"（ByVal hModule As Long，ByVal lpProcName As String）As Long

　　hmod值是含钩子过程的模块名柄，如果是LocalHook，该值可以是Null(VB中传0)，而如果是RemoteHook，则可以使用GetModuleHandle("名称.dll")来传入。