VB: 全局键盘、鼠标钩子

最新推荐文章于 2022-12-07 18:11:51 发布

c945124

最新推荐文章于 2022-12-07 18:11:51 发布

阅读量2.8k

点赞数

分类专栏：程序文章标签： vb function user keyboard action string

本文链接：https://blog.youkuaiyun.com/c945124/article/details/379248

版权

该博客介绍了如何使用VB来设置全局键盘和鼠标钩子，通过SetWindowsHookEx函数安装钩子，并提供了卸载钩子的方法。钩子过程包括CallKeyHookProc和CallMouseHookProc，用于捕获键盘和鼠标的输入事件，例如模拟鼠标点击和替换特定按键行为。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'---------------------------------
'Form
'安装钩子
Private sub AddHook()
'键盘钩子
lHook(0) = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf CallKeyHookProc, App.hInstance, 0)
'鼠标钩子
lHook(1) = SetWindowsHookEx(WH_MOUSE_LL, AddressOf CallMouseHookProc, App.hInstance, 0)
End Sub
'卸钩子
Private sub DelHook()
UnhookWindowsHookEx lHook(0)
UnhookWindowsHookEx lHook(1)
End Sub
'---------------------------------
'模块
Public 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
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, ByVal lpvSource As Long, ByVal cbCopy As Long)
Public Type KEYMSGS
       vKey As Long          '虚拟码 (and &HFF)
       sKey As Long          '扫描码
       flag As Long          '键按下：128 抬起：0
       time As Long          &#

最低0.47元/天解锁文章