Question

谁能不能帮我用VB写一段屏蔽系统热键CTRL+ALT+DEL的代码?写时尽量易懂点和写出注释.好吗?

Answer 1

我不会很好地运用API。
但可以实现达到任务管理器打开就关闭,开始菜单一弹出就消失。
（几乎有点失效的感觉）

先添一个Timer，Interval属性可以设成10。

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Timer1_Timer()
hw = FindWindow(vbNullString, "Windows 任务管理器")
SendMessage hw, &H10, 0, 0
SendKeys "%"
Me.SetFocus
End Sub

'好恐怖啊～～～差点退不出来。
'如果不是在VB中运行，真不知怎么退出来。
'如果将将Form的样式设成none,将开始状态设成最大化，更爽。
'要是你担心退不出来，可以这样：
'Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'If KeyCode = Asc("I") Then End
'End Sub
'那么一按“I”键就可以退出来了。

将 CTRL + ALT + DEL 功能键之功能取消，然后在结束程序之前，再从新恢复 CTRL + ALT + DEL 之功能

在模组声明区中加入以下声明及模组：
Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long

Public Const SPI_SCREENSAVERRUNNING = 97

Public Sub Disable_Ctrl_Alt_Del()
’让 CTRL+ALT+DEL 失效
Dim AyW As Integer
Dim TurFls As Boolean
AwY = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, TurFls, 0)
End Sub

Public Sub Enable_Ctrl_Alt_Del()
’让 CTRL+ALT+DEL 恢复功能
Dim AwY As Integer
Dim TurFls As Boolean
AwY = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, TurFls, 0)
End Sub

’实际使用时，在 Form 中加入以下程序码：

Private Sub Form_Load()
Disable_Ctrl_Alt_Del
End Sub

Private Sub Form_Unload(Cancel As Integer)
Enable_Ctrl_Alt_Del
End Sub
参考资料：loushang

Answer 2

零分我不想废话太多，免的浪费我时间！！随便说一下：
想屏蔽 Ctrl + Alt + Del 在 Win98 下很容易，但在 Win2K、WinXP 下则比较难，普通的钩子勾不住，总的来说有两步：
第一步：远程线程注入
第二步：挂键盘钩子

就可以屏蔽这三个按键了。

Answer 3

留下邮箱吧
我这里有这个的原码