用VB屏蔽ALT+F4

来源：百度知道 编辑：UC知道 时间：2024/06/24 13:33:55
玩WOW时需要宏，有时用到ALT+某个键，发现键盘太小，偶尔会不小心按了ALT+F4，所以我想找个方法屏蔽掉，VB刚开始学，希望高手给我代码，最好是通用的方法，能屏蔽各种组合键。
好像有点问题哦，你自己先试下撒~~~

分二步：
1、建立一个模块，然后复制下面代码
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