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"打开任务管理器也没有什么软用的",4096+64 

MsgBox"给你讲个故事",4096+64 

MsgBox"从前有座山!",4096+64 

MsgBox"山里有个庙.",4096+64 

MsgBox"庙里有个老和尚在讲故事.",4096+64 

msgbox"哎呀累了！数绵羊哄我睡觉",4096+64 

for i=1 to 60

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

提示：

慎用！嘻嘻^-^。