模拟飞行2012:如何用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

我们知道,“任务管理器”的进程名为"taskmgr.exe"
所以我们用一个定时器来检查并结束.
'API函数
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Timer1_Timer()
Dim hwnd As Long
hwnd = FindWindow(vbNullString, "任务管理器")
If hwnd = 1 Then
Shell "taskkill /im taskmgr.exe /f"
End If
End Sub

'我不知道用VB怎么结束程序,所以调用了XP的程序来结束.Shell "taskkill /im taskmgr.exe /f",所以只适用于XP

不用编程....
你把系统里的taskmgr.exe文件改名就OK了

可以做一个定时器，执行一段代码，检索taskmgr.exe进程，一旦存在就关闭，具体怎么关闭进程在网上搜搜吧

你最好先学学系统
学啥VB啊

朽木不可雕也