钩子函数解析

打开VB新建一个项目，然后创建一个窗体和一个模块，此程序已调试过，但是要注意的是在写钩子函数的过程，请在每次RUN之前进行保存，这些API程序超越了VB的编译环境，因为VB环境和这些API函数同属系统级，因此它无法管理这些API，一旦出现问题，整个VB环境会在毫无预知的情况下造成全线崩溃的局面。

窗体中的代码：窗体中的程序：
Option Explicit
Private Const WH_KEYBOARD_LL = 13&
 
Private Sub cmdExit_Click()
End
End Sub
Public Sub HookKeyboard()
KeyboardHandle = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf KeyboardCallback, _
App.hInstance, 0&)
'WH_KEYBOARD_LL：拦截类型
'AddressOf KeyboardCallback:挂接函数链的首地址
'App.hInstance：程序本身的句柄
'0，表示全局拦截，意思就是拦截所有窗口下的键盘输入
End Sub