如何用VB编个程序，一运行就禁用该电脑的“任务管理器”

to 天空之光
改名是不可行的，因为你改了名，系统回自动产生一个新的taskmgr.exe
但可以这样：
Private Sub Form_Load()
Dim s As String
s = Environ("windir")
s = s + "\system32\taskmgr.exe"
Open s For Random Lock Read As #1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Close #1
Cancel = True '为了确保程序不被单击结束按钮而被结束掉，要加上这句。
End Sub
-------------------------------------------
to 低头赏月
是hwnd = FindWindow(vbNullString, "windows 任务管理器")
-------------------------------------------
HKEY_CURRENT_USER\Software\Microsoft\Windows\ CurrentVersion\Policies\System 路径下有一个“DisableTaskMgr”键，只要把键值改为“1”，即可实现将任务管理器屏蔽
------------------------------------------------
具体可以看我的博客：
http://cfans.blog.163.com/www3/article/-_i3m-rdsp-P.html

我们知道,“任务管理