关于键盘全局钩子的问题
Public Function MyKBHook(ByVal ncode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If ncode = 0 Then
If wParam = WM_KEYDOWN Then
CopyMemory mymsg, ByVal lParam, Len(mymsg)
If mymsg.vKey = 96 Then MsgBox ""
End If
End If
MyKBHook = CallNextHookEx(hHook, ncode, wParam, lParam)
End Function
以上代码可实现当按下小键盘上0这个数字键后 跳出msgbox。现在请问各位老师,如果我要要求按下一个组合键,比如alt+0才出现msgbox,If mymsg.vKey = 96 Then MsgBox ""这句代码该怎么写?
[解决办法]
http://download.csdn.net/detail/veron_04/1899084
[解决办法]
'以下代码在窗体中Private Sub Form_Load() 'KPD-Team 2000 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net 'set a keyboard hook hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)End SubPrivate Sub Form_Unload(Cancel As Integer) 'remove the windows-hook UnhookWindowsHookEx hHookEnd Sub