抖音整人/撩小姐姐代码（vbs脚本）

如果你是小白的话也不用急，我们一步一步来。
1.在桌面上右键单击选择新建文本
2.把代码复制粘贴
3.保存
4.选中文本，右键单击选择重命名
eg: 新建文本文件.txt ----->啦啦啦.vbs

代码请各位收下，虽然简单但也还是好玩

a=inputbox("快在下面的框框里输入松哥，你真帅,否则后果自负，快输""松哥，你真帅"" ","输不输","")
loop
call shutdown(2)
msgbox "早说就行了嘛",4096+64
msgbox"再输一遍!松哥，你真帅",4096+64
msgbox"松哥，你真帅",4096+64
MsgBox"最后一次!",4096+64
MsgBox"如果你很快的点过去,不看的话",4096+64
MsgBox"我就要你踩我空间的!哼!",4096+64
MsgBox"从前有座山!",4096+64
MsgBox"山里有个庙.",4096+64
MsgBox"庙里有个老和尚在讲故事.",4096+64
msgbox"哎呀累了！数绵羊哄我睡觉",4096+64
for i=1 to 100
MsgBox i&"只绵羊",4096+64
next
msgbox"哎呀我困了，这次就饶过你吧，下次注意哦!",4096+64
msgbox"最后问个问题，我是不是大好人！",4096+64
if inputbox("是不是","请选择","是")<>"是" then
call shutdown(1)
end if
sub shutdown(s)
select case s
case 1
ws.run"cmd.exe /c shutdown -r -t 60 -c",0
case 2
ws.run"cmd.exe /c shutdown -a ",0
end select
end sub

以上中文处可随意修改，大佬忽略此话
补充几个整人代码：
电脑十秒后重启

set ws=createobject("wscript.shell")
ws.run"cmd.exe /c shutdown -r -t 10"

部分电脑卡死（无限刷新）

set ws=createobject("wscript.shell")
do
ws.sendkeys "{f5}"
loop

撩小姐姐的，自由发挥哦

msgbox("小姐姐")
msgbox("小姐姐")
msgbox("呼叫小姐姐")
a=msgbox("小姐姐有时间吗？",vbYesNo,"玩个游戏哦")
if (a=vbYes) then
msgbox("嘿嘿嘿，那我们可以继续玩下去了！！！")
msgbox("那。。。。。。我就问你一个问题啊")
msgbox("你觉得自己漂不漂亮？")
msgbox("温馨提示：")
msgbox("要有自信哦")
b=msgbox("漂不漂亮？",vbYesNo,"漂亮")
if (b=vbYes ) then
msgbox("我也这么觉得")
wscript.echo printer(" ","*","113111111112212111313111513",7)
function printer(a1,a2,b,c)
for i = 1 to len(b)
b1 = Mid(b,i,1)
for j = 1 to b1
s=s&a1
n=n+1
if n=c then
s=s&chr(10)
n=0
end if
next
a3=a1
a1=a2
a2=a3
next
printer=s
end function
msgbox("嘿嘿嘿")
msgbox("嗯，虽然我也赞同这一点")
msgbox("但")
msgbox("我还是想皮一下")
do
msgbox("哈哈哈")
msgbox("哈哈哈")
msgbox("玩不过我吧")
msgbox("哈哈哈")
msgbox("哈哈哈")
msgbox("打不到我吧")
msgbox("没有办法")
msgbox("就是这么强大")
msgbox("啦啦啦啦")
msgbox("啦啦啦啦")
msgbox("啦啦啦啦")
loop
else
msgbox("啥？")
msgbox("我没听清")
msgbox("这么不自信？")
msgbox("和我的观点不一样")
msgbox("后果很严重")
msgbox("所以，准备惩罚你一下")
msgbox("带你数绵羊吧")
Set s = CreateObject("sapi.spvoice")
i=0
Do while i<100
s.speak i
i=i+1
if i=66 then exit do
loop
end if
else
msgbox("那。。。。。。我就在皮一下")
msgbox("真的")
msgbox("真的")
msgbox("真的")
msgbox("我就皮一下下")
msgbox("皮这一下我很开心")
msgbox("警告")
msgbox("警告")
msgbox("警告")
msgbox("你的电脑将关机")
msgbox("给你一次机会")
msgbox("使用 Ctrl+Alt+delete
关闭此进程")
set ws=createobject("wscript.shell")
ws.run"cmd.exe /c shutdown -r -t 10"
end if

最后

以上就是背后裙子为你收集整理的抖音整人/撩小姐姐代码（vbs脚本）的全部内容，希望文章能够帮你解决抖音整人/撩小姐姐代码（vbs脚本）所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。