Board logo

标题: [系统相关] 求助，批处理bat如何实现倒计时及自动化处理？ [打印本页]
作者: 诗与远方    时间: 2024-8-17 11:53     标题: 求助，批处理bat如何实现倒计时及自动化处理？

想解决几个问题：
1，使用mode con cols=80 lines=27，会有大框变成小框的过程，如果我在后面想改变这个底颜色Color F0，从黑框到白框的变化会更明显，这个闪烁如何避免？尽量以bat实现。
2、实现等待5秒自动输入数字1并回车执行。
3、10秒后无输入自动关闭，并且在标题栏有10秒自动退出提醒。尽量以bat实现。
4、限制输入，只能输入指定字符，其它字符会提示错误。
5、实现以上操作不清屏，有输入重新计算时间倒计时退出。



以下是我的主要代码：
  1. @echo off

  2. Title 标题内容

  3. 

  4. mode con cols=80 lines=27

  5. 

  6. Color F0

  7. 

  8. 

  9. SETLOCAL EnableDelayedExpansion

  10. for /F "tokens=1,2 delims=#" %%a in ('"prompt #$H#$E# & echo on & for %%b in (1) do rem"') do (

  11.   set "DEL=%%a"

  12. )

  13. 

  14. 

  15. set "PROXY1=0.0.0.0:1082"

  16. set "PROXY2=192.168.1.1:1082"

  17. set "PROXY3=192.168.2.1:7897"

  18. set "PROXY4=192.168.3.1:7897"

  19. set "PROXYb=127.0.0.1:7897"

  20. 

  21. :exec

  22. echo ==============================================================================

  23. echo.

  24. echo    1.启动A 

  25. echo.

  26. echo    2.启动B 

  27. echo.

  28. echo    3.启动C 

  29. echo.

  30. echo    4.启动D 

  31. echo.

  32. echo    0.关闭

  33. echo.

  34. echo    b.本地

  35. echo.

  36. echo    q.退出

  37. echo.

  38. echo ==============================================================================

  39. echo 【帮助】根据需要选择对应数字回车即可。有问题找管理员。

  40. echo.

  41. set /p n=  输入数字编号按回车确认:

  42. echo.

  43. if "%n%"=="" cls&goto :exec

  44. if "%n%"=="0" call :0

  45. 

  46. if "%n%"=="1" call :1

  47. if "%n%"=="2" call :2

  48. if "%n%"=="3" call :3

  49. if "%n%"=="4" call :4

  50. 

  51. if "%n%"=="b" call :b

  52. if "%n%"=="B" call :b

  53. if /i "%n%"=="q" exit

  54. if /i "%n%"=="Q" exit

  55. pause

  56. goto :eof

  57. 

  58. :1

  59. CLS

  60. echo.

  61. call :ColorText 2F "                                                                              "

  62. echo.

  63. call :ColorText 2F "--------------------------------成功启动A---------------------------------"

  64. echo.

  65. call :ColorText 2F "                                                                              "

  66. echo.

  67. echo.

  68. echo.

  69. set "PROXY=%PROXY1%"

  70. reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 1 /f    > NUL 2>&1

  71. reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /d "%PROXY%" /f    > NUL 2>&1

  72. goto :exec

  73. 

  74. :2

  75. CLS

  76. echo.

  77. call :ColorText 2F "                                                                              "

  78. echo.

  79. call :ColorText 2F "--------------------------------成功启动B---------------------------------"

  80. echo.

  81. call :ColorText 2F "                                                                              "

  82. echo.

  83. echo.

  84. echo.

  85. set "PROXY=%PROXY2%"

  86. reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 1 /f    > NUL 2>&1

  87. reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /d "%PROXY%" /f    > NUL 2>&1

  88. goto :exec

  89. 

  90. :3

  91. CLS

  92. echo.

  93. call :ColorText 2F "                                                                              "

  94. echo.

  95. call :ColorText 2F "--------------------------------成功启动C---------------------------------"

  96. echo.

  97. call :ColorText 2F "                                                                              "

  98. echo.

  99. echo.

  100. echo.

  101. set "PROXY=%PROXY3%"

  102. reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 1 /f    > NUL 2>&1

  103. reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /d "%PROXY%" /f    > NUL 2>&1

  104. goto :exec

  105. 

  106. :4

  107. CLS

  108. echo.

  109. call :ColorText 2F "                                                                              "

  110. echo.

  111. call :ColorText 2F "--------------------------------成功启动D---------------------------------"

  112. echo.

  113. call :ColorText 2F "                                                                              "

  114. echo.

  115. echo.

  116. echo.

  117. set "PROXY=%PROXY4%"

  118. reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 1 /f    > NUL 2>&1

  119. reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /d "%PROXY%" /f    > NUL 2>&1

  120. goto :exec

  121. 

  122. :b

  123. CLS

  124. echo.

  125. call :ColorText 2F "                                                                              "

  126. echo.

  127. call :ColorText 2F "------------------------------成功切换回本地------------------------------"

  128. echo.

  129. call :ColorText 2F "                                                                              "

  130. echo.

  131. echo.

  132. echo.

  133. set "PROXY=%PROXYb%"

  134. reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 1 /f    > NUL 2>&1

  135. reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /d "%PROXY%" /f    > NUL 2>&1

  136. goto :exec

  137. 

  138. 

  139. :0

  140. CLS

  141. echo.

  142. call :ColorText 4e "                                                                              "

  143. echo.

  144. call :ColorText 4e "---------------------------------已关闭-----------------------------------"

  145. echo.

  146. call :ColorText 4e "                                                                              "

  147. echo.

  148. echo.

  149. echo.

  150. reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 0 /f    > NUL 2>&1

  151. reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /d "" /f    > NUL 2>&1

  152. goto :exec

  153. 

  154. 

  155. 

  156. 

  157. goto :eof

  158. :ColorText

  159. echo off

  160. <nul set /p ".=%DEL%" > "%~2"

  161. findstr /v /a:%1 /R "^$" "%~2" nul

  162. del "%~2" > nul 2>&1

  163. goto :eof
