API 钩子无法释放

Manrce

我想通过HOOK同时监控鼠标和键盘的操作，获得鼠标的当前坐标和我按下的按键码。
鼠标这个hook没有问题，但是当我加上键盘hook时候，发现释放不了键盘的hook.
点击结束后，鼠标hook停止了但是键盘还在继续运行。请各位帮帮我。
代码如下：

1. Sub UNHOOK() '卸钩子
   
2.     UnhookWindowsHookEx Mhook2
   
3.     UnhookWindowsHookEx Mhook
   
4.     Mhook2 = 0
   
5.     Mhook = 0
   
6.    
   
7. End Sub
   
8. Sub MOUSEHOOK()
   
9.     Mhook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf MyMhook, Application.Hinstance, 0)
   
10.     Mhook2 = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf MyMhookkey, Application.Hinstance, 0)
    
11.     If Mhook = 0 Then MsgBox "钩子注册失败"
    
12.     If Mhook2 = 0 Then MsgBox "钩子注册失败"
    
13. End Sub
    
14. Public Function MyMhook(ByVal ncode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    
15.     If ncode = 0 Then
    
16.         If wParam = WM_MOUSEMOVE Then
    
17.             Dim p As POINTAPI
    
18.             GetCursorPos p
    
19.             GetmousePos.TextBox1.Value = p.X & "," & p.Y
    
20.         End If
    
21.     Else
    
22.         MyMhook = CallNextHookEx(Mhook, ncode, wParam, lParam)
    
23.     End If
    
24.     MyMhook = CallNextHookEx(Mhook, ncode, wParam, lParam)
    
25. End Function
    
26. Public Function MyMhookkey(ByVal ncode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    
27.     If ncode = 0 Then
    
28.         If wParam = WM_KEYDOWN Then
    
29.             CopyMemory mymsg, ByVal lParam, LenB(mymsg)
    
30.             a = Chr(mymsg.vKey)
    
31.             MsgBox mymsg.vKey
    
32.         End If
    
33.     Else
    
34.         MyMhookkey = CallNextHookEx(Mhook2, ncode, wParam, lParam)
    
35.     End If
    
36.     MyMhookkey = CallNextHookEx(Mhook2, ncode, wParam, lParam)
    
37. End Function
    

复制代码

小fisher

MHook和MHook2定义成全局变量了吗

Manrce

小fisher 发表于 2020-1-19 15:15
MHook和MHook2定义成全局变量了吗

对，都是全局变量

Manrce

顶一下，求各位老师帮忙看看

zpy2

全局的挂钩是不是要在标准的dll里使用

zpy2

记录键盘用
GetKeyState比较方便

Manrce

zpy2 发表于 2020-1-20 07:01
记录键盘用
GetKeyState比较方便

用WH_KEYBOARD_LL可以全局响应不受限于EXCEL，GetKeyState是挺好用的但我还没有学。我就是想应用自己学的内容做一个类似于按键抓抓的东西。看看能不能用VBA去实现它。

Manrce

代码全部删除重写一遍又好了，不知原因。