VB热键屏蔽

来源：百度知道 编辑：UC知道 时间：2024/06/09 01:34:28
怎样评蔽AIT+ESC按键,麻烦写个代码...
Dim d As Single '禁止切换
Private Const MOD_ALT = &H1 '禁止切换
Private Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long '禁止切换

Private Sub Form_Load()
Me.Caption = RegisterHotKey(Me.hwnd, 1, MOD_ALT, vbKeyTab)
Me.Hide
End Sub
这是一段屏蔽的代码,可就是屏蔽不了ESC,帮我修改一下加入屏蔽ESC

这个是完美屏蔽。
模块

Option Explicit
Private Declare Function GetKeyState Lib "User32" _
(ByVal nVirtKey As Long) As Integer
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
Public Declare Function UnhookWindowsHookEx Lib "User32" (ByVal hHook As Long) As Long
Public Declare Function CallNextHookEx Lib "User32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, ByVal lpvSource As Long, ByVal cbCopy As Long)
Public Type KEYMSGS
vKey As Long
sKey As Long
flag As Long
time As Long
End Type
Public Const WH_KEYBOARD_LL = 13
Public Const VK_LWIN = &H5B
Public Const VK_RWIN = &H5