谁有整人的程序？

最好是通过QQ的

VB整人小程序三个第一个:程序代码on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 55 -c ""快叫哥哥，不叫让你1分钟关机，不叫，试试···"" ",0 ,truedim ado while(a <> "哥哥")a = inputbox ("说我是猪,就不关机，快，说 ""哥哥""　","叫不叫","不叫",7000,8000)msgbox chr(13) + chr(13) + chr(13) + a,5000,"MsgBox"loopmsgbox chr(13) + chr(13) + chr(13) + "早叫就行了嘛"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox 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) + "记住了么?~~~"msgbox chr(13) + chr(13) + chr(13) + "别恨我呀!恨我就是爱我!"msgbox chr(13) + chr(13) + chr(13) + "爱我就得叫我""老公""了!"msgbox chr(13) + chr(13) + chr(13) + "88,妹妹!"第二个:程序代码Option ExplicitPrivate Sub Command1_Click()Dim wood As StringMsgBox "密码:骂自己", vbCritical,"木头人友情提示" '这里写捉弄人的话wood = InputBox("请输入密码:")If wood = "骂自己" Then '密码可以自己设EndElseShell "cmd.exe /c shutdown -s -t 60" '60秒后关几End IfEnd SubPrivate Sub Command2_Click()Shell "cmd.exe /c shutdown -a"MsgBox "不怎么好玩", vbExclamation,"不玩了"EndEnd Sub第三个:程序代码on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 40 -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 ,tru

加我QQ，773678819