50分求助,如何让程序屏蔽XP系统的热键,像CTRL+ALT+DEL

[如风]

网上找了一些,都没办法解决,谁来帮帮我````

[chenhui530]

呵呵不好意思没看明白
这个VB也行
http://www.aguoge.com/show.htm?id=18

[如风]

chenhui530(陈辉) :
代码真的可以屏蔽一些热键,但CTRL+ALT+DEL好像不能屏蔽掉.....

[如风]

这个文章看过了````主要是看不明白``

[hdhreg]

我以前也遇到过。。， 后来用了YF的OCX

[hdhreg]

楼主要我可以发一个给你。。。

[chenhui530]

http://www.aguoge.com/show.htm?id=18

本来就可以也是VB的代码

[如风]

hdhreg()谢谢,发到我邮箱:[e-mail]

非常感谢你们的帮忙````

[cangwu_lee]

我还是不玩了，上次整那个整点休息的程序，调试的时候，迫不得已好几次强关机——按住电源开关关机。

[hdhreg]

以发。。请查收。。。

[如风]

还没收到呢,
如果方便加我QQ15345566,以后有问题也好请教....
闷,调试弄的没键盘了,重启下

[hdhreg]

QQ 95419145

[chenhui530]

哎~~楼主那个东西我用过要把任务栏隐藏了不好用的

[feiyun0112]

vb只能做到节获本程序内的按键

你的要求只能用 VC 啦

*****************************************************************************
欢迎使用CSDN论坛阅读器 : CSDN Reader(附全部源代码)
http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html

[chenhui530]

楼上的完全错误

模块：
Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
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
Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Private Const HC_ACTION = 0
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101
Private Const WM_SYSKEYDOWN = &H104
Private Const WM_SYSKEYUP = &H105
Private Const VK_TAB = &H9
Private Const VK_CONTROL = &H11
Private Const VK_ESCAPE = &H1B

Public Const WH_KEYBOARD_LL = 13
Private Const LLKHF_ALTDOWN = &H20

Private Type KBDLLHOOKSTRUCT
vkCode As Long
scanCode As Long
flags As Long
time As Long
dwExtraInfo As Long
End Type

Dim p As KBDLLHOOKSTRUCT

Public Function LowLevelKeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim fEatKeystroke As Boolean

If (nCode = HC_ACTION) Then
If wParam = WM_KEYDOWN Or wParam = WM_SYSKEYDOWN Or wParam = WM_KEYUP Or wParam = WM_SYSKEYUP Then
CopyMemory p, ByVal lParam, Len(p)
fEatKeystroke = _
((p.vkCode = VK_TAB) And ((p.flags And LLKHF_ALTDOWN) <> 0)) Or _
((p.vkCode = VK_ESCAPE) And ((p.flags And LLKHF_ALTDOWN) <> 0)) Or _
((p.vkCode = VK_ESCAPE) And ((GetKeyState(VK_CONTROL) And &H8000) <> 0)) Or _
((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)))
End If
End If

If fEatKeystroke Then
LowLevelKeyboardProc = 1
Else
LowLevelKeyboardProc = CallNextHookEx(0, nCode, wParam, ByVal lParam)
End If
End Function



窗体

private hhkLowLevelKybd as long
Private Sub Form_Load()
hhkLowLevelKybd = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf LowLevelKeyboardProc, App.hInstance, 0)
End Sub



Private Sub Form_Unload(Cancel As Integer)
If hhkLowLevelKybd Then UnhookWindowsHookEx hhkLowLevelKybd
End Sub