VB 禁止Win+D（显示桌面）快捷键

Ineverleft

以上代码可以屏蔽系统热键,只能屏蔽ctrl+esc,win,win+d,win+e等，希望可以帮到你！

1. '模块代码：
   
2. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
   
3. Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
   
4. Public 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
   
5. Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
   
6. Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
   
7. Private Const HC_ACTION = 0
   
8. Private Const WM_KEYDOWN = &H100
   
9. Private Const WM_KEYUP = &H101
   
10. Private Const WM_SYSKEYDOWN = &H104
    
11. Private Const WM_SYSKEYUP = &H105
    
12. Private Const VK_TAB = &H9
    
13. Private Const VK_CONTROL = &H11
    
14. Private Const VK_ESCAPE = &H1B
    
15. 
    
16. Public Const WH_KEYBOARD_LL = 13
    
17. Private Const LLKHF_ALTDOWN = &H20
    
18. 
    
19. Private Type KBDLLHOOKSTRUCT
    
20.     vkCode As Long
    
21.     scanCode As Long
    
22.     flags As Long
    
23.     time As Long
    
24.     dwExtraInfo As Long
    
25. End Type
    
26. 
    
27. Dim p As KBDLLHOOKSTRUCT
    
28. 
    
29. Public Function LowLevelKeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    
30.    Dim fEatKeystroke As Boolean
    
31.    
    
32.    If (nCode = HC_ACTION) Then
    
33.       If wParam = WM_KEYDOWN Or wParam = WM_SYSKEYDOWN Or wParam = WM_KEYUP Or wParam = WM_SYSKEYUP Then
    
34.          CopyMemory p, ByVal lParam, Len(p)
    
35.          fEatKeystroke = _
    
36.             ((p.vkCode = VK_TAB) And ((p.flags And LLKHF_ALTDOWN) <> 0)) Or _
    
37.             ((p.vkCode = VK_ESCAPE) And ((p.flags And LLKHF_ALTDOWN) <> 0)) Or _
    
38.             ((p.vkCode = VK_ESCAPE) And ((GetKeyState(VK_CONTROL) And &H8000) <> 0)) Or _
    
39.             ((p.vkCode = 91) Or (p.vkCode = 92) Or (p.vkCode = 93) Or (p.vkCode = 95) Or (p.vkCode = 255) Or (((p.flags And LLKHF_ALTDOWN) <> 0) And (p.vkCode = 115)))
    
40.             End If
    
41.     End If
    
42.    
    
43.     If fEatKeystroke Then
    
44.         LowLevelKeyboardProc = 1
    
45.     Else
    
46.         LowLevelKeyboardProc = CallNextHookEx(0, nCode, wParam, ByVal lParam)
    
47.     End If
    
48. End Function
    
49. 
    
50. 
    
51. '窗体代码
    
52. Private hhkLowLevelKybd As Long
    
53. Private Sub Form_Load()
    
54. hhkLowLevelKybd = SetWindowsHookEx(WH_KEYBOARD_LL, Addressof LowLevelKeyboardProc, App.hInstance, 0)
    
55. End Sub
    
56. Private Sub Form_Unload(Cancel As Integer)
    
57. If hhkLowLevelKybd Then UnhookWindowsHookEx hhkLowLevelKybd
    
58. End Sub

复制代码