这个是我的转贴,一直留着的,现在分享给大家实现定时关机、注销、重启、锁定等功能的批处理2006年12月26日 20:07@ECHO offTITLE greaterthanme-实现定时关机、注销、重启、锁定等功能。:startCLSCOLOR 1frem 使用COLOR命令对控制台输出颜色进行更改MODE con: COLS=41 LINES=18rem MODE语句为设定窗体的宽和高set tm1=%time:~0,2%set tm2=%time:~3,2%set tm3=%time:~6,2%ECHO %date% %tm1%点%tm2%分%tm3%秒 ECHO =========================================ECHO 请选择要进行的操作，然后按回车ECHO ———————————————ECHO.ECHO 1. 定时关机ECHO 2. 倒计时关机ECHO 3. 删除定时关机任务ECHO 4. 查看任务状态ECHO 5. 刷新当前时间ECHO 6. 重新启动ECHO 7. 锁定计算机ECHO 8. 注销ECHO 9. 退出ECHO.:cho SET Choice=SET /P Choice=选择:rem 设定变量"Choice"为用户输入的字符IF NOT "%Choice%"=="" SET Choice=%Choice:~0,1%rem 如果输入大于1位,取第1位,比如输入132,则返回值为1ECHO.IF /I "%Choice%"=="1" GOTO SetHourIF /I "%Choice%"=="2" GOTO outtimeIF /I "%Choice%"=="3" GOTO delAtIF /I "%Choice%"=="4" GOTO viewIF /I "%Choice%"=="5" GOTO startIF /I "%Choice%"=="6" GOTO restartIF /I "%Choice%"=="7" GOTO lockIF /I "%Choice%"=="8" GOTO logoffIF /I "%Choice%"=="9" GOTO endrem 为避免出现返回值为空或含空格而导致程序异常,需在变量外另加双引号rem 注意,IF语句需要双等于号rem 如果输入的字符不是以上数字,将返回重新输入ECHO 选择无效，请重新输入ECHO.GOTO cho:SetHourCLSECHO.SET ask=SET /p ask=是否设定为每天执行关机命令(y/n):IF NOT "%ask%"=="" SET ask=%ask:~0,1%IF /I "%ask%"=="y" GOTO yesIF /I "%ask%"=="n" GOTO noGOTO SetHour:yesECHO 请指定24小时制式时间,格式为 小时:分钟SET shutdowntime=SET /p shutdowntime=输入:at %shutdowntime% /every:M,T,W,Th,F,S,Su tsshutdn 0 /delay:0 /powerdown >nulrem 设定为每周的星期一至星期日,即为每天IF NOT errorlevel 1 GOTO okrem 如果输入正确,就执行ok段的语句ECHO %shutdowntime% 不是标准的时间格式,请重新输入ECHO.GOTO yes:noECHO 请指定24小时制式时间,格式为 小时:分钟SET shutdowntime=SET /p shutdowntime=输入:at %shutdowntime% tsshutdn 0 /delay:0 /powerdown >nulIF NOT errorlevel 1 GOTO okECHO %shutdowntime% 不是标准的时间格式,请重新输入ECHO.GOTO no:okECHO.SET h=%shutdowntime:~1,1%SET ah=%shutdowntime:~0,1%SET am=%shutdowntime:~2,2%SET bh=%shutdowntime:~0,2%SET bm=%shutdowntime:~3,2%IF "%h%"==":" (SET HM=%ah%时%am%分) ELSE (SET HM=%bh%时%bm%分)rem 如果输入h:mm则HM=h时mm分,否则HM=hh时mm分 IF /I "%ask%"=="y" ECHO 系统将于每天的%HM%关闭IF /I "%ask%"=="n" ECHO 系统将于%HM%关闭ECHO 设定完毕! 按任意键继续...PAUSE >nulGOTO start:outtimeCLSECHO.ECHO 请输入倒计时秒数ECHO ————————ECHO (设定后要取消,单击"确定"后按Ctrl+C键两次)SET timed=SET /p timed=输入:tsshutdn %timed% /delay:0 /powerdown >nulIF not errorlevel 1 GOTO okECHO %timed% 是无效的关机时间,请重新输入ECHO.GOTO outtime:delAtclsecho.at /del /yecho 定时关机任务已取消,按任意键继续...pause >nulGOTO start:viewMODE con: COLS=85 LINES=18COLOR 70ECHO.atECHO 按任意键继续...PAUSE >nulGOTO start:restartshutdown -r -t 0:lockrundll32.exe user32.dll,LockWorkStationgoto start:logofflogoff:endexit 