复制代码
这是我从网上找到的参考
指定字符的：
  1. @echo off

  2. :zt1

  3. echo.

  4. SET Choice=

  5. echo      #三个选择

  6. for /f "delims=" %%a in ('xcopy /w . . 2^>nul') do if not defined Choice set "Choice=%%a"

  7. echo.

  8. set "Choice=%Choice:~-1%"

  9. IF "%Choice:"=""%" EQU "1" GOTO a

  10. IF "%Choice:"=""%" EQU "2" GOTO b

  11. IF "%Choice:"=""%" EQU "3" GOTO c

  12. echo 输入有误，请重新输入

  13. goto zt1
复制代码
这是在论坛内找到的退出
  1. @echo off

  2. if not "%1"=="" goto %1

  3. del "%temp%\#" 2>nul

  4. start /b %~fs0 :aa

  5. :agn

  6. set/p=按任意键退出...<nul&pause>nul

  7. >"%temp%\#" type nul

  8. exit

  9. :aa

  10. for /l %%a in (10 -1 1) do (

  11.    title 倒计时 %%a 秒后自动退出...

  12.    if exist "%temp%\#" (

  13.       del "%temp%\#"

  14.       exit

  15.    )

  16.    ping -n 2 127.1>nul

  17. )

  18. title 自动退出...

  19. for /f "tokens=2" %%a in ('tasklist /fi "windowtitle eq 自动退出..." /nh') do (

  20.    taskkill /f /pid %%a >nul

  21. )

  22. exit
复制代码
作者: 77七    时间: 2024-8-17 12:30

2、3条不是矛盾的吗？
作者: Five66    时间: 2024-8-17 14:18

bat是同步的，2，3点难搞
作者: 诗与远方    时间: 2024-8-17 14:21

回复 2# 77七


    不矛盾，一个是自动敲键盘1回车，一个是自动关闭批处理界面，难点在于怎么同步进行，做并行任务。
作者: 77七    时间: 2024-8-17 14:37

回复 4# 诗与远方


   假如打开批处理没有任何操作，是怎么进行的？
作者: Five66    时间: 2024-8-17 14:45

不用set /p
用CHOICE可能比较好搞
作者: aloha20200628    时间: 2024-8-17 14:48

本帖最后由 aloha20200628 于 2024-8-17 15:54 编辑

回复 5# 77七
回复 4# 诗与远方

给一个示例代码说明两个并行进程互相协调...
主批存为 test.bat，次批 _tmp_.bat 须与 test.bat 同目录，两者用一个临时文件 "c:\temp\_tmp_.0" 握手
  1. @echo off &setlocal &del /q "c:\temp\_tmp_.0" 2>nul

  2. start "_tmp_" _tmp_.bat

  3. timeout /t 5 /nobreak>nul

  4. if not exist "c:\temp\_tmp_.0" (

  5. 	taskkill /f /fi "windowTitle eq _tmp_ - _tmp_.bat">nul 2>nul

  6. 	goto[end]

  7. )

  8. set/p v=<"c:\temp\_tmp_.0"

  9. echo,%v%

  10. :[end]

  11. endlocal&pause&exit/b
