如何用VB编一个让任务管理器失效的程序

'API定义:
Private Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'常数定义
Private Const WM_CLOSE = &H10 'wMsg 关闭

放个Timer控件,Interval设置200左右
Timer控件的Timer事件里写
Dim Hw As Long
'查找任务管理器窗口，如果有关闭之
Hw = API.FindWindow(vbNullString , "Windows 任务管理器")
If Hw <> 0 Then
SendMessage Hw&, WM_CLOSE, 0&, 0&
End If

没有找到vb的找到可以用注册表 的
修改注册表c
打开“注册表编辑器”，找到[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System]，在右侧窗格中创建名为DisableTaskMgr的Dword值，将其值设置为1即可禁用“任务管理器”，设置为0则为启用

就是屏蔽 alt+ctrl+del吧 自己搜吧 网上有的是