VB中实现屏蔽Win键/alt+tab/ctrl+esc/alt+f4

log_Content
"屏蔽Win键(稍作修改可以屏蔽除Ctrl+Alt+Del外的任何按键或按键组合)，

本程序在Windows2000 + VB6.0环境下通过

'***************************

'把以下程序粘贴到窗体中

'***************************

Private Sub Form_Load()

    Hook

End Sub


Private Sub Form_Unload(Cancel As Integer)

    UnHook

End Sub

'***************************

'把以下程序粘贴到模块中

'***************************

Option Explicit


Private 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 Type
Private Const WM_KEYDOWN = &H100
Private Const WM_SYSKEYDOWN = &H104
Private Const WM_KEYUP = &H101
Private Const WM_SYSKEYUP = &H105
Private Const VK_LWIN = &H5B
Private Const VK_RWIN = &H5C
Private Const HC_ACTION = 0
Private Const WH_KEYBOARD_LL = 13
Private 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

If wParam = WM_KEYDOWN or wParam = WM_SYSKEYDOWN _
 or wParam = WM_KEYUP or wParam = WM_SYSKEYUP Then
            CopyMemory p, ByVal lParam, Len(p)
  
blnHook = ((p.vkCode = VK_ESCAPE) And  _
((GetKeyState(VK_CONTROL) And &H8000) <> 0)) or _
((p.vkCode = VK_TAB) And ((p.flags And LLKHF_ALTDOWN) <> 0)) or _
(p.vkCode = VK_LWIN) or (p.vkCode = VK_RWIN) or _
((p.vkCode = vbKeyF4) And  _
((GetKeyState(vbKeyMenu) And &H8000) <> 0))


'((p.vkCode = VK_ESCAPE) And  _((GetKeyState(VK_CONTROL)  _
And &H8000) <> 0))  这个是屏蔽ESC+Ctrl
            
'((p.vkCode = VK_TAB) And ((p.flags And LLKHF_ALTDOWN) <>  _
0))  这个是屏蔽Tab+Alt
            
'(p.vkCode = VK_LWIN) or (p.vkCode = VK_RWIN)   这个是屏蔽左右win
            
 '((p.vkCode = vbKeyF4) And ((GetKeyState(vbKeyMenu)  _
And &H8000) <> 0))  这个是屏蔽Alt+F4
            
        End If


    End If

    

    If blnHook Then

        LowLevelKeyboardProc = 1

    Else

        Call CallNextHookEx(WH_KEYBOARD_LL, nCode, wParam, lParam)

    End If

End Function


Public Sub HooK()

    lngHook = SetWindowsHookEx(WH_KEYBOARD_LL, _
    AddressOf LowLevelKeyboardProc, App.hInstance, 0)

End Sub


Public Sub UnHooK()

    Call UnhookWindowsHookEx(lngHook)

End Sub


"

文章来自: 本站原创
引用通告地址: http://www.cn-sohu.com/bolg/trackback.asp?tbID=351
Tags: