定时关机：基于Shutdown命令，兼容PE&桌面系统。

BEIKING

1. @echo off
   
2. if /i "%UserName%" == "SYSTEM" (Goto GotAdmin) else (reg query "HKLM\SYSTEM\ControlSet001\Control\MiniNT" 1>nul 2>nul&&Goto GotAdmin)
   
3. if exist %WinDir%\System32\fltMC.exe fltMC 1>nul 2>nul||mshta VBScript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c """"%~f0""""",,"runas",1)(Window.Close) 2>nul&&Exit /b
   
4. 
   
5. :GotAdmin
   
6. Title 定时关机&Color 2f
   
7. MODE 1>nul 2>nul&&MODE con: Cols=37 Lines=13
   
8. if not exist "%WinDir%\System32\shutdown.exe" if not exist "shutdown.exe" Call :EchoX "cf::找不到 Shutdown.exe 文件！"&Call :CDExit 5&Exit
   
9. Call :EchoX "xx::基于" "2e::Shutdown" "xx.:命令，兼容PE&桌面系统。"&echo ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
   
10. echo.&Call :EchoX "        [ " "70::[A]" "xx.:  设置自动关机 ]"
    
11. echo.&Call :EchoX "        [ " "70::[C]" "xx.:  取消自动关机 ]"
    
12. echo.&echo ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
    
13. Call :EchoX "9f::选择选项"&Choice /c AC
    
14. if '%ErrorLevel%' == '1' setlocal enabledelayedexpansion&Set err=0&Set flag=&Goto HInput
    
15. if '%ErrorLevel%' == '2' Shutdown /a 1>nul 2>nul&Cls&Call :EchoX "cf.: 已取消自动关机！"&Call :CDExit 3&Exit
    
16. 
    
17. :HInput
    
18. Cls&if !err! gtr 0 Call :EchoX "cf:: 小时数输入无效，请重新输入！" "cf.:(メ!err!)"
    
19. Call :EchoX "70:: 输入小时[0-23]："&Set hour=&Set /p hour=
    
20. echo "!hour!"|find "+"&&(Set "hour=!hour:+=!"&Set flag=[+])&(if "!hour:~0,1!" == "0" Set "hour=!hour:~1!")&Call :ChkInput hour 0 23 HInput
    
21. Set err=0
    
22. 
    
23. :MInput
    
24. Cls&Call :EchoX "70:: 输入小时[0-23]："&echo !hour!时%flag%
    
25. if !err! gtr 0 (Call :EchoX "cf:: 分钟数输入无效，请重新输入！" "cf.:(メ!err!)") else echo.
    
26. Call :EchoX "70:: 输入分钟[0-59]："&Set minute=&Set /p minute=
    
27. echo "!minute!"|find "+"&&(Set "minute=!minute:+=!"&Set flag=[+])&(if "!minute:~0,1!" == "0" Set "minute=!minute:~1!")&Call :ChkInput minute 0 59 MInput
    
28. Set err=0
    
29. 
    
30. :SInput
    
31. Cls&Call :EchoX "70:: 输入小时[0-23]："&echo !hour!时%flag%
    
32. echo.&Call :EchoX "70:: 输入分钟[0-59]："&echo !minute!分%flag%
    
33. if !err! gtr 0 (Call :EchoX "cf:: 秒数输入无效，请重新输入！" "cf.:(メ!err!)") else echo.
    
34. Call :EchoX "70:: 输入秒数[0-59]："&Set second=&Set /p second=
    
35. echo "!second!"|find "+"&&(Set "second=!second:+=!"&Set flag=[+])&(if "!second:~0,1!" == "0" Set "second=!second:~1!")&Call :ChkInput second 0 59 SInput
    
36. 
    
37. :AutoOff
    
38. Cls&Call :EchoX "70:: 输入小时[0-23]："&echo !hour!时%flag%
    
39. echo.&Call :EchoX "70:: 输入分钟[0-59]："&echo !minute!分%flag%
    
40. echo.&Call :EchoX "70:: 输入秒数[0-59]："&echo !second!秒%flag%
    
41. Set "nowh=%time:~0,2%"&Set "nowm=%time:~3,2%"&Set "nows=%time:~6,2%"
    
42. (if "!nowh:~0,1!" == "0" Set nowh=!nowh:~1!)&(if "!nowm:~0,1!" == "0" Set nowm=!nowm:~1!)&(if "!nows:~0,1!" == "0" Set nows=!nows:~1!)
    
43. echo ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿&Call :EchoX "9f:: 当前时间："&echo !nowh!时!nowm!分!nows!秒
    
44. if !hour! lss !nowh! Set /a h=24-!nowh!+!hour!
    
45. if !hour! geq !nowh! Set /a h=!hour!-!nowh!
    
46. Set /a m=!h!*60+(!minute!-!nowm!)
    
47. if !minute! lss !nowm! Set /a h-=1
    