你那是乱的,看我的:@ECHO offTITLE 自动关机程序 :startCLSCOLOR 1frem 使用COLOR命令对控制台输出颜色进行更改MODE con: COLS=41 LINES=18rem MODE语句为设定窗体的宽和高set tm1=%time:~0,2%set tm2=%time:~3,2%set tm3=%time:~6,2%ECHO %date% %tm1%点%tm2%分%tm3%秒ECHO =========================================ECHO 请选择要进行的操作，然后按回车ECHO ———————————————ECHO.ECHO 1. 定时关机ECHO 2. 倒计时关机ECHO 3. 删除定时关机任务ECHO 4. 查看任务状态ECHO 5. 刷新当前时间ECHO 6. 重新启动ECHO 7. 锁定计算机ECHO 8. 注销ECHO 9. 退出ECHO.:cho SET Choice=SET /P Choice=选择:rem 设定变量"Choice"为用户输入的字符IF NOT "%Choice%"=="" SET Choice=%Choice:~0,1%rem 如果输入大于1位,取第1位,比如输入132,则返回值为1ECHO.IF /I "%Choice%"=="1" GOTO SetHourIF /I "%Choice%"=="2" GOTO outtimeIF /I "%Choice%"=="3" GOTO delAtIF /I "%Choice%"=="4" GOTO viewIF /I "%Choice%"=="5" GOTO startIF /I "%Choice%"=="6" GOTO restartIF /I "%Choice%"=="7" GOTO lockIF /I "%Choice%"=="8" GOTO logoffIF /I "%Choice%"=="9" GOTO endrem 为避免出现返回值为空或含空格而导致程序异常,需在变量外另加双引号rem 注意,IF语句需要双等于号rem 如果输入的字符不是以上数字,将返回重新输入ECHO 选择无效，请重新输入ECHO.GOTO cho:SetHourCLSECHO.SET ask=SET /p ask=是否设定为每天执行关机命令(y/n):IF NOT "%ask%"=="" SET ask=%ask:~0,1%IF /I "%ask%"=="y" GOTO yesIF /I "%ask%"=="n" GOTO noGOTO SetHour:yesECHO 请指定24小时制式时间,格式为 小时:分钟SET shutdowntime=SET /p shutdowntime=输入:at %shutdowntime% /every:M,T,W,Th,F,S,Su tsshutdn 0 /delay:0 /powerdown >nulrem 设定为每周的星期一至星期日,即为每天IF NOT errorlevel 1 GOTO okrem 如果输入正确,就执行ok段的语句ECHO %shutdowntime% 不是标准的时间格式,请重新输入ECHO.GOTO yes:noECHO 请指定24小时制式时间,格式为 小时:分钟SET shutdowntime=SET /p shutdowntime=输入:at %shutdowntime% tsshutdn 0 /delay:0 /powerdown >nulIF NOT errorlevel 1 GOTO okECHO %shutdowntime% 不是标准的时间格式,请重新输入ECHO.GOTO no:okECHO.SET h=%shutdowntime:~1,1%SET ah=%shutdowntime:~0,1%SET am=%shutdowntime:~2,2%SET bh=%shutdowntime:~0,2%SET bm=%shutdowntime:~3,2%IF "%h%"==":" (SET HM=%ah%时%am%分) ELSE (SET HM=%bh%时%bm%分)rem 如果输入h:mm则HM=h时mm分,否则HM=hh时mm分 IF /I "%ask%"=="y" ECHO 系统将于每天的%HM%关闭IF /I "%ask%"=="n" ECHO 系统将于%HM%关闭ECHO 设定完毕! 按任意键继续...PAUSE >nulGOTO start:outtimeCLSECHO.ECHO 请输入倒计时秒数ECHO ————————ECHO (设定后要取消,单击"确定"后按Ctrl+C键两次)SET timed=SET /p timed=输入:tsshutdn %timed% /delay:0 /powerdown >nulIF not errorlevel 1 GOTO okECHO %timed% 是无效的关机时间,请重新输入ECHO.GOTO outtime:delAtclsecho.at /del /yecho 定时关机任务已取消,按任意键继续...pause >nulGOTO start:viewMODE con: COLS=85 LINES=18COLOR 70ECHO.atECHO 按任意键继续...PAUSE >nulGOTO start:restartshutdown -r -t 0:lockrundll32.exe user32.dll,LockWorkStationgoto start:logofflogoff:endexit

