在线等待,请教锁住键盘中指定键的问题

Question

屏蔽Win键(稍作修改可以屏蔽除Ctrl+Alt+Del外的任何按键或按键组合)，
本程序在Windows2000 + VB6.0环境下通过'***************************
'把以下程序粘贴到模块中
'***************************
Option ExplicitPrivate Declare Function CallNextHookEx Lib "user32" _
   (ByVal hHook As Long, _
    ByVal nCode As Long, _
    ByVal wParam As Long, _
    lParam As Any) As Long
    
Private 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
    
Private Declare Function UnhookWindowsHookEx Lib "user32" _
   (ByVal hHook As Long) As Long
   
Private Declare Sub CopyMemory Lib "kernel32" _
    Alias "RtlMoveMemory" _
   (Destination As Any, _
    Source As Any, _
    ByVal Length As Long)Private Type PKBDLLHOOKSTRUCT
    vkCode As Long
    scanCode As Long
    flags As Long
    time As Long
    dwExtraInfo As Long
End TypePrivate Const WM_KEYDOWN = &H100
Private Const WM_SYSKEYDOWN = &H104
Private Const WM_KEYUP = &H101
Private Const WM_SYSKEYUP = &H105Private Const VK_LWIN = &H5B
Private Const VK_RWIN = &H5CPrivate Const HC_ACTION = 0
Private Const WH_KEYBOARD_LL = 13Private lngHook As Long'使用底层KeyboardHook拦截按键消息
Public Function LowLevelKeyboardProc(ByVal nCode As Long, _
                                     ByVal wParam As Long, _
                                     ByVal lParam As Long) As Long
    Dim blnHook As Boolean
    Dim p As PKBDLLHOOKSTRUCT
    
    If nCode = HC_ACTION Then
        Select Case wParam
            Case WM_KEYDOWN, WM_SYSKEYDOWN, WM_KEYUP, WM_SYSKEYUP
                Call CopyMemory(p, ByVal lParam, Len(p))
                If p.vkCode = VK_LWIN Or p.vkCode = VK_RWIN Then '按下了左/右Win键
                    blnHook = True
                End If
            Case Else
                'do nothing
        End Select
    End If
    
    If blnHook Then
        LowLevelKeyboardProc = 1
    Else
        Call CallNextHookEx(WH_KEYBOARD_LL, nCode, wParam, lParam)
    End If
End FunctionPublic Sub HooK()
    lngHook = SetWindowsHookEx(WH_KEYBOARD_LL, _
                               AddressOf LowLevelKeyboardProc, _
                               App.hInstance, _
                               0)
End SubPublic Sub UnHooK()
    Call UnhookWindowsHookEx(lngHook)
End Sub'***************************
'把以下程序粘贴到窗体中
'***************************
Private Sub Form_Load()
    Hook
End SubPrivate Sub Form_Unload(Cancel As Integer)
    UnHook
End Sub