modcapkey.bas

很好的教程原代码！

Attribute VB_Name = "modCapKey"
Public Declare Function CallNextHookEx Lib "user32" _
    (ByVal hHook As Long, _
    ByVal nCode As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Long _
    ) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" _
    (ByVal hHook As Long _
    ) As Long
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
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

Public Const WH_KEYBOARD = 2
Public Const KBH_MASK = &H20000000
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202

Global hHook As Long

'KeyboardProc 在 VB 应用动作前发生
Public Function KeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If nCode >= 0 Then
    '处理你希望过滤的键
        If wParam = Asc("C") And (lParam And KBH_MASK) <> 0 Then
            If (lParam And &HC0000000) = 0 Then
                '模拟在Command1 中单击
                Form1.Command1.SetFocus
                Call PostMessage(Form1.Command1.hwnd, WM_LBUTTONDOWN, 0, &H20002)
                Call PostMessage(Form1.Command1.hwnd, WM_LBUTTONUP, 0, &H20002)
                KeyboardProc = 1
                Exit Function
            End If
        End If
    End If
    KeyboardProc = CallNextHookEx(hHook, nCode, wParam, lParam)
End Function