请输入“我是猪”否则关机 附源代码 跟说明

请输入“我是猪”否则关机 附源代码 跟说明

功能说明：

当打开 本脚本后 会 弹出提示窗 叫你输入 ‘我是猪’ 3个字

否则会关闭计算机,可不是闹着玩的咯，还真会关机的，呵呵








源代码 如下
 on error resume next  dim WSHshellA  set WSHshellA = wscript.createobject("wscript.shell")  WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""请在弹出的对话框中输入‘我是猪’并且点确定，否则我帮你关机,目前倒计时60秒，有种就别说"" ",0 ,true    dim a  do while(a <> "我是猪")  a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪""　","www.hackstudy.cn"," 请输入“我是猪”并且点确定，终止关机倒计时",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) + "哈哈哈哈，真过瘾"


或者 直接下载

http://www.iqshw.com/qzone/soft/我是猪.vbs

大家 直接下载 VBS文件后，用文本打开，可以随意修改里面的内容

原理 就是 运用了 系统 自带的关机命令


大家 点 开始---运行 输入 命令 cmd.exe /c shutdown -r -t 60 -c

也是一样的 终止 计时的话 输入 cmd.exe /c shutdown -a 即可

做成 VBS 脚本后 增加 趣味与 恶搞 呵呵，感谢大家支持 。

别做坏事哦 ^_^ 2008-07-06 BY 亮亮