第2个回答 2013-06-23
由于回答文字有字数限制所以在这里不能发布完全的代码给你,所以部分程序代码采用图片的格式给您。你把这些代码写到记事本然后更改扩展名TXT为CMD然后运行就OK了。以下是图片后半部分的代码End If
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本回答被网友采纳