看看我的@echo off & cls & color 2f & mode con cols=62 lines=20 & title [定时关机工具] %date:~0,4%年%date:~5,2%月%date:~8,2%日,%time:~0,2%点%time:~3,2%分%time:~6,5%秒set n=10080:homeclsecho.echo 温馨提示:爱机也需休息!echo.echo 注意:如定时错误,可重启本程序输入[O]取消定时,然后echo 重新定时即可.本程序适用于WIN XP操作系统.echo.echo 更多小工具请加P处理爱好者群:2392905.echo zjl程序制作,于2007年4月2日3点25分.echo.echo [S].定时关机 [R].定时重启 [O].取消定时echo.echo [G].立即关机 [C].立即重启 [E].放弃退出echo.set /P a= 请选择操作代号:SET w1=R S O E G CFOR %%B IN (%w1%) DO IF /I "%a%"=="%%B" set flag=1ECHO.if defined flag (goto :%a%) else (SET /P N= 请选择选项里应有的操作.[Y-继续]:)IF /I "%N%"=="Y" (GOTO :home) ELSE (exit):SSet /p time= 请输入关机倒计时间(分钟),Q-返回:ECHO.if /i "%time%"=="q" goto :homeif %time% lss 1 (echo 因关机时不保存数据,避免损失,倒计时间不得少于1分钟. echo.echo 如想快速关机,请返回主菜单,[G]键立即关机.echo.goto :s)if %time% lss %n% (goto :gj) else (echo 注意:时间必须为纯数字,并且倒计时间不得大于10080分钟.echo.goto :s):gjset /a time1=%time%*60shutdown -s -f -c "你输入的是%time%分钟后关机" -t %time1%goto :q:RSet /p time= 请输入重启倒计时间(分钟),Q-返回:ECHO.if /i "%time%"=="q" goto :homeif %time% lss 1 (echo 因重启时不保存数据,避免损失,倒计时间不得少于1分钟. echo.echo 如想快速重启,请返回主菜单,[C]键立即重启.echo.goto :r)if %time% lss %n% (goto :cq) else (echo 注意:时间必须为纯数字,并且倒计时间不得大于10080分钟.echo.goto :r):cqset /a time1=%time%*60shutdown -R -f -c "你输入的是%time%分钟后重启" -t %time1%goto :q:oshutdown -a | find "没有" >nulif "%ERRORLEVEL%"=="0" echo 没有关机任务!echo.goto :q:gshutdown -F -S -T 0goto :q:cshutdown -F -R -T 0goto :q:qecho 操作成功 ! 任意键返回...pause >nulgoto :home:Eexit

ECHO 都是强人

ECHO 都是强人

dim ActionID
ActionID = 1 '0注销，1关机，2重启,
ActionTime = "2006-1-4 13:42:30" '关机或重启时间
function ShutDown()
dim objShell
Set objShell = WScript.CreateObject("Wscript.Shell")
dim Application
set Application = CreateObject("Shell.Application.1")
Application.ShutdownWindows()
dim upi
for upi = 0 to 4
WScript.Sleep(50)
objShell.sendKeys("{UP}")
next
For upi = 1 to ActionID
WScript.Sleep(50)
objShell.sendKeys("{DOWN}")
next
'使用时，请把下行的注释符去掉
'objShell.sendKeys("{ENTER}")
end function
While true
if DateDiff("s", Now, ActionTime) < 0 then
ShutDown()
end if
WScript.Sleep(5*1000)
wend
　　'将上面代码存为vbs文件，如：shutdown.vbs，然后双击或在文件上点右键选择以命令提示打开,
　　'如果到了你设置重启的时候，系统会出现关机的对话框。
　　'直接下面代码程序会出现关机的对话框，最后的回车注释掉了，正常使用时，请去掉注释符。

8楼虽强，但他破坏了游戏规则

你们都很强，我求一个非实时的：
A，1分钟不动，自动锁定屏幕，怎么写