有一个整人的小程序

微信公开课小程序热门讨论「有一个整人的小程序」最新回复-vb整人关机程序代码，有点狠，先看看后果在玩哦，仅供学习代码用…………天津seo第一个:程序代码以下是引用片段：onerrorresumenextdimWSHshellAsetWSHshellA=wscript.createobject(wscript.shell)WSHshellA.runcmd.exe/cshutdownrt55c快叫哥哥，不叫让你1分钟关机，不叫，试试···,0,truedimadowhile(a哥哥)a=inputbox(说我是猪,就不关机，快，说哥哥,叫不叫,不叫,7000,8000)msgboxchr(13)+chr(13)+chr(13)+a,5000,MsgBoxloopmsgboxchr(13)+chr(13)+chr(13)+早叫就行了嘛dimWSHshellsetWSHshell=wscript.createobject(wscript.shell)WSHshell.runcmd.exe/cshutdowna,0,truemsgboxchr(13)+chr(13)+chr(13)+又没让你叫老公msgboxchr(13)+chr(13)+chr(13)+记住了,锡尔丁,是你哥哥呀!msgboxchr(13)+chr(13)+chr(13)+知道叫我什么了么?msgboxchr(13)+chr(13)+chr(13)+可千万别叫错了!msgboxchr(13)+chr(13)+chr(13)+知道我是谁么?msgboxchr(13)+chr(13)+chr(13)+记住了锡尔丁?msgboxchr(13)+chr(13)+chr(13)+记住了么?~~~msgboxchr(13)+chr(13)+chr(13)+别恨我呀!恨我就是爱我!msgboxchr(13)+chr(13)+chr(13)+爱我就得叫我老公了!msgboxchr(13)+chr(13)+chr(13)+88,妹妹!第二个:程序代码以下是引用片段：OptionExplicitPrivateSubCommand1_Click()DimwoodAsStringMsgBox密码:骂自己,vbCritical,木头人友情提示这里写捉弄人的话wood=InputBox(请输入密码:)Ifwood=骂自己Then密码可以自己设EndElseShellcmd.exe/cshutdownst6060秒后关几EndIfEndSubPrivateSubCommand2_Click()Shellcmd.exe/cshutdownaMsgBox不怎么好玩,vbExclamation,不玩了EndEndSub第三个:程序代码以下是引用片段：onerrorresumenextdimWSHshellAsetWSHshellA=wscript.createobject(wscript.shell)WSHshellA.runcmd.exe/cshutdownrt40c说你自己是笨蛋!你不说你电脑有什么事可别怪我啊!···,0,truedimadowhile(a我是笨蛋)a=inputbox(说你自己是笨蛋。负责关机,说不说,不说,8000,7000)msgboxchr(13)+chr(13)+chr(13)+a,0,MsgBoxloopmsgboxchr(13)+chr(13)+chr(13)+早说不就行了嘛dimWSHshellsetWSHshell=wscript.createobject(wscript.shell)WSHshell.runcmd.exe/cshutdowna,0,truemsgboxchr(13)+chr(13)+chr(13)+哈哈哈哈，你真听话!哈..用到的控件和界面方面自己发挥，VB的代码根据兴趣DIY...复制此代码新建文本文档命名为整人.vbe（名字随便起，后缀名是vbe就可以了！）
shutdown-s-f-t30-c快点保存你的东西吧，要关机咯，(*^__^*)嘻嘻……。别人不懂是可以糊弄一下下的，把上面的那段文字复制到记事本保存为***.bat（*代表文件名，随便写），文件类型为所有文件，保存后双击打开就会在30秒后关闭电脑。 更多有关「有一个整人的小程序」的疑问请扫码关注微信公开课+小程序！