如果你是小白的话也不用急，我们一步一步来。
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",0case 2 ws.run"cmd.exe /c shutdown -a ",0end select end sub
以上中文处可随意修改，大佬忽略此话
补充几个整人代码：
电脑十秒后重启
set ws=createobject("wscript.shell")ws.run"cmd.exe /c shutdown -r -t 10"
部分电脑卡死（无限刷新）
set ws=createobject("wscript.shell") dows.sendkeys "{f5}" loop
撩小姐姐的，自由发挥哦
msgbox("小姐姐")msgbox("小姐姐")msgbox("呼叫小姐姐")a=msgbox("小姐姐有时间吗？",vbYesNo,"玩个游戏哦")if (a=vbYes) thenmsgbox("嘿嘿嘿，那我们可以继续玩下去了！！！")msgbox("那。。。。。。我就问你一个问题啊")msgbox("你觉得自己漂不漂亮？")msgbox("温馨提示：")msgbox("要有自信哦")b=msgbox("漂不漂亮？",vbYesNo,"漂亮")if (b=vbYes ) thenmsgbox("我也这么觉得")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 ifnexta3=a1a1=a2a2=a3nextprinter=send functionmsgbox("嘿嘿嘿")msgbox("嗯，虽然我也赞同这一点")msgbox("但")msgbox("我还是想皮一下")do msgbox("哈哈哈")msgbox("哈哈哈")msgbox("玩不过我吧")msgbox("哈哈哈")msgbox("哈哈哈")msgbox("打不到我吧")msgbox("没有办法")msgbox("就是这么强大")msgbox("啦啦啦啦")msgbox("啦啦啦啦")msgbox("啦啦啦啦")loopelsemsgbox("啥？")msgbox("我没听清")msgbox("这么不自信？")msgbox("和我的观点不一样")msgbox("后果很严重")msgbox("所以，准备惩罚你一下")msgbox("带你数绵羊吧")Set s = CreateObject("sapi.spvoice")i=0Do while i<100s.speak ii=i+1if i=66 then exit doloopend ifelse 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脚本）》对你有帮助，请点赞、收藏，并留下你的观点哦！
