vb 禁用任务管理器

请问WIN7下禁用任务管理器 和屏蔽ALT+CTRL+DEL 或者ALT+SHIFT+ESC都不好使啊
有没有什么办法可以在WIN7下也屏蔽呢，我不是做病毒，只是做个锁屏的软件，谢谢

有没有VB源码，不要修改注册表的，360会拦截，谢谢

你们提供的WIN7下不好使啊

Private Sub Command1_Click()
Dim mCFile As Object
Set mCFile = CreateObject("Scripting.FileSystemObject")
mCFile.CreateTextFile "c:\windows\system32\taskmgr.exe.manifest", True
Set mCFile = Nothing
End Sub
在"c:\windows\system32\"目录新建文本文件.txt然后名为taskmgr.exe.manifest

禁用 open environ$("windir") & "\system32\taskmgr.exe" for binary as #1 启用 close #1

只要把上面的相应语句放到你需要的地方就好了。 很简单的。

解析

environ$("windir") 返回当前系统 windows目录路径 open environ$("windir") & "\system32\taskmgr.exe" for binary as #1 文件号为1（#1） 以二进制形式（binary）打开 任务管理器（taskmgr.exe） close #1 关闭 因为是以binary 方式打开文件~ 若要以其他方式打开文件 就得先关闭此文件 所以启用的时候用一句 close #1就可以了

在任务管理器目录下增加taskmgr.exe.manifest就会禁用

Open Environ$("windir") & "\system32\taskmgr.exe" For Input Lock Read Write As #1 即：Open 位置 For Input Lock Read Write As #1 执行之后不要Close掉，再按那组快捷键就不好使了。

禁用任务管理 把任务管理器改名 taskmgr.exe 改成其它名称 即可 按ALT+CTRL+DEL 也会无效 搜索所有的taskmgr.exe （包括系统隐藏目录） 不禁用的时候改回来即可 这是最简单的方法 也很有效果 用VB自动实现改名称即可