红警4会有中国吗:如何用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啊
朽木不可雕也