Question

vb禁用任务管理器的问题。

我用vb弄了个程序，禁用任务管理器，代码：，用意：程序运行时，无法启动任务管理器结束程序，在输入正确密码并退出后，任务管理器正常运行。但只能做到第一个，点击按钮9退出后不能启动任务管理器了。怎么办？

Answer 1

手写的代码没有在VB上调试过不能保证没有错误，但方法肯定可以用的小问题你自己修改吧private sub form1_load()
open app.path & "\禁用.cmd“ for output as #1
print #1,"reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\system /v DisableTaskMgr /t reg_dword /d 1 /f >nul "
close #1
shell app.path & "\禁用.cmd"
end sub
pirvate sub command1_click()
aa=inputbox("请输入密码","提示")
if aa="123” then
open app.path & "\解锁.cmd" for output as #1
print #1,"reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\system /v DisableTaskMgr /t reg_dword /d 0 /f >nul "
shell app.path & "\解锁.cmd"
msgbox "解锁成功",64,"提示"
else
msgbox "密码错误" ,48,"警告"
end if
end sub
private sub form1_unload(cancel as integer)

aa=inputbox("请输入密码","提示")
if aa="123” then
open app.path & "\解锁.cmd" for output as #1
print #1,"reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\system /v DisableTaskMgr /t reg_dword /d 0 /f >nul "
shell app.path & "\解锁.cmd"
msgbox "解锁成功",64,"提示"
else
msgbox "密码错误" ,48,"警告"
cancel=222
end if
end sub

Answer 2

这段代码用手机写的，应该可以运行，有问题的话能解决就解决吧，原理就是操作注册表进行镜像劫持

private sub form1_load()
shell "reg add ""HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\ CurrentVersion\Image File Execution Options\taskmgr.exe""
/v Debugger /t REG_SZ /d ""\\"" /f "
pirvate sub command1_click()
pass=inputbox("请输入密码","提示")
if pass="123" '这里的123是密码，自己改
shell "reg delete ""HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\ CurrentVersion\Image File Execution Options\taskmgr.exe""
/f "
msgbox "解锁成功",64,"提示"
else
msgbox "密码错误" ,48,"警告"
end if
end sub
private sub form1_unload(cancel as integer)
pass=inputbox("请输入密码","提示")
if pass="123” then
shell "reg delete ""HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\ CurrentVersion\Image File Execution Options\taskmgr.exe""
/f "
msgbox "解锁成功",64,"提示"
else
msgbox "密码错误" ,48,"警告"
end if
end sub