admin管理员组

文章数量:1558098

操作：

新建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

提示：

慎用！嘻嘻^-^。

本文标签： 恶搞不掉代码vbs

版权声明：本文标题：vbs恶搞代码（1）（关不掉） 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dianzi/1727379922a1111858.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。