VB实现全局钩子

这是我写的一个小程序。我的目的：是在启动我的程序后，我在启动其他的程序，比如打开记事本，我在记事本里输入字母A同时我也希望通过A键来触发我编写的那个程序的按钮事件。我再网上查的说需要安装全局钩子来时截取键盘信息。来实现这个功能。但是我一直做不出来，希望各位答谢给看一下。如果给写个例子就再好不过了，在这先谢谢了

呵呵，实现了，用VB就是累人……
Form窗口代码：

1. 
   
2. Private Sub Command1_Click()
   
3. Label1.Caption = "全局钩子测试"
   
4. End Sub
   
5. Private Sub Form_Load()
   
6. hHook = SetWindowsHookEx(13, AddressOf MyKBHook, App.hInstance, 0) '全局
   
7. 'hHook = SetWindowsHookEx(2, AddressOf MyKBHook, 0, App.ThreadID)  '局部
   
8. End Sub
   
9. Private Sub Form_Unload(Cancel As Integer)
   
10. Dim ret As Long
    
11.     ret = UnhookWindowsHookEx(hHook)
    
12. End Sub
    

复制代码

模块代码：

1. 
   
2. Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _
   
3.        (ByVal idHook As Long, _
   
4.         ByVal lpfn As Long, _
   
5.         ByVal hmod As Long, _
   
6.         ByVal dwThreadId As Long) As Long
   
7. Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
   
8. Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
   
9. Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
   
10. Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    
11. Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    
12. Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
    
13. Public Const vbKeyA = 65
    
14. Public hHook As Long
    
15. Public Const BM_CLICK = &HF5
    
16. Public Type RECT
    
17.         Left As Long
    
18.         Top As Long
    
19.         Right As Long
    
20.         Bottom As Long
    
21. End Type
    
22. 
    
23. Public Function MyKBHook(ByVal ncode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    
24. Dim msg As Long
    
25. Dim lpRect As RECT
    
26. Dim x As Long, y As Long
    
27. If ncode = 0 Then
    
28.     'If wParam = vbKeyA Then
    
29.     If GetKeyState(vbKeyA) And &H8000 Then
    
30.         GetWindowRect Form1.Command1.hwnd, lpRect
    
31.         x = lpRect.Left: y = lpRect.Top
    
32.         PostMessage Form1.Command1.hwnd, BM_CLICK, 0, y / 15 * 65536 + x
    
33.         Sleep (100)
    
34.         PostMessage Form1.Command1.hwnd, BM_CLICK, 0, y / 15 * 65536 + x
    
35.     End If
    
36. End If
    
37. If ncode <> 0 Then
    
38. Call CallNextHookEx(hHook, iCode, wParam, lParam)
    
39. End If
    
40. End Function
    

复制代码

版主真是用心啊，赞一个！

赞一个！~~~~~~~~~