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

@echo off
Title 标题内容

mode con cols=80 lines=27

Color F0


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


set "PROXY1=0.0.0.0:1082"
set "PROXY2=192.168.1.1:1082"
set "PROXY3=192.168.2.1:7897"
set "PROXY4=192.168.3.1:7897"
set "PROXYb=127.0.0.1:7897"

:exec
echo ==============================================================================
echo.
echo    1.启动A 
echo.
echo    2.启动B 
echo.
echo    3.启动C 
echo.
echo    4.启动D 
echo.
echo    0.关闭
echo.
echo    b.本地
echo.
echo    q.退出
echo.
echo ==============================================================================
echo 【帮助】根据需要选择对应数字回车即可。有问题找管理员。
echo.
set /p n=  输入数字编号按回车确认:
echo.
if "%n%"=="" cls&goto :exec
if "%n%"=="0" call :0

if "%n%"=="1" call :1
if "%n%"=="2" call :2
if "%n%"=="3" call :3
if "%n%"=="4" call :4

if "%n%"=="b" call :b
if "%n%"=="B" call :b
if /i "%n%"=="q" exit
if /i "%n%"=="Q" exit
pause
goto :eof

:1
CLS
echo.
call :ColorText 2F "                                                                              "
echo.
call :ColorText 2F "--------------------------------成功启动A---------------------------------"
echo.
call :ColorText 2F "                                                                              "
echo.
echo.
echo.
set "PROXY=%PROXY1%"
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 1 /f    > NUL 2>&1
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /d "%PROXY%" /f    > NUL 2>&1
goto :exec

:2
CLS
echo.
call :ColorText 2F "                                                                              "
echo.
call :ColorText 2F "--------------------------------成功启动B---------------------------------"
echo.
call :ColorText 2F "                                                                              "
echo.
echo.
echo.
set "PROXY=%PROXY2%"
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 1 /f    > NUL 2>&1
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /d "%PROXY%" /f    > NUL 2>&1
goto :exec

:3
CLS
echo.
call :ColorText 2F "                                                                              "
echo.
call :ColorText 2F "--------------------------------成功启动C---------------------------------"
echo.
call :ColorText 2F "                                                                              "
echo.
echo.
echo.
set "PROXY=%PROXY3%"
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 1 /f    > NUL 2>&1
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /d "%PROXY%" /f    > NUL 2>&1
goto :exec

:4
CLS
echo.
call :ColorText 2F "                                                                              "
echo.
call :ColorText 2F "--------------------------------成功启动D---------------------------------"
echo.
call :ColorText 2F "                                                                              "
echo.
echo.
echo.
set "PROXY=%PROXY4%"
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 1 /f    > NUL 2>&1
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /d "%PROXY%" /f    > NUL 2>&1
goto :exec

:b
CLS
echo.
call :ColorText 2F "                                                                              "
echo.
call :ColorText 2F "------------------------------成功切换回本地------------------------------"
echo.
call :ColorText 2F "                                                                              "
echo.
echo.
echo.
set "PROXY=%PROXYb%"
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 1 /f    > NUL 2>&1
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /d "%PROXY%" /f    > NUL 2>&1
goto :exec


:0
CLS
echo.
call :ColorText 4e "                                                                              "
echo.
call :ColorText 4e "---------------------------------已关闭-----------------------------------"
echo.
call :ColorText 4e "                                                                              "
echo.
echo.
echo.
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyEnable /t REG_DWORD /d 0 /f    > NUL 2>&1
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings" /v ProxyServer /d "" /f    > NUL 2>&1
goto :exec




goto :eof
:ColorText
echo off
<nul set /p ".=%DEL%" > "%~2"
findstr /v /a:%1 /R "^$" "%~2" nul
del "%~2" > nul 2>&1
goto :eof
复制代码

@echo off
:zt1
echo.
SET Choice=
echo      #三个选择
for /f "delims=" %%a in ('xcopy /w . . 2^>nul') do if not defined Choice set "Choice=%%a"
echo.
set "Choice=%Choice:~-1%"
IF "%Choice:"=""%" EQU "1" GOTO a
IF "%Choice:"=""%" EQU "2" GOTO b
IF "%Choice:"=""%" EQU "3" GOTO c
echo 输入有误，请重新输入
goto zt1
复制代码

@echo off
if not "%1"=="" goto %1
del "%temp%\#" 2>nul
start /b %~fs0 :aa
:agn
set/p=按任意键退出...<nul&pause>nul
>"%temp%\#" type nul
exit
:aa
for /l %%a in (10 -1 1) do (
   title 倒计时 %%a 秒后自动退出...
   if exist "%temp%\#" (
      del "%temp%\#"
      exit
   )
   ping -n 2 127.1>nul
)
title 自动退出...
for /f "tokens=2" %%a in ('tasklist /fi "windowtitle eq 自动退出..." /nh') do (
   taskkill /f /pid %%a >nul
)
exit
复制代码