关机的小程序

连夜下资源的时候 笔记本断网 就这样 白开了一夜 早上起来是不是很烦

于是我写个批处理，虽然不会重连wifi，但是 至少能在断网后\一段时间后 让笔记本 自己关掉

@echo off&setlocal enabledelayedexpansion
title win8请 管理员权限启动我~
color
echo.
echo first-run
echo wscript.sleep 500>bre.vbs
echo.
echo.
echo win8请用管理员权限启动我~
echo 不会用先看说明吧---(42) 

echo.
pause
goto choice
:color
cls
echo wscript.sleep 001>r.vbs
echo 悟空你又调皮了
color 2a
call r.vbs
color 2b
call r.vbs
color 2c
call r.vbs
color 2d
call r.vbs
color 2e
call r.vbs
color 2f
call r.vbs
rem ping/n 1 127.1>nul
call bre.vbs
cls&del r.vbs 
goto choice

:choice
cls
title hi~
echo.
echo 输入42----help and about
echo. 
echo 输入0----exit
echo 输入1----延时关机
echo 输入2----断网后延时1min关机
echo 输入3----取消关机任务
echo.
set play=1
set /p play=请选择:
if %play%==0 goto 0
if %play%==1 goto 1
if %play%==2 goto 2
if %play%==3 shutdown -a&goto choice

if %play%==42 goto help

if %play% GEQ 4 goto color


:bre
echo %play%
echo CreateObject("SAPI.SpVoice").Speak"%play%">1.vbs&call 1.vbs 
goto choice

:0
if exist del bre.vbs
if exist del 1.vbs
if exist del r.vbs
exit

:1
set time=1
set /p time=几秒钟后关机？
if exist tem.txt ren tem.txt Bdus.txt
if exist tem.bat ren tem.bat Bdus.bat
rem pause
echo shutdown /s /t %time%>tem.txt
rem shutdown /s /t %time%
ren tem.txt tem.bat

rem pause
call tem.bat&del tem.bat
rem pause
if exist Bdus.txt ren Bdus.txt tem.txt
if exist Bdus.bat ren Bdus.bat tem.bat
goto choice
rem 这里非常
/*
2014-2-4 23:11:10
这里（：1）非常奇怪，
本来的代码是
“
set time=1
set /p time=几秒钟后关机？
shutdown /s /t %time%
”
但是没有结果

改成现在这一大堆后 问题依旧！！
在我调用了tem.bat之后，还是不会执行命令。
如果用start 更是报错 蛋疼 
明天吧choice的cls去掉 看一看 是否报错

2014-2-5 12:12:12
仍然改成较长的版本后。
在winxp上测试 发现call命令执行正常
因该是 win8 的问题 （call tem之后不执行命令 左双击tem 打开的是 这个文件 非常奇怪）

btw,调程序很无聊么……姐都可怜的看着我 你玩电脑 就是弄这个么 --“

*/

:2
title c u soon~
set n=0
:loop
if %n%==20 set /a n=0
rem echo n=%n%
set /a n=%n%+1
rem echo first&pause>nul
rem echo secend&pause>nul
ping 220.181.111.86 -4>nul
rem IF ERRORLEVEL 0 shutdown -a else goto choice
IF ERRORLEVEL 1 goto shut
echo n=%n%
IF ERRORLEVEL 0 goto loop

:shut
shutdown /s /t 300
goto 0


:cls
rem cls
echo.
echo 输入42----get-help
echo. 
echo 输入0----exit
echo 输入1----延时关机
echo 输入2----断网后延时5min关机
echo 输入3----取消关机任务
goto choice




:help
cls
title help
echo.
echo.
echo 为什么是42？我也不知道，参见《银河系漫游指南》
echo.

echo 延时关机
echo 就是关机倒计时，你可以自己选择 倒计时多少秒后自动关机。
echo.
echo 断网后关机
echo  我多用在整夜下载资源的时候，一旦笔记本的WIFI断掉，又没自动连接，很烦人，不如让他去死
echo.
echo 你后悔了，就按3
echo.
echo.
echo P.S 在win8下 请右键 以管理员权限打开 我~
echo 如果你装的什么渣国产杀软报错 “发现木马~ bre.vbs”不要
echo 鸟他哈。直接白名单 或者删掉就好 不要弄其他的。 
echo 还有 第二个功能 在个别win7/8系统里面还有点小毛病 。
echo.
echo 运行后如果发现 目录下多了个 后缀为vbs的文件 表怕 任你处置。
echo.
pause&cls
echo.
echo CreateObject("SAPI.SpVoice").Speak"hello darling">1.vbs&call 1.vbs&del 1.vbs
echo 如果你刚才没有听见你的电脑说一声 “hello darling” 说明是你该去装个正版win7/8了
echo.
echo.


echo.
echo.
title 你有问题他有问题都能来找我~
echo 关于
echo version 2.03
echo.
echo author
echo email：bdus.00@gmail.com
echo sina：@bdus-00
echo.
echo 你有问题他有问题都能来找我~
echo.
pause
goto choice

很简单

还写了一大堆 无聊的注释 见笑了