VB6 能否指定要屏蔽的按键或组合键？

Question

 

我在  http://www.aguoge.com/show.htm?id=18  中找到用VB6 禁止按键的代码。

测了一下。该程序就把键盘全部屏蔽了。。。

是不是在代码中加以修改就能指定要屏蔽的按键或组合键呢？

Answer 1

Private Function LowLevelKeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim KBEvent As KBDLLHOOKSTRUCT
    If nCode >= 0 Then
        '在这里可以加入实际的过滤条件
        CopyMemory KBEvent, ByVal lParam, 20&   'sizeof KBDLLHOOKSTRUCT=20
        'wParam = 消息，如WM_KEYDOWN, WM_KEYUP等
        Debug.Print Hex$(KBEvent.vkCode)    'VK_??? 定义的键码

'应该是这句话，判断KBEvent.vkCode是否置1
        LowLevelKeyboardProc = 1            '１屏蔽,否则应调用CallNextHookEx
    Else
        LowLevelKeyboardProc = CallNextHookEx(m_lHookID, nCode, wParam, lParam)
    End If
End Function

 

Answer 2

feiyun0112 写:

Private Function LowLevelKeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim KBEvent As KBDLLHOOKSTRUCT     If nCode >= 0 Then         '在这里可以加入实际的过滤条件         CopyMemory KBEvent, ByVal lParam, 20&   'sizeof KBDLLHOOKSTRUCT=20         'wParam = 消息，如WM_KEYDOWN, WM_KEYUP等         Debug.Print Hex$(KBEvent.vkCode)    'VK_??? 定义的键码 '应该是这句话，判断KBEvent.vkCode是否置1         LowLevelKeyboardProc = 1            '１屏蔽,否则应调用CallNextHookEx     Else         LowLevelKeyboardProc = CallNextHookEx(m_lHookID, nCode, wParam, lParam)     End If End Function

 

能否来个示例，应该怎么修改呢。我不太懂API。。。