End Function
'add a checkbox named chkDisable.caption="&Disable ALT-TAB, ALT-ESC, CTRL-ESC,LWin,RWin,Win+Any"
'to a new from named frmMain.frm in new project hook_kb_LL.vbp
'add code below:
Option Explicit
Dim hhkLowLevelKybd As Long
Private Sub chkDisable_Click()
If chkDisable = vbChecked Then
hhkLowLevelKybd = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf LowLevelKeyboardProc, App.hInstance, 0)
Else
UnhookWindowsHookEx hhkLowLevelKybd
hhkLowLevelKybd = 0
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
If hhkLowLevelKybd <>0 Then UnhookWindowsHookEx hhkLowLevelKybd
End Sub
这些代码复制雹和余到记事本中,然后更改拓展名为cmd,放在桌面运源滚行即可,不行的话欢迎追问棚圆
1、在“运行”框前凯启里输入GPEDIT.msc打开组策略管理器。2、看看“用户配置”慧如——“管理模板”——“系统”——“ALT+ESC”中“删除‘任务管理器’” 是否被“已启用”。如孙租果是,就选择其属性中的“未配置”改过来。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)