复制代码
附录 _tmp_.bat
  1. @echo off &setlocal

  2. set/p "v=输入: "

  3. set/p="%v%"<nul>"c:\temp\_tmp_.0"

  4. endlocal&exit
复制代码
作者: 诗与远方    时间: 2024-8-17 14:51

回复 5# 77七


    倒计时即是一种方式，到指定时间后自动执行。
作者: 诗与远方    时间: 2024-8-17 14:53

回复 7# aloha20200628


    有些复杂化了，增加了不稳定因素，那可以在一个bat里面，自动在本地生成文件，然后这几个文件按指定顺序在本地分别执行？
作者: 77七    时间: 2024-8-17 15:34

一个bat应该能实现，不一样非要往并行上考虑，没多大关系。
作者: aloha20200628    时间: 2024-8-17 15:46

本帖最后由 aloha20200628 于 2024-8-17 15:49 编辑


如果不扯那些 powershell/python/... 等第三方外援，仅在批处能力范围内谈两个并行进程的协调，没有 start 发威是很难的...
调用 set/p 等候即时输入就会阻塞当前的批处进程，多长时间输入与否要靠另一个批处进程监控处理，7楼代码为此给一个参考方法〉主批先开启次批进程并监控其时长和结果...
至于次批的生成方案都很简单，是预备还是实时均由楼主自便...
作者: 77七    时间: 2024-8-17 15:57

本帖最后由 77七 于 2024-8-17 16:08 编辑 
  1. @echo off

  2. set n=10

  3. :loop

  4. title %n% 秒后退出

  5. echo   1.启动A

  6. echo   2.启动B

  7. rem ...

  8. echo   q.退出

  9. choice /c 12340bqc /t 1 /d c /m 输入数字编号按回车确认:

  10. if errorlevel 8 (

  11. 	set /a n-=1

  12. 	if %n% equ 5 (

  13. 		if not defined k (

  14. 			echo 执行 1

  15. 			rem 因为清屏，延时 3秒以表示执行1

  16. 			timeout 3

  17. 		)

  18. 	)

  19. ) else (

  20. 	rem 仅演示 实际从7开始

  21. 	if errorlevel 1 (

  22. 		echo 执行 1

  23. 		rem 因为清屏，延时 3秒以表示执行1

  24. 		timeout 3

  25. 	)

  26. 	rem 用户操作，重设退出时间

  27. 	set n=10

  28. 	set k=1

  29. 

  30. )

  31. if %n% equ 0 (

  32. 	exit

  33. )

  34. cls

  35. goto :loop
复制代码
楼主描述的不是很完整，包括用户操作后的退出时间等等...代码中暂时定为操作后10秒
作者: aloha20200628    时间: 2024-8-17 16:20

本帖最后由 aloha20200628 于 2024-8-17 16:22 编辑

回复 1# 诗与远方

系统命令 choice 提供延时输入等功能，为何楼主采用 set/p 而不首选 choice
choice 参数列表:
   /C    choices       指定要创建的选项列表。默认列表是 "YN"。
   /N                  在提示符中隐藏选项列表。提示前面的消息得到显示，选项依旧处于启用状态。
   /CS                 允许选择分大小写的选项。在默认情况下，这个工具是不分大小写的。
   /T    timeout       做出默认选择之前，暂停的秒数。可接受的值是从 0 到 9999。如果指定了 0，就不会有暂停，默认选项会得到选择。
   /D    choice        在 nnnn 秒之后指定默认选项。字符必须在用 /C 选项指定的一组选择中; 同时，必须用 /T 指定 nnnn。
   /M    text          指定提示之前要显示的消息。如果没有指定，工具只显示提示。
作者: 77七    时间: 2024-8-17 16:20

