vbs恶搞代码（1）（关不掉）

目录

操作：

代码如下：

---

操作：

新建txt文件

粘贴代码

将其保存为vbs格式，

双击运行就可以了

代码如下：

                                              丑不拉几的分割线                                                     

set ws=createobject("wscript.shell") 

call shutdown(1) 

do while a<>"我是笨蛋"

a=inputbox("笨蛋，笨蛋，关不掉我"" ","一个错误","") 

loop

call shutdown(2) 

msgbox"没错",4096+64 

msgbox"但是你关不掉我",4096+64 

msgbox"真的",4096+64 

MsgBox"你不信？",4096+64 

MsgBox("shutdown -s -t 60")

MsgBox("shutdown -s -t 60")

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 

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 

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 

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 

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

                                              丑不拉几的分割线                                                     

本代码运行后只有关机和完成所有弹窗才能关掉！！！

望大佬点点赞，并指出错误！！！

点个关注再走吧！！！