48. if !h! == -1 Set h=23&Set /a m=24*60-(!nowm!-!minute!)
    
49. Set /a s=!m!*60+(!second!-!nows!)
    
50. if !second! lss !nows! Set /a m-=1
    
51. if !m! == -1 Set h=23&Set /a m=24*60-1&Set /a s=24*60*60-(!nows!-!second!)
    
52. Set sum=!s!&Set /a m=!m!%%60&Set /a s=!s!%%60
    
53. if "%flag%" == "[+]" Set h=!hour!&Set m=!minute!&Set s=!second!&Set /a sum=(!h!*60+!m!)*60+!s!
    
54. echo.&Call :EchoX "9f:: 关机时间："&echo !hour!时!minute!分!second!秒%flag% (!sum!秒后)
    
55. Call :EchoX "     " "70::用时：" "xx.:!h!时!m!分!s!秒"
    
56. Shutdown /a 1>nul 2>nul&Shutdown /s /t !sum! 1>nul 2>nul
    
57. endlocal&Title 任意键退出&Pause >nul&Exit
    
58. 
    
59. :ChkInput :: 检测输入
    
60. Set "%1=!%1:"=!"
    
61. if "!%1:~-1!" == "=" Set %1=0
    
62. Set "%1=!%1: =!"
    
63. if not defined %1 Set %1=0
    
64. findstr /? 1>nul 2>nul||Goto ChkRange
    
65. echo "!%1!"|findstr /i /v [^|^<^>^&A-z`~!@#$%%*()_+=\\\[\]{};:',./?^^-] 1>nul 2>nul||(Set /a err+=1&Goto %4)
    
66. :ChkRange
    
67. if /i !%1! lss %2 (Set /a err+=1&Goto %4)
    
68. if "%flag%" neq "[+]" if /i !%1! gtr %3 (Set /a err+=1&Goto %4)
    
69. Goto :eof
    
70. 
    
71. :CDExit :: 标题栏倒计时退出 <%1=Sec|延迟秒数>
    
72. Set n=%1
    
73. :CDLoop
    
74. Title %n%秒后退出&if %n% == 0 Exit
    
75. if exist %WinDir%\System32\timeout.exe (timeout /t 1 >nul) else if exist %WinDir%\System32\choice.exe (choice /t 1 /d y /n >nul) else ping 127.1 -n 1 >nul
    
76. Set /a n-=1&Goto CDLoop
    
77. 
    
78. :EchoX :: 显示彩色文字 (不支持半角字符 \ / : * ? " < >|. % ! ~)。
    
79. setlocal enabledelayedexpansion
    
80. Set echox=EchoX.exe&&!echox! 1>nul 2>nul||(Set echox=&mkdir "%TEMP%\EchoX" 2>nul)
    
81. for %%a in (%*) do (
    
82.     Set "param=%%a"&Set "param=!param:"=!"
    
83.     Set "color=!param:~0,2!"&(if not exist %WinDir%\System32\findstr.exe if not defined echox Set "color=xx")
    
84.     Set n=0&(if "!param:~2,2!" == "::" Set n=1)&(if "!param:~2,2!" == ".:" Set n=2)
    
85.     if !n! gtr 0 (
    
86.         if /i "!color!" == "xx" (Set /p="_!param:~4!"<nul) else (Set param=%%~nxa&if defined echox (!echox! -c !color! -n "!param:~4!") else (Pushd "%TEMP%\EchoX" 2>nul&>"!param:~4!",Set /p= <nul&findstr /a:!color! .* "!param:~4!*"&del "!param:~4!"&Popd))
    
87.         if !n! == 2 echo.
    
88.     ) else if defined param Set /p="_!param!"<nul
    
89. )
    
90. endlocal
    
91. Goto :eof

复制代码

数字后如果跟+号，表示按输入延后多长时间关机
比如延后10分钟关机，则在输入分钟数：10+
      验收1小时关机，则在输入小时数：1+
直接回车为默认0

yyz2191958

好东西 谢谢

有阴也有阳

唉！不错！！！

享β亻寸木东

好东西 谢谢

yc2428

谢谢分享

无犹启动

谢谢分享  学习一下

创新科技2015

谢谢分享  学习一下

ppll2030

nice~！

ljm008

这批处理技术不错啊

Anson4

批处理达人

zlzx01

谢谢分享

Fastwingo

感谢分享

ldkvfeng

win10以管理员运行后闪下就退了

呵呵#1861

学习一下

2012myjoys

Win11，闪了一下，不见了

BEIKING

2012myjoys 发表于 2024-1-21 21:50
Win11，闪了一下，不见了

文本编码的问题，，不能用UTF-8保存，，要用ANSI

2012myjoys

BEIKING 发表于 2024-1-21 22:21
文本编码的问题，，不能用UTF-8保存，，要用ANSI

还真的是

lzf219

感谢分享

jude886

直接回车?我试试看