设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT求助&讨论 › 求助，批处理bat如何实现倒计时及自动化处理？ ...
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
12下一页
返回列表 发新帖
查看: 34210|回复: 18

[系统相关] 求助，批处理bat如何实现倒计时及自动化处理？

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



以下是我的主要代码：
  1. @echo off
  2. Title 标题内容

  4. mode con cols=80 lines=27

  6. Color F0


  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. )


  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"

  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

  46. if "%n%"=="1" call :1
  47. if "%n%"=="2" call :2
  48. if "%n%"=="3" call :3
  49. if "%n%"=="4" call :4

  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

  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

  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

  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

  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

  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


  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




  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:34 | 显示全部楼层
2、3条不是矛盾的吗？
回复

举报

Five66
发表于 2024-8-17 14:18:22 | 显示全部楼层
bat是同步的，2，3点难搞
回复

举报

诗与远方
 楼主| 发表于 2024-8-17 14:21:35 | 显示全部楼层
回复 2# 77七


    不矛盾，一个是自动敲键盘1回车，一个是自动关闭批处理界面，难点在于怎么同步进行，做并行任务。
回复

举报

77七
发表于 2024-8-17 14:37:30 | 显示全部楼层
回复 4# 诗与远方


   假如打开批处理没有任何操作，是怎么进行的？
回复

举报

Five66
发表于 2024-8-17 14:45:29 | 显示全部楼层
不用set /p
用CHOICE可能比较好搞
回复

举报

aloha20200628
发表于 2024-8-17 14:48:02 | 显示全部楼层
本帖最后由 aloha20200628 于 2024-8-17 15:54 编辑

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

给一个示例代码说明两个并行进程互相协调...
主批存为 test.bat，次批 _tmp_.bat 须与 test.bat 同目录，两者用一个临时文件 "c:\temp\_tmp_.0" 握手

  2. @echo off &setlocal &del /q "c:\temp\_tmp_.0" 2>nul
  3. start "_tmp_" _tmp_.bat
  4. timeout /t 5 /nobreak>nul
  5. if not exist "c:\temp\_tmp_.0" (
  6.         taskkill /f /fi "windowTitle eq _tmp_ - _tmp_.bat">nul 2>nul
  7.         goto[end]
  8. )
  9. set/p v=<"c:\temp\_tmp_.0"
  10. echo,%v%
  11. :[end]
  12. endlocal&pause&exit/b
复制代码
附录 _tmp_.bat

  2. @echo off &setlocal
  3. set/p "v=输入: "
  4. set/p="%v%"<nul>"c:\temp\_tmp_.0"
  5. endlocal&exit
复制代码
回复

举报

诗与远方
 楼主| 发表于 2024-8-17 14:51:41 | 显示全部楼层
回复 5# 77七


    倒计时即是一种方式，到指定时间后自动执行。
回复

举报

诗与远方
 楼主| 发表于 2024-8-17 14:53:26 | 显示全部楼层
回复 7# aloha20200628


    有些复杂化了，增加了不稳定因素，那可以在一个bat里面，自动在本地生成文件，然后这几个文件按指定顺序在本地分别执行？
回复

举报

77七
发表于 2024-8-17 15:34:32 | 显示全部楼层
一个bat应该能实现，不一样非要往并行上考虑，没多大关系。
回复

举报

aloha20200628
发表于 2024-8-17 15:46:18 | 显示全部楼层
本帖最后由 aloha20200628 于 2024-8-17 15:49 编辑


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

举报

77七
发表于 2024-8-17 15:57:46 | 显示全部楼层
本帖最后由 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

  30. )
  31. if %n% equ 0 (
  32.         exit
  33. )
  34. cls
  35. goto :loop
复制代码
楼主描述的不是很完整，包括用户操作后的退出时间等等...代码中暂时定为操作后10秒
回复

举报

aloha20200628
发表于 2024-8-17 16:20:22 | 显示全部楼层
本帖最后由 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:51 | 显示全部楼层
没注意楼主的第5条，第2点。第1点不清屏，可以参考下 大佬的研究 ANSI的esc转义序列功能强大 ，试试是不是能删除行。另外楼主的文字及背景颜色也可以参考解决。
回复

举报

mnokoko
发表于 2024-8-18 00:55:43 | 显示全部楼层
  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)

  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


  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 -------------------*/

  56. :Abat
  57. echo.Abat
  58. pause

  60. :Bbat
  61. echo.Bbat
  62. pause
复制代码
回复

举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 21:04 , Processed in 0.020293 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表