VB使用keybd_event

2025-03-25 20:25:44

推荐回答（2个）

回答1：

你说的功能我不会·等待高人解答吧·不过我给你一段钩子的代码希望能帮助到你模块：Option Explicit
Public Const WH_KEYBOARD = 13
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 CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Public hNextHookProc As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const BM_CLICK = &HF5Public Type KBDLLHOOKSTRUCT
vkCode As Long
scanCode As Long
flags As Long
time As Long
dwExtraInfo As Long
End TypePublic Sub UnHookKBD()
On Error Resume Next
If hNextHookProc <> 0 Then
UnhookWindowsHookEx hNextHookProc
hNextHookProc = 0
End If
End SubPublic Function EnableKBDHook()
On Error Resume Next
If hNextHookProc <> 0 Then
Exit Function
End If
hNextHookProc = SetWindowsHookEx(WH_KEYBOARD, AddressOf MyKBHFunc, App.hInstance, 0)
If hNextHookProc <> 0 Then
EnableKBDHook = hNextHookProc
End IfEnd FunctionPublic Function MyKBHFunc(ByVal iCode As Long, ByVal wParam As Long, lParam As KBDLLHOOKSTRUCT) As Long
On Error Resume Next
MyKBHFunc = 0
If iCode < 0 Then
MyKBHFunc = CallNextHookEx(hNextHookProc, iCode, wParam, lParam)
Exit Function
End If
If lParam.vkCode = vbKeyR Then ‘如果按下R，这里你可以改改
MyKBHFunc = 1
Else
Call CallNextHookEx(hNextHookProc, iCode, wParam, lParam) ’传递给下一钩子
End If
End Function
窗体中加载钩子用：Call EnableKBDHook别忘记在窗体的unload事件中加入UnHookKBD ’卸载钩子

回答2：

在注册表内注册个热键然后用钩子勾取到键盘是r键就执行

最新问答

当一年志愿兵后可以考军校吗？是怎样要求的啊？

勤哲excel服务器，通用信息开发平台怎么样，有人用过么？

我想在电脑上打一段文字，在用电脑把他读出来，要用什么软件啊？

校宝教培管理系统能给我们家长带来哪些便利啊？

九寨沟现在气温多少度