整蛊朋友的代码VBS（第二弹）

注意！这是用JavaScript编写，编码格式改为ANSI，后缀名改成VBS！

1.快认错！

on error resume next 
dim WSHshellA 
set WSHshellA = wscript.createobject("wscript.shell") 
WSHshellA.run "cmd.exe /c shutdown -r -t 180 -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) + "好吧。这次我就原谅你吧！" 

2.”收获“一只”儿子“

const title = "儿子，快叫一声爸爸来听听"
const yourname = "爸爸"
const question = "儿子，快在下面方框内输入“爸爸”"
const info = "不叫爸爸还想跑？呵呵^o^"
const scend = "哎，儿子乖"
dim youranswer
do
youranswer = inputbox(question, title)
if youranswer <> yourname then msgbox info, vbinformation+vbokonly, title
loop until youranswer = yourname
msgbox scend, vbinformation+vbokonly, title

3.直接关机

dim WSHshell
set WSHshell = wscript.createobject(“wscript.shell”)
WSHshell.run “shutdown -f -s -t 00”,0 ,true