没注意楼主的第5条，第2点。第1点不清屏，可以参考下 大佬的研究 ANSI的esc转义序列功能强大 ，试试是不是能删除行。另外楼主的文字及背景颜色也可以参考解决。
作者: mnokoko    时间: 2024-8-18 00:55

  1. @echo off&&mode con cols=80 lines=27

  2. :init

  3. setlocal DisableDelayedExpansion

  4. set "batchPath=%~0"

  5. for %%k in (%0) do set batchName=%%~nk

  6. set "vbsGetPrivileges=%temp%\MYSQL_INIT_getPriv_%batchName%.vbs"

  7. setlocal EnableDelayedExpansion

  8. :checkPrivileges

  9. NET FILE 1>NUL 2>NUL

  10. if '%errorlevel%' == '0' ( goto gotPrivileges ) else ( goto getPrivileges )

  11. :getPrivileges

  12. if '%1'=='ELEV' (echo ELEV & shift /1 & goto gotPrivileges)

  13. ECHO Set UAC = CreateObject^("Shell.Application"^) > "%vbsGetPrivileges%"

  14. ECHO args = "ELEV " >> "%vbsGetPrivileges%"

  15. ECHO For Each strArg in WScript.Arguments >> "%vbsGetPrivileges%"

  16. ECHO args = args ^& strArg ^& " "  >> "%vbsGetPrivileges%"

  17. ECHO Next >> "%vbsGetPrivileges%"

  18. ECHO UAC.ShellExecute "!batchPath!", args, "", "runas", 1 >> "%vbsGetPrivileges%"

  19. "%SystemRoot%\System32\WScript.exe" "%vbsGetPrivileges%" %*

  20. exit /B

  21. :gotPrivileges

  22. setlocal & pushd .

  23. cd /d %~dp0

  24. if '%1'=='ELEV' (del "%vbsGetPrivileges%" 1>nul 2>nul  &  shift /1)

  25. 

  26. :input

  27. @echo off&if not "%1"=="" call%*&exit||{zb-2024-06-05}

  28. :begin

  29. call:timeout 10 :tsk1 0 :tsk2

  30. :tsk1

  31. echo\&echo 【默认计划】

  32. goto :Abat

  33. :tsk2

  34. echo\&echo 【自定义计划】

  35. goto :Bbat

  36. 

  37. 

  38. :: /*----------------- timeout --------------------

  39. :timeout [num] [:label1] [STR] [:LABEL2]

  40. setlocal&del/a/q %tmp%\' 2>nul||(echo 未知错误!&pause&exit)

  41. start/b/REALTIME %~s0 :timeout_1 %1 %2 %3 %4

  42. :timeout_2

  43. set "v="

  44. set/p v=

  45. if %v%.==%3. title %ComSpec%&cd.>%tmp%\'&endlocal&goto%4

  46. if exist %tmp%\' exit ::没有输入，退出timeout

  47. goto:timeout_2

  48. :timeout_1 [num] [:label1] [STR] [:LABEL2]

  49. for /l %%a in (%1 -1 0)do (

  50.    title 【 倒计时 ：%%a  秒内输入"%3"重置网络 】

  51.    if exist %tmp%\' title %ComSpec%&exit

  52.    ping/n 2 127.1 >nul)

  53. title %ComSpec%&cd.>%tmp%\'&goto%2

  54. :: /*------------------ timeout -------------------*/

  55. 

  56. :Abat

  57. echo.Abat

  58. pause

  59. 

  60. :Bbat

  61. echo.Bbat

  62. pause
复制代码
作者: mnokoko    时间: 2024-8-18 00:58

回复 15# mnokoko批处理同步处理，这个问题我遇到过，10s内无操作执行a命令，按”0“执行b命令，希望能有所帮助
作者: 77七    时间: 2024-8-18 20:06

参考14楼中帖子链接
  1. @echo off

  2. for /f "delims=#" %%i in ('prompt #$E#^&echo on^&for %%a in ^(1^) do rem') do set EscK=%%i

  3. echo 11

  4. :loop

  5. choice /c 12340bqi /t 1 /d I /N /m 输入数字编号按回车确认:

  6. echo %EscK%[2A

  7. echo %EscK%[2K

  8. echo %EscK%[2A

  9. goto :loop
复制代码
作者: aloha20200628    时间: 2024-8-18 21:10

本帖最后由 aloha20200628 于 2024-8-18 21:15 编辑


CHOICE 命令内置防错输入功能，即拒绝所有非选项输入，但其延时输入须先设置默认输入选项，因此，仅用 choice 可以实现一楼的第 2,4 需求，但不能实现第 3 需求，更不能同时满足第 2,3 需求...
作者: 诗与远方    时间: 2024-8-19 08:12

回复 15# mnokoko


    这个有点儿意思了，但是从大框变mode con cols=80 lines=27的时候还是会闪烁一下，有什么办法去掉这个闪烁嘛？
我尝试过很多纯单一bat方式都不行。



欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2