告诉你们一个整蛊代码！1、我是猪on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试???"" ",0 ,truedim aa = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪""　","说不说","不说",8000,7000)do while(a <> "我是猪")msgbox "快点说！马上就要关机了啊，你看着办吧！"a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪""　","说不说","不说",8000,7000)loopmsgbox "早说就行了嘛，真是的！"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox "哈哈哈哈，你很乖噢，我就喜欢你这样！"赶紧去找你的好朋友，偷偷拿你的电脑输入串代码吧！温馨提示：你朋友电脑可能会卡死！或者说你将失去一个好朋友！一个不够，再来一个！2、爱情测试const yourname = "张三"const title = "爱情测试"const question = "你最喜欢的人是谁？请在下面的方框中输入他的名字"const info = "你在说谎！不要逃避嘛，实话实说，快点说啦！"const scend = "你终于说出你的心扉了，赶紧向他表白吧，赶紧啰！哈哈！"dim youranswerdoyouranswer = inputbox(question, title)if youranswer <> yourname then msgbox info, vbinformation + vbokonly, titleloop until youranswer = yournamemsgbox scend, vbinformation + vbokonly, title只是整蛊，千万不要真的黑进他的电脑！