[更新永无止境]Hope计时器 - BAT求助&讨论 - 批处理之家 BAT,CMD,批处理,PowerShell,VBS,DOS - Powered by Discuz!

批处理之家 » BAT求助&讨论 » [更新永无止境]Hope计时器

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

1 2 3 4 5 6 789 下一页

返回列表发帖

帖子: 984
积分: 467
技术: 33
捐助: 0
注册时间: 2021-7-14

19楼 跳转到 »

发表于 2021-8-12 20:00 | 只看该作者

回复 18# HOPE2021

1.0.0013

@echo off
mode con cols=68 lines=5
color f9
endlocal
setlocal enabledelayedexpansion
chcp 936 > nul
Rem By Hope2021
title Hope计时器
cls
echo.
echo.
echo.                                HOPE
call :Vbs_Sleep 1000
call :Sleep_Installs
@call :Restart
@goto :Main

:Restart
color 0f
cls
set H=0
set Min=0
set S=0
set H_2=0
set Min_2=0
set S_2=0
set Ms=0
set Ms_2=0
@goto :eof

:Main
mode con cols=68 lines=7
title Hope计时器
set Error=0
cls
echo.
echo.    ^>^> 当前计时时间：%H%小时%Min%分钟%S%秒
echo.
echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U/I 开始计时//退出
echo.
echo.  P 打开计划程序
call :get_key
call :Settings_Time
if /i "!key!"=="P" (
set St_1=10001
set En_1=10010
mode con cols=68 lines=34
@goto :Task
)
if /i "!key!"=="u" (
mode con cols=68 lines=5
@goto :Start
)
if /i "!key!"=="i" (
del sleep.vbs sleep.com sleep.exe >nul 2>nul
rd /s /q Tasks >nul 2>nul
exit
)
if /i "!valid_key!" equ "0" goto :Main

:Task
Md Tasks >nul 2>nul
cls
title Hope计时器[计划程序]
set Error=0
echo.
echo.  Hope计时器[计划程序]
set /p Str=--------------------------------------------------------------------<nul
echo.
echo.    ^>^> Q 新建计划   W 使用计划   D 删除计划   E 返回菜单   R 退出
if not exist Tasks\*.Htd (
echo.
echo.    ^>^> 当前没有计划
set /p Str=--------------------------------------------------------------------<nul
echo.
echo.
)
if not exist Tasks\Htd.Hdat echo.10000 > Tasks\Htd.Hdat
if exist Tasks\*.Htd (
cd Tasks
echo.
echo.    ^>^> 当前计划列表
set /p Str=--------------------------------------------------------------------<nul
echo.
echo.
for /f %%i in ('dir /b *.Htd') do (
	for /f "skip=4" %%j in (%%~ni.Htd) do echo.    ^>^> 编号：%%~ni  备注：%%j
)
echo.
cd..
)
)
call :get_key
if /i "!key!"=="E" (
@goto :Main
)
if /i "!key!"=="D" (
@goto :Del
)
if /i "!key!"=="R" (
del sleep.vbs sleep.com sleep.exe >nul 2>nul
rd /s /q Tasks >nul 2>nul
exit
)
if /i "!key!"=="Q" (
@goto :New
)
if /i "!key!"=="W" (
@goto :Open
)
if /i "!valid_key!" equ "0" @goto :Task

:Open
if exist Tasks\*.Htd (
set "Content= "
set /p Content=    ^>^> 请输入计划编号：
goto Open_2
) else cd..&@goto :Task

:Del
if exist Tasks\*.Htd (
set "Content= "
set /p Content=    ^>^> 请输入计划编号：
goto Del_2
) else cd..&@goto :Task

:Del_2
cd Tasks
if exist %Content%.Htd (
del %Content%.Htd
cd..
goto Task
) else cd..&goto Task

:Open_2
cd Tasks
if exist %Content%.Htd (
call :Read %Content%
cd..
mode con cols=68 lines=5
@goto :Start
) else cd..&goto Task

:New
cd Tasks
< Htd.Hdat (
set /p Num=
)
set /a Num+=1
echo.%Num% > Htd.Hdat
cd..
echo.
echo.    ^>^> 新建计划：%Num%
echo.
set "Content= "
set /p Content=    ^>^> 备注：
echo.
set "Content=%Content:>=^>%"
set "Content=%Content:<=^<%"
set "Content=%Content:|=^|%"
set H=0
set Min=0
set S=0
set H_2=0
set Min_2=0
set S_2=0
set Ms=0
set Ms_2=0
call :Vbs_Sleep 1000
@goto :New_2

:Read
< %1.Htd (
set /p H=
set /p Min=
set /p S=
set /p Ms_2=
set /p Content=
)
@goto :eof

:New_2
cls
echo.
echo.    ^>^> 当前计时时间：%H%小时%Min%分钟%S%秒
echo.
echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U 完成计划
echo.
call :get_key
call :Settings_Time
if /i "!key!"=="U" (
(
echo.%H%
echo.%Min%
echo.%S%
echo.%Ms_2%
echo.%Content%
) > Tasks\%Num%.Htd
@goto :Task
)
if /i "!valid_key!" equ "0" @goto :New_2

:Error
color 1f
cls
echo.
echo.    ^>^> Sleep.exe 和 Sleep.com 不知到何处去了...
echo.
echo.    ^>^> 正在帮您恢复
call :Sleep_Installs
goto :Restart

:Start
set Error=0
cls
title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
echo.
echo.    ^>^> %H_2%小时%Min_2%分钟%S_2%秒%Ms%毫秒/%H%小时%Min%分钟%S%秒
echo.
echo.    ^>^> Ctrl+C暂停或退出...
call :Sleep 100
if %Error%==1 goto :Error
set /a Ms+=100
if %Ms%==1000 set /a S_2+=1&set Ms=0
if %S_2% Geq 60 set /a Min_2+=1&set S_2=0
if %Min_2% Geq 60 set /a H_2+=1&set Min_2=0
if %H_2% Geq %H% if %Min_2% Geq %Min% if %S_2% Geq %S% goto :End
if /i "!valid_key!" equ "0" goto :Start

:End
cls
color 4e
title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
Call :Msg "时间到" vbExclamation "Hope计时器"
color 0f
@call :Restart
@goto :Main

:Vbs_Sleep
echo.Wscript.Sleep %1 > Sleep.vbs
call Sleep.vbs > nul
if exist ReturnKey.vbs del ReturnKey.vbs
@goto :eof

:Sleep_Installs
mode con cols=68 lines=5
color 0f
(
echo.-----BEGIN CERTIFICATE-----
echo.TVpQAQEAAAAEAAAA//8AAFABAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAkAAAAPy+gQAPtkz/ZjHSZjHASXggrCwwchQ8CXcQZmvSCmYB
echo.wi7HBi8AMQDr5C7/Ji8ADgBmadLoAwAAZonRZsHpELSGzRW4AEzNIQAAAAAAAAAA
echo.UEUAAEwBAQBQeaU2AAAAAAAAAADgAA8BCwEFDAACAAAAAAAAAAAAAH4QAAAAEAAA
echo.ACAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAIAAAAAIAAAAAAAADAAAA
echo.AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAQEAAAKAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAudGV4dAAAANwAAAAAEAAAAAIAAAACAAAAAAAAAAAAAAAAAAAgAADg
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWEAAAZBAAAHYQAAAAAAAA
echo.RhAAAAAAAAAAAAAAOBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtFUk5FTDMy
echo.LmRsbAAAVhAAAGQQAAB2EAAAAAAAAAAARXhpdFByb2Nlc3MAAABHZXRDb21tYW5k
echo.TGluZUEAAABTbGVlcAD/FQQQQAAx0khAgDgAdBGAOCJ1AvfSCdJ174A4IHXqQPyJ
echo.xjHSMcCsCMB0IywwchU8CXcRa9IKAcLHBckQQADNEEAA6+L/JckQQAClEEAAUv8V
echo.CBBAAGoA/xUAEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAA==
echo.-----END CERTIFICATE-----
) > Sleep.com
Certutil -Decode Sleep.com Sleep.exe > nul
Certutil -Decode -f Sleep.com Sleep.com > nul
goto :eof

:Sleep
set Error=0
if exist Sleep.exe (
Sleep.exe %1
goto :eof
)
if not exist Sleep.exe if exist Sleep.com (
Sleep.com %1
goto :eof
)
if not exist Sleep.exe if not exist Sleep.com (
set Error=1
goto :eof
)

:get_key
rem 用法：call :get_key
set "key="
  for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if not defined key set "key=%%a"
  set "key=%key:~-1%"
  set "valid_key=0"
goto :eof

:Msg
Rem 用法： Call :Msg "Text" [buttons] "Title"
echo.Msg=msgbox("%~1",%2,"%~3") > ReturnKey.vbs
Call ReturnKey.vbs > nul
if exist ReturnKey.vbs del ReturnKey.vbs
goto :eof

:Settings_Time
if %Ms_2% Leq 200000000 if %H% geq 0 if %Min% Geq 0 if %S% Geq 0 (
if /i "!key!"=="q" (
set /a Ms_2+=3600000
set /a H+=1
)
if /i "!key!"=="w" (
set /a Ms_2-=3600000
set /a H-=1
)
if /i "!key!"=="e" (
set /a Ms_2+=60000
set /a Min+=1
)
if /i "!key!"=="r" (
set /a Ms_2-=60000
set /a Min-=1
)
if /i "!key!"=="t" (
set /a Ms_2+=1000
set /a S+=1
)
if /i "!key!"=="y" (
set /a Ms_2-=1000
set /a S-=1
)
)
if %S% Lss 0 (
if %Min% Geq 0 if %H% Geq 0 (
set /a Min-=1&set /a S+=60
)
if %Min% Leq 0 if %H% Leq 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@call :Restart
)
)
if %Min% Lss 0 (
if %H% Gtr 0 set /a H-=1&set /a Min+=60
if %H% Leq 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@call :Restart
)
)
if %H% Lss 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@call :Restart
)
if %Ms_2% Gtr 200000000 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@call :Restart
)
if %S% Geq 60 set /a Min+=1&set S=0
if %Min% Geq 60 set /a H+=1&set Min=0
复制代码

梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

Rank: 4

帖子: 357
积分: 477
技术: 34
捐助: 0
注册时间: 2021-8-8

18楼

发表于 2021-8-12 17:38 | 只看该作者

版本1.0.0012

@echo off
mode con cols=68 lines=5
color f9
endlocal
setlocal enabledelayedexpansion
chcp 936 > nul
Rem By Hope2021
title Hope计时器
cls
echo.
echo.
echo.                                HOPE
call :Vbs_Sleep 1000
call :Sleep_Installs
@call :Restart
@goto :Main

:Restart
color 0f
cls
set H=0
set Min=0
set S=0
set H_2=0
set Min_2=0
set S_2=0
set Ms=0
set Ms_2=0
@goto :eof

:Main
mode con cols=68 lines=7
title Hope计时器
set Error=0
cls
echo.
echo.    ^>^> 当前计时时间：%H%小时%Min%分钟%S%秒
echo.
echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U/I 开始计时//退出
echo.
echo.  P 打开计划程序
call :get_key
call :Settings_Time
if /i "!key!"=="P" (
set St_1=10001
set En_1=10010
mode con cols=68 lines=34
@goto :Task
)
if /i "!key!"=="u" (
mode con cols=68 lines=5
@goto :Start
)
if /i "!key!"=="i" (
exit
)
if /i "!valid_key!" equ "0" goto :Main

:Task
Md Tasks >nul 2>nul
cls
title Hope计时器[计划程序]
set Error=0
echo.
echo.  Hope计时器[计划程序]
set /p Str=--------------------------------------------------------------------<nul
echo.
echo.    ^>^> Q 新建计划   W 使用计划   D 删除计划   E 返回菜单   R 退出
if not exist Tasks\*.Htd (
echo.
echo.    ^>^> 当前没有计划
set /p Str=--------------------------------------------------------------------<nul
echo.
echo.
)
if not exist Tasks\Htd.Hdat echo.10000 > Tasks\Htd.Hdat
if exist Tasks\*.Htd (
cd Tasks
echo.
echo.    ^>^> 当前计划列表
set /p Str=--------------------------------------------------------------------<nul
echo.
echo.
for /f %%i in ('dir /b *.Htd') do (
	for /f "skip=4" %%j in (%%~ni.Htd) do echo.    ^>^> 编号：%%~ni  备注：%%j
)
echo.
cd..
)
)
call :get_key
if /i "!key!"=="E" (
@goto :Main
)
if /i "!key!"=="D" (
@goto :Del
)
if /i "!key!"=="R" (
exit
)
if /i "!key!"=="Q" (
@goto :New
)
if /i "!key!"=="W" (
@goto :Open
)
if /i "!valid_key!" equ "0" @goto :Task

:Open
if exist Tasks\*.Htd (
set "Content= "
set /p Content=    ^>^> 请输入计划编号：
goto Open_2
) else cd..&@goto :Task

:Del
if exist Tasks\*.Htd (
set "Content= "
set /p Content=    ^>^> 请输入计划编号：
goto Del_2
) else cd..&@goto :Task

:Del_2
cd Tasks
if exist %Content%.Htd (
del %Content%.Htd
cd..
goto Task
) else cd..&goto Task

:Open_2
cd Tasks
if exist %Content%.Htd (
call :Read %Content%
cd..
mode con cols=68 lines=5
@goto :Start
) else cd..&goto Task

:New
cd Tasks
< Htd.Hdat (
set /p Num=
)
set /a Num+=1
echo.%Num% > Htd.Hdat
cd..
echo.
echo.    ^>^> 新建计划：%Num%
echo.
set "Content= "
set /p Content=    ^>^> 备注：
echo.
set "Content=%Content:>=^>%"
set "Content=%Content:<=^<%"
set "Content=%Content:|=^|%"
set H=0
set Min=0
set S=0
set H_2=0
set Min_2=0
set S_2=0
set Ms=0
set Ms_2=0
call :Vbs_Sleep 1000
@goto :New_2

:Read
< %1.Htd (
set /p H=
set /p Min=
set /p S=
set /p Ms_2=
set /p Content=
)
@goto :eof

:New_2
cls
echo.
echo.    ^>^> 当前计时时间：%H%小时%Min%分钟%S%秒
echo.
echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U 完成计划
echo.
call :get_key
call :Settings_Time
if /i "!key!"=="U" (
(
echo.%H%
echo.%Min%
echo.%S%
echo.%Ms_2%
echo.%Content%
) > Tasks\%Num%.Htd
@goto :Task
)
if /i "!valid_key!" equ "0" @goto :New_2

:Error
color 1f
cls
echo.
echo.    ^>^> Sleep.exe 和 Sleep.com 不知到何处去了...
echo.
echo.    ^>^> 正在帮您恢复
call :Sleep_Installs
goto :Restart

:Start
set Error=0
cls
title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
echo.
echo.    ^>^> %H_2%小时%Min_2%分钟%S_2%秒%Ms%毫秒/%H%小时%Min%分钟%S%秒
echo.
echo.    ^>^> Ctrl+C暂停或退出...
call :Sleep 100
if %Error%==1 goto :Error
set /a Ms+=100
if %Ms%==1000 set /a S_2+=1&set Ms=0
if %S_2% Geq 60 set /a Min_2+=1&set S_2=0
if %Min_2% Geq 60 set /a H_2+=1&set Min_2=0
if %H_2% Geq %H% if %Min_2% Geq %Min% if %S_2% Geq %S% goto :End
if /i "!valid_key!" equ "0" goto :Start

:End
cls
color 4e
title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
Call :Msg "时间到" vbExclamation "Hope计时器"
color 0f
@call :Restart
@goto :Main

:Vbs_Sleep
echo.Wscript.Sleep %1 > Sleep.vbs
call Sleep.vbs > nul
if exist ReturnKey.vbs del ReturnKey.vbs
@goto :eof

:Sleep_Installs
mode con cols=68 lines=5
color 0f
(
echo.-----BEGIN CERTIFICATE-----
echo.TVpQAQEAAAAEAAAA//8AAFABAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAkAAAAPy+gQAPtkz/ZjHSZjHASXggrCwwchQ8CXcQZmvSCmYB
echo.wi7HBi8AMQDr5C7/Ji8ADgBmadLoAwAAZonRZsHpELSGzRW4AEzNIQAAAAAAAAAA
echo.UEUAAEwBAQBQeaU2AAAAAAAAAADgAA8BCwEFDAACAAAAAAAAAAAAAH4QAAAAEAAA
echo.ACAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAIAAAAAIAAAAAAAADAAAA
echo.AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAQEAAAKAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAudGV4dAAAANwAAAAAEAAAAAIAAAACAAAAAAAAAAAAAAAAAAAgAADg
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWEAAAZBAAAHYQAAAAAAAA
echo.RhAAAAAAAAAAAAAAOBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtFUk5FTDMy
echo.LmRsbAAAVhAAAGQQAAB2EAAAAAAAAAAARXhpdFByb2Nlc3MAAABHZXRDb21tYW5k
echo.TGluZUEAAABTbGVlcAD/FQQQQAAx0khAgDgAdBGAOCJ1AvfSCdJ174A4IHXqQPyJ
echo.xjHSMcCsCMB0IywwchU8CXcRa9IKAcLHBckQQADNEEAA6+L/JckQQAClEEAAUv8V
echo.CBBAAGoA/xUAEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAA==
echo.-----END CERTIFICATE-----
) > Sleep.com
Certutil -Decode Sleep.com Sleep.exe > nul
Certutil -Decode -f Sleep.com Sleep.com > nul
goto :eof

:Sleep
set Error=0
if exist Sleep.exe (
Sleep.exe %1
goto :eof
)
if not exist Sleep.exe if exist Sleep.com (
Sleep.com %1
goto :eof
)
if not exist Sleep.exe if not exist Sleep.com (
set Error=1
goto :eof
)

:get_key
rem 用法：call :get_key
set "key="
  for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if not defined key set "key=%%a"
  set "key=%key:~-1%"
  set "valid_key=0"
goto :eof

:Msg
Rem 用法： Call :Msg "Text" [buttons] "Title"
echo.Msg=msgbox("%~1",%2,"%~3") > ReturnKey.vbs
Call ReturnKey.vbs > nul
if exist ReturnKey.vbs del ReturnKey.vbs
goto :eof

:Settings_Time
if %Ms_2% Leq 200000000 if %H% geq 0 if %Min% Geq 0 if %S% Geq 0 (
if /i "!key!"=="q" (
set /a Ms_2+=3600000
set /a H+=1
)
if /i "!key!"=="w" (
set /a Ms_2-=3600000
set /a H-=1
)
if /i "!key!"=="e" (
set /a Ms_2+=60000
set /a Min+=1
)
if /i "!key!"=="r" (
set /a Ms_2-=60000
set /a Min-=1
)
if /i "!key!"=="t" (
set /a Ms_2+=1000
set /a S+=1
)
if /i "!key!"=="y" (
set /a Ms_2-=1000
set /a S-=1
)
)
if %S% Lss 0 (
if %Min% Geq 0 if %H% Geq 0 (
set /a Min-=1&set /a S+=60
)
if %Min% Leq 0 if %H% Leq 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@call :Restart
)
)
if %Min% Lss 0 (
if %H% Gtr 0 set /a H-=1&set /a Min+=60
if %H% Leq 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@call :Restart
)
)
if %H% Lss 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@call :Restart
)
if %Ms_2% Gtr 200000000 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@call :Restart
)
if %S% Geq 60 set /a Min+=1&set S=0
if %Min% Geq 60 set /a H+=1&set Min=0
复制代码

Rank: 4

帖子: 357
积分: 477
技术: 34
捐助: 0
注册时间: 2021-8-8

17楼

发表于 2021-8-12 17:23 | 只看该作者

本帖最后由 HOPE2021 于 2021-8-13 10:51 编辑

有重大谬误，请停止使用！
版本1.0.0011

@echo off
mode con cols=68 lines=5
color f9
endlocal
setlocal enabledelayedexpansion
chcp 936 > nul
Rem By Hope2021
title Hope计时器
cls
echo.
echo.
echo.                                HOPE
call :Vbs_Sleep 1000
call :Sleep_Installs
@call :Restart
@goto :Main

:Restart
color 0f
cls
set H=0
set Min=0
set S=0
set H_2=0
set Min_2=0
set S_2=0
set Ms=0
set Ms_2=0
@goto :eof

:Main
mode con cols=68 lines=7
title Hope计时器
set Error=0
cls
echo.
echo.    ^>^> 当前计时时间：%H%小时%Min%分钟%S%秒
echo.
echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U/I 开始计时//退出
echo.
echo.  P 打开计划程序
call :get_key
call :Settings_Time
if /i "!key!"=="P" (
set St_1=10001
set En_1=10010
mode con cols=68 lines=34
@goto :Task
)
if /i "!key!"=="u" (
mode con cols=68 lines=5
@goto :Start
)
if /i "!key!"=="i" (
exit
)
if /i "!valid_key!" equ "0" goto :Main

:Task
Md Tasks >nul 2>nul
cls
title Hope计时器[计划程序]
set Error=0
echo.
echo.  Hope计时器[计划程序]
set /p Str=--------------------------------------------------------------------<nul
echo.
echo.    ^>^> Q 新建计划   W 使用计划   D 删除计划   E 返回菜单   R 退出
if not exist Tasks\*.Htd (
echo.
echo.    ^>^> 当前没有计划
set /p Str=--------------------------------------------------------------------<nul
echo.
echo.
)
if not exist Tasks\Htd.Hdat echo.10000 > Tasks\Htd.Hdat
if exist Tasks\*.Htd (
cd Tasks
echo.
echo.    ^>^> 当前计划列表
set /p Str=--------------------------------------------------------------------<nul
echo.
echo.
for /f %%i in ('dir /b *.Htd') do (
	for /f "skip=4" %%j in (%%~ni.Htd) do echo.    ^>^> 编号：%%~ni  备注：%%j
)
echo.
cd..
)
)
call :get_key
if /i "!key!"=="E" (
@goto :Main
)
if /i "!key!"=="D" (
@goto :Del
)
if /i "!key!"=="R" (
exit
)
if /i "!key!"=="Q" (
@goto :New
)
if /i "!key!"=="W" (
@goto :Open
)
if /i "!valid_key!" equ "0" @goto :Task

:Open
if exist Tasks\*.Htd (
set "Content= "
set /p Content=    ^>^> 请输入计划编号：
goto Open_2
) else cd..&@goto :Task

:Del
if exist Tasks\*.Htd (
set "Content= "
set /p Content=    ^>^> 请输入计划编号：
goto Del_2
) else cd..&@goto :Task

:Del_2
cd Tasks
if exist %Content%.Htd (
del %Content%.Htd
cd..
goto Task
) else cd..&goto Task

:Open_2
cd Tasks
if exist %Content%.Htd (
call :Read %Content%
cd..
mode con cols=68 lines=5
@goto :Start
) else cd..&goto Task

:New
cd Tasks
< Htd.Hdat (
set /p Num=
)
set /a Num+=1
echo.%Num% > Htd.Hdat
cd..
echo.
echo.    ^>^> 新建计划：%Num%
echo.
set "Content= "
set /p Content=    ^>^> 备注：
echo.
set "Content=%Content:>=^>%"
set "Content=%Content:<=^<%"
set "Content=%Content:|=^|%"
set H=0
set Min=0
set S=0
set H_2=0
set Min_2=0
set S_2=0
set Ms=0
set Ms_2=0
call :Vbs_Sleep 1000
@goto :New_2

:Read
< %1.Htd (
set /p H=
set /p Min=
set /p S=
set /p Ms_2=
set /p Content=
)
@goto :eof

:New_2
cls
echo.
echo.    ^>^> 当前计时时间：%H%小时%Min%分钟%S%秒
echo.
echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U 完成计划
echo.
call :get_key
call :Settings_Time
if /i "!key!"=="U" (
(
echo.%H%
echo.%Min%
echo.%S%
echo.%Ms_2%
echo.%Content%
) > Tasks\%Num%.Htd
@goto :Task
)
if /i "!valid_key!" equ "0" @goto :New_2

:Error
color 1f
cls
echo.
echo.    ^>^> Sleep.exe 和 Sleep.com 不知到何处去了...
echo.
echo.    ^>^> 正在帮您恢复
call :Sleep_Installs
goto :Restart

:Start
set Error=0
cls
title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
echo.
echo.    ^>^> %H_2%小时%Min_2%分钟%S_2%秒%Ms%毫秒/%H%小时%Min%分钟%S%秒
echo.
echo.    ^>^> Ctrl+C暂停或退出...
call :Sleep 100
if %Error%==1 goto :Error
set /a Ms+=100
if %Ms%==1000 set /a S_2+=1&set Ms=0
if %S_2% Geq 60 set /a Min_2+=1&set S_2=0
if %Min_2% Geq 60 set /a H_2+=1&set Min_2=0
if %H_2% Geq %H% if %Min_2% Geq %Min% if %S_2% Geq %S% goto :End
if /i "!valid_key!" equ "0" goto :Start

:End
cls
color 4e
title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
Call :Msg "时间到" vbExclamation "Hope计时器"
color 0f
@call :Restart

:Vbs_Sleep
echo.Wscript.Sleep %1 > Sleep.vbs
call Sleep.vbs > nul
if exist ReturnKey.vbs del ReturnKey.vbs
@goto :eof

:Sleep_Installs
mode con cols=68 lines=5
color 0f
(
echo.-----BEGIN CERTIFICATE-----
echo.TVpQAQEAAAAEAAAA//8AAFABAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAkAAAAPy+gQAPtkz/ZjHSZjHASXggrCwwchQ8CXcQZmvSCmYB
echo.wi7HBi8AMQDr5C7/Ji8ADgBmadLoAwAAZonRZsHpELSGzRW4AEzNIQAAAAAAAAAA
echo.UEUAAEwBAQBQeaU2AAAAAAAAAADgAA8BCwEFDAACAAAAAAAAAAAAAH4QAAAAEAAA
echo.ACAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAIAAAAAIAAAAAAAADAAAA
echo.AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAQEAAAKAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAudGV4dAAAANwAAAAAEAAAAAIAAAACAAAAAAAAAAAAAAAAAAAgAADg
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWEAAAZBAAAHYQAAAAAAAA
echo.RhAAAAAAAAAAAAAAOBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtFUk5FTDMy
echo.LmRsbAAAVhAAAGQQAAB2EAAAAAAAAAAARXhpdFByb2Nlc3MAAABHZXRDb21tYW5k
echo.TGluZUEAAABTbGVlcAD/FQQQQAAx0khAgDgAdBGAOCJ1AvfSCdJ174A4IHXqQPyJ
echo.xjHSMcCsCMB0IywwchU8CXcRa9IKAcLHBckQQADNEEAA6+L/JckQQAClEEAAUv8V
echo.CBBAAGoA/xUAEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAA==
echo.-----END CERTIFICATE-----
) > Sleep.com
Certutil -Decode Sleep.com Sleep.exe > nul
Certutil -Decode -f Sleep.com Sleep.com > nul
goto :eof

:Sleep
set Error=0
if exist Sleep.exe (
Sleep.exe %1
goto :eof
)
if not exist Sleep.exe if exist Sleep.com (
Sleep.com %1
goto :eof
)
if not exist Sleep.exe if not exist Sleep.com (
set Error=1
goto :eof
)

:get_key
rem 用法：call :get_key
set "key="
  for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if not defined key set "key=%%a"
  set "key=%key:~-1%"
  set "valid_key=0"
goto :eof

:Msg
Rem 用法： Call :Msg "Text" [buttons] "Title"
echo.Msg=msgbox("%~1",%2,"%~3") > ReturnKey.vbs
Call ReturnKey.vbs > nul
if exist ReturnKey.vbs del ReturnKey.vbs
goto :eof

:Settings_Time
if %Ms_2% Leq 200000000 if %H% geq 0 if %Min% Geq 0 if %S% Geq 0 (
if /i "!key!"=="q" (
set /a Ms_2+=3600000
set /a H+=1
)
if /i "!key!"=="w" (
set /a Ms_2-=3600000
set /a H-=1
)
if /i "!key!"=="e" (
set /a Ms_2+=60000
set /a Min+=1
)
if /i "!key!"=="r" (
set /a Ms_2-=60000
set /a Min-=1
)
if /i "!key!"=="t" (
set /a Ms_2+=1000
set /a S+=1
)
if /i "!key!"=="y" (
set /a Ms_2-=1000
set /a S-=1
)
)
if %S% Lss 0 (
if %Min% Geq 0 if %H% Geq 0 (
set /a Min-=1&set /a S+=60
)
if %Min% Leq 0 if %H% Leq 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@call :Restart
)
)
if %Min% Lss 0 (
if %H% Gtr 0 set /a H-=1&set /a Min+=60
if %H% Leq 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@call :Restart
)
)
if %H% Lss 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@call :Restart
)
if %Ms_2% Gtr 200000000 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@call :Restart
)
if %S% Geq 60 set /a Min+=1&set S=0
if %Min% Geq 60 set /a H+=1&set Min=0
复制代码

Rank: 4

帖子: 357
积分: 477
技术: 34
捐助: 0
注册时间: 2021-8-8

16楼

发表于 2021-8-12 17:17 | 只看该作者

本帖最后由 HOPE2021 于 2021-8-13 10:51 编辑

有重大谬误，请停止使用！
版本1.0.0010

@echo off
mode con cols=68 lines=5
color f9
endlocal
setlocal enabledelayedexpansion
chcp 936 > nul
Rem By Hope2021
title Hope计时器
cls
echo.
echo.
echo.                                HOPE
call :Vbs_Sleep 1000
call :Sleep_Installs
@goto :Restart

:Restart
color 0f
cls
set H=0
set Min=0
set S=0
set H_2=0
set Min_2=0
set S_2=0
set Ms=0
set Ms_2=0
@goto :Main

:Main
mode con cols=68 lines=7
title Hope计时器
set Error=0
cls
echo.
echo.    ^>^> 当前计时时间：%H%小时%Min%分钟%S%秒
echo.
echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U/I 开始计时//退出
echo.
echo.  P 打开计划程序
call :get_key
call :Settings_Time
if /i "!key!"=="P" (
set St_1=10001
set En_1=10010
mode con cols=68 lines=34
@goto :Task
)
if /i "!key!"=="u" (
mode con cols=68 lines=5
@goto :Start
)
if /i "!key!"=="i" (
exit
)
if /i "!valid_key!" equ "0" goto :Main

:Task
Md Tasks >nul 2>nul
cls
title Hope计时器[计划程序]
set Error=0
echo.
echo.  Hope计时器[计划程序]
set /p Str=--------------------------------------------------------------------<nul
echo.
echo.    ^>^> Q 新建计划   W 使用计划   D 删除计划   E 返回菜单   R 退出
if not exist Tasks\*.Htd (
echo.
echo.    ^>^> 当前没有计划
set /p Str=--------------------------------------------------------------------<nul
echo.
echo.
)
if not exist Tasks\Htd.Hdat echo.10000 > Tasks\Htd.Hdat
if exist Tasks\*.Htd (
cd Tasks
echo.
echo.    ^>^> 当前计划列表
set /p Str=--------------------------------------------------------------------<nul
echo.
echo.
for /f %%i in ('dir /b *.Htd') do (
	for /f "skip=4" %%j in (%%~ni.Htd) do echo.    ^>^> 编号：%%~ni  备注：%%j
)
echo.
cd..
)
)
call :get_key
if /i "!key!"=="E" (
@goto :Main
)
if /i "!key!"=="D" (
@goto :Del
)
if /i "!key!"=="R" (
exit
)
if /i "!key!"=="Q" (
@goto :New
)
if /i "!key!"=="W" (
@goto :Open
)
if /i "!valid_key!" equ "0" @goto :Task

:Open
if exist Tasks\*.Htd (
set "Content= "
set /p Content=    ^>^> 请输入计划编号：
goto Open_2
) else cd..&@goto :Task

:Del
if exist Tasks\*.Htd (
set "Content= "
set /p Content=    ^>^> 请输入计划编号：
goto Del_2
) else cd..&@goto :Task

:Del_2
cd Tasks
if exist %Content%.Htd (
del %Content%.Htd
cd..
goto Task
) else cd..&goto Task

:Open_2
cd Tasks
if exist %Content%.Htd (
call :Read %Content%
cd..
mode con cols=68 lines=5
@goto :Start
) else cd..&goto Task

:New
cd Tasks
< Htd.Hdat (
set /p Num=
)
set /a Num+=1
echo.%Num% > Htd.Hdat
cd..
echo.
echo.    ^>^> 新建计划：%Num%
echo.
set "Content= "
set /p Content=    ^>^> 备注：
echo.
set "Content=%Content:>=^>%"
set "Content=%Content:<=^<%"
set "Content=%Content:|=^|%"
set H=0
set Min=0
set S=0
set H_2=0
set Min_2=0
set S_2=0
set Ms=0
set Ms_2=0
call :Vbs_Sleep 1000
@goto :New_2

:Read
< %1.Htd (
set /p H=
set /p Min=
set /p S=
set /p Ms_2=
set /p Content=
)
@goto :eof

:New_2
cls
echo.
echo.    ^>^> 当前计时时间：%H%小时%Min%分钟%S%秒
echo.
echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U 完成计划
echo.
call :get_key
call :Settings_Time
if /i "!key!"=="U" (
(
echo.%H%
echo.%Min%
echo.%S%
echo.%Ms_2%
echo.%Content%
) > Tasks\%Num%.Htd
@goto :Task
)
if /i "!valid_key!" equ "0" @goto :New_2

:Error
color 1f
cls
echo.
echo.    ^>^> Sleep.exe 和 Sleep.com 不知到何处去了...
echo.
echo.    ^>^> 正在帮您恢复
call :Sleep_Installs
goto :Restart

:Start
set Error=0
cls
title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
echo.
echo.    ^>^> %H_2%小时%Min_2%分钟%S_2%秒%Ms%毫秒/%H%小时%Min%分钟%S%秒
echo.
echo.    ^>^> Ctrl+C暂停或退出...
call :Sleep 100
if %Error%==1 goto :Error
set /a Ms+=100
if %Ms%==1000 set /a S_2+=1&set Ms=0
if %S_2% Geq 60 set /a Min_2+=1&set S_2=0
if %Min_2% Geq 60 set /a H_2+=1&set Min_2=0
if %H_2% Geq %H% if %Min_2% Geq %Min% if %S_2% Geq %S% goto :End
if /i "!valid_key!" equ "0" goto :Start

:End
cls
color 4e
title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
Call :Msg "时间到" vbExclamation "Hope计时器"
color 0f
@goto :Restart

:Vbs_Sleep
echo.Wscript.Sleep %1 > Sleep.vbs
call Sleep.vbs > nul
if exist ReturnKey.vbs del ReturnKey.vbs
@goto :eof

:Sleep_Installs
mode con cols=68 lines=5
color 0f
(
echo.-----BEGIN CERTIFICATE-----
echo.TVpQAQEAAAAEAAAA//8AAFABAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAkAAAAPy+gQAPtkz/ZjHSZjHASXggrCwwchQ8CXcQZmvSCmYB
echo.wi7HBi8AMQDr5C7/Ji8ADgBmadLoAwAAZonRZsHpELSGzRW4AEzNIQAAAAAAAAAA
echo.UEUAAEwBAQBQeaU2AAAAAAAAAADgAA8BCwEFDAACAAAAAAAAAAAAAH4QAAAAEAAA
echo.ACAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAIAAAAAIAAAAAAAADAAAA
echo.AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAQEAAAKAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAudGV4dAAAANwAAAAAEAAAAAIAAAACAAAAAAAAAAAAAAAAAAAgAADg
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWEAAAZBAAAHYQAAAAAAAA
echo.RhAAAAAAAAAAAAAAOBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtFUk5FTDMy
echo.LmRsbAAAVhAAAGQQAAB2EAAAAAAAAAAARXhpdFByb2Nlc3MAAABHZXRDb21tYW5k
echo.TGluZUEAAABTbGVlcAD/FQQQQAAx0khAgDgAdBGAOCJ1AvfSCdJ174A4IHXqQPyJ
echo.xjHSMcCsCMB0IywwchU8CXcRa9IKAcLHBckQQADNEEAA6+L/JckQQAClEEAAUv8V
echo.CBBAAGoA/xUAEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAA==
echo.-----END CERTIFICATE-----
) > Sleep.com
Certutil -Decode Sleep.com Sleep.exe > nul
Certutil -Decode -f Sleep.com Sleep.com > nul
goto :eof

:Sleep
set Error=0
if exist Sleep.exe (
Sleep.exe %1
goto :eof
)
if not exist Sleep.exe if exist Sleep.com (
Sleep.com %1
goto :eof
)
if not exist Sleep.exe if not exist Sleep.com (
set Error=1
goto :eof
)

:get_key
rem 用法：call :get_key
set "key="
  for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if not defined key set "key=%%a"
  set "key=%key:~-1%"
  set "valid_key=0"
goto :eof

:Msg
Rem 用法： Call :Msg "Text" [buttons] "Title"
echo.Msg=msgbox("%~1",%2,"%~3") > ReturnKey.vbs
Call ReturnKey.vbs > nul
if exist ReturnKey.vbs del ReturnKey.vbs
goto :eof

:Settings_Time
if %Ms_2% Leq 200000000 if %H% geq 0 if %Min% Geq 0 if %S% Geq 0 (
if /i "!key!"=="q" (
set /a Ms_2+=3600000
set /a H+=1
)
if /i "!key!"=="w" (
set /a Ms_2-=3600000
set /a H-=1
)
if /i "!key!"=="e" (
set /a Ms_2+=60000
set /a Min+=1
)
if /i "!key!"=="r" (
set /a Ms_2-=60000
set /a Min-=1
)
if /i "!key!"=="t" (
set /a Ms_2+=1000
set /a S+=1
)
if /i "!key!"=="y" (
set /a Ms_2-=1000
set /a S-=1
)
)
if %S% Lss 0 (
if %Min% Geq 0 if %H% Geq 0 (
set /a Min-=1&set /a S+=60
)
if %Min% Leq 0 if %H% Leq 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@goto :Restart
)
)
if %Min% Lss 0 (
if %H% Gtr 0 set /a H-=1&set /a Min+=60
if %H% Leq 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@goto :Restart
)
)
if %H% Lss 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@goto :Restart
)
if %Ms_2% Gtr 200000000 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@goto :Restart
)
if %S% Geq 60 set /a Min+=1&set S=0
if %Min% Geq 60 set /a H+=1&set Min=0
复制代码

Rank: 4

帖子: 357
积分: 477
技术: 34
捐助: 0
注册时间: 2021-8-8

15楼

发表于 2021-8-12 17:11 | 只看该作者

本帖最后由 HOPE2021 于 2021-8-13 10:51 编辑

有重大谬误，请停止使用！
版本1.0.0009

@echo off
mode con cols=68 lines=5
color f9
endlocal
setlocal enabledelayedexpansion
chcp 936 > nul
Rem By Hope2021
title Hope计时器
cls
echo.
echo.
echo.                                HOPE
call :Vbs_Sleep 1000
call :Sleep_Installs
@goto :Restart

:Restart
color 0f
cls
set H=0
set Min=0
set S=0
set H_2=0
set Min_2=0
set S_2=0
set Ms=0
set Ms_2=0
@goto :Main

:Main
mode con cols=68 lines=7
title Hope计时器
set Error=0
cls
echo.
echo.    ^>^> 当前计时时间：%H%小时%Min%分钟%S%秒
echo.
echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U/I 开始计时//退出
echo.
echo.  P 打开计划程序
call :get_key
call :Settings_Time
if /i "!key!"=="P" (
set St_1=10001
set En_1=10010
mode con cols=68 lines=34
@goto :Task
)
if /i "!key!"=="u" (
mode con cols=68 lines=5
@goto :Start
)
if /i "!key!"=="i" (
exit
)
if /i "!valid_key!" equ "0" goto :Main

:Task
Md Tasks >nul 2>nul
cls
title Hope计时器[计划程序]
set Error=0
echo.
echo.  Hope计时器[计划程序]
set /p Str=--------------------------------------------------------------------<nul
echo.
echo.    ^>^> Q 新建计划   W 使用计划   D 删除计划   E 返回菜单   R 退出
if not exist Tasks\*.Htd (
echo.
echo.    ^>^> 当前没有计划
set /p Str=--------------------------------------------------------------------<nul
echo.
echo.
)
if not exist Tasks\Htd.Hdat echo.10000 > Tasks\Htd.Hdat
if exist Tasks\*.Htd (
cd Tasks
echo.
echo.    ^>^> 当前计划列表
set /p Str=--------------------------------------------------------------------<nul
echo.
echo.
for /f %%i in ('dir /b *.Htd') do (
	for /f "skip=4" %%j in (%%~ni.Htd) do echo.    ^>^> 编号：%%~ni  备注：%%j
)
echo.
cd..
)
)
call :get_key
if /i "!key!"=="E" (
@goto :Main
)
if /i "!key!"=="R" (
exit
)
if /i "!key!"=="Q" (
@goto :New
)
if /i "!key!"=="W" (
@goto :Open
)
if /i "!valid_key!" equ "0" @goto :Task

:Open
if exist Tasks\*.Htd (
set "Content= "
set /p Content=    ^>^> 请输入计划编号：
goto Open_2
) else cd..&@goto :Task

:Del
if exist Tasks\*.Htd (
set "Content= "
set /p Content=    ^>^> 请输入计划编号：
goto Del_2
) else cd..&@goto :Task

:Del_2
cd Tasks
if exist %Content%.Htd (
del %Content%.Htd
cd..
goto Task
) else cd..&goto Task

:Open_2
cd Tasks
if exist %Content%.Htd (
call :Read %Content%
cd..
mode con cols=68 lines=5
@goto :Start
) else cd..&goto Task

:New
cd Tasks
< Htd.Hdat (
set /p Num=
)
set /a Num+=1
echo.%Num% > Htd.Hdat
cd..
echo.
echo.    ^>^> 新建计划：%Num%
echo.
set "Content= "
set /p Content=    ^>^> 备注：
echo.
set "Content=%Content:>=^>%"
set "Content=%Content:<=^<%"
set "Content=%Content:|=^|%"
set H=0
set Min=0
set S=0
set H_2=0
set Min_2=0
set S_2=0
set Ms=0
set Ms_2=0
call :Vbs_Sleep 1000
@goto :New_2

:Read
< %1.Htd (
set /p H=
set /p Min=
set /p S=
set /p Ms_2=
set /p Content=
)
@goto :eof

:New_2
cls
echo.
echo.    ^>^> 当前计时时间：%H%小时%Min%分钟%S%秒
echo.
echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U 完成计划
echo.
call :get_key
call :Settings_Time
if /i "!key!"=="U" (
(
echo.%H%
echo.%Min%
echo.%S%
echo.%Ms_2%
echo.%Content%
) > Tasks\%Num%.Htd
@goto :Task
)
if /i "!valid_key!" equ "0" @goto :New_2

:Error
color 1f
cls
echo.
echo.    ^>^> Sleep.exe 和 Sleep.com 不知到何处去了...
echo.
echo.    ^>^> 正在帮您恢复
call :Sleep_Installs
goto :Restart

:Start
set Error=0
cls
title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
echo.
echo.    ^>^> %H_2%小时%Min_2%分钟%S_2%秒%Ms%毫秒/%H%小时%Min%分钟%S%秒
echo.
echo.    ^>^> Ctrl+C暂停或退出...
call :Sleep 100
if %Error%==1 goto :Error
set /a Ms+=100
if %Ms%==1000 set /a S_2+=1&set Ms=0
if %S_2% Geq 60 set /a Min_2+=1&set S_2=0
if %Min_2% Geq 60 set /a H_2+=1&set Min_2=0
if %H_2% Geq %H% if %Min_2% Geq %Min% if %S_2% Geq %S% goto :End
if /i "!valid_key!" equ "0" goto :Start

:End
cls
color 4e
title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
Call :Msg "时间到" vbExclamation "Hope计时器"
color 0f
@goto :Restart

:Vbs_Sleep
echo.Wscript.Sleep %1 > Sleep.vbs
call Sleep.vbs > nul
if exist ReturnKey.vbs del ReturnKey.vbs
@goto :eof

:Sleep_Installs
mode con cols=68 lines=5
color 0f
(
echo.-----BEGIN CERTIFICATE-----
echo.TVpQAQEAAAAEAAAA//8AAFABAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAkAAAAPy+gQAPtkz/ZjHSZjHASXggrCwwchQ8CXcQZmvSCmYB
echo.wi7HBi8AMQDr5C7/Ji8ADgBmadLoAwAAZonRZsHpELSGzRW4AEzNIQAAAAAAAAAA
echo.UEUAAEwBAQBQeaU2AAAAAAAAAADgAA8BCwEFDAACAAAAAAAAAAAAAH4QAAAAEAAA
echo.ACAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAIAAAAAIAAAAAAAADAAAA
echo.AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAQEAAAKAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAudGV4dAAAANwAAAAAEAAAAAIAAAACAAAAAAAAAAAAAAAAAAAgAADg
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWEAAAZBAAAHYQAAAAAAAA
echo.RhAAAAAAAAAAAAAAOBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtFUk5FTDMy
echo.LmRsbAAAVhAAAGQQAAB2EAAAAAAAAAAARXhpdFByb2Nlc3MAAABHZXRDb21tYW5k
echo.TGluZUEAAABTbGVlcAD/FQQQQAAx0khAgDgAdBGAOCJ1AvfSCdJ174A4IHXqQPyJ
echo.xjHSMcCsCMB0IywwchU8CXcRa9IKAcLHBckQQADNEEAA6+L/JckQQAClEEAAUv8V
echo.CBBAAGoA/xUAEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAA==
echo.-----END CERTIFICATE-----
) > Sleep.com
Certutil -Decode Sleep.com Sleep.exe > nul
Certutil -Decode -f Sleep.com Sleep.com > nul
goto :eof

:Sleep
set Error=0
if exist Sleep.exe (
Sleep.exe %1
goto :eof
)
if not exist Sleep.exe if exist Sleep.com (
Sleep.com %1
goto :eof
)
if not exist Sleep.exe if not exist Sleep.com (
set Error=1
goto :eof
)

:get_key
rem 用法：call :get_key
set "key="
  for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if not defined key set "key=%%a"
  set "key=%key:~-1%"
  set "valid_key=0"
goto :eof

:Msg
Rem 用法： Call :Msg "Text" [buttons] "Title"
echo.Msg=msgbox("%~1",%2,"%~3") > ReturnKey.vbs
Call ReturnKey.vbs > nul
if exist ReturnKey.vbs del ReturnKey.vbs
goto :eof

:Settings_Time
if %Ms_2% Leq 200000000 if %H% geq 0 if %Min% Geq 0 if %S% Geq 0 (
if /i "!key!"=="q" (
set /a Ms_2+=3600000
set /a H+=1
)
if /i "!key!"=="w" (
set /a Ms_2-=3600000
set /a H-=1
)
if /i "!key!"=="e" (
set /a Ms_2+=60000
set /a Min+=1
)
if /i "!key!"=="r" (
set /a Ms_2-=60000
set /a Min-=1
)
if /i "!key!"=="t" (
set /a Ms_2+=1000
set /a S+=1
)
if /i "!key!"=="y" (
set /a Ms_2-=1000
set /a S-=1
)
)
if %S% Lss 0 (
if %Min% Geq 0 if %H% Geq 0 (
set /a Min-=1&set /a S+=60
)
if %Min% Leq 0 if %H% Leq 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@goto :Restart
)
)
if %Min% Lss 0 (
if %H% Gtr 0 set /a H-=1&set /a Min+=60
if %H% Leq 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@goto :Restart
)
)
if %H% Lss 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@goto :Restart
)
if %Ms_2% Gtr 200000000 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@goto :Restart
)
if %S% Geq 60 set /a Min+=1&set S=0
if %Min% Geq 60 set /a H+=1&set Min=0
复制代码

Rank: 4

帖子: 357
积分: 477
技术: 34
捐助: 0
注册时间: 2021-8-8

14楼

发表于 2021-8-12 16:42 | 只看该作者

版本1.0.0008

@echo off
mode con cols=68 lines=5
color f9
endlocal
setlocal enabledelayedexpansion
chcp 936 > nul
Rem By Hope2021
title Hope计时器
cls
echo.
echo.
echo.                                HOPE
call :Vbs_Sleep 1000
call :Sleep_Installs
@goto :Restart

:Restart
color 0f
cls
set H=0
set Min=0
set S=0
set H_2=0
set Min_2=0
set S_2=0
set Ms=0
set Ms_2=0
@goto :Main

:Main
mode con cols=68 lines=7
title Hope计时器
set Error=0
cls
echo.
echo.    ^>^> 当前计时时间：%H%小时%Min%分钟%S%秒
echo.
echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U/I 开始计时//退出
echo.
echo.  P 打开计划程序
call :get_key
call :Settings_Time
if /i "!key!"=="P" (
set St_1=10001
set En_1=10010
mode con cols=68 lines=34
@goto :Task
)
if /i "!key!"=="u" (
mode con cols=68 lines=5
@goto :Start
)
if /i "!key!"=="i" (
exit
)
if /i "!valid_key!" equ "0" goto :Main

:Task
Md Tasks >nul 2>nul
cls
title Hope计时器[计划程序]
set Error=0
echo.
echo.  Hope计时器[计划程序]
set /p Str=--------------------------------------------------------------------<nul
echo.
echo.    ^>^> Q 新建计划   W 使用计划   D 删除计划   E 返回菜单   R 退出
if not exist Tasks\*.Htd (
echo.
echo.    ^>^> 当前没有计划
set /p Str=--------------------------------------------------------------------<nul
echo.
echo.
)
if not exist Tasks\Htd.Hdat echo.10000 > Tasks\Htd.Hdat
if exist Tasks\*.Htd (
cd Tasks
echo.
echo.    ^>^> 当前计划列表
set /p Str=--------------------------------------------------------------------<nul
echo.
echo.
for /f %%i in ('dir /b *.Htd') do (
    echo.    ^>^> 编号：%%~ni
)
echo.
cd..
)
)
call :get_key
if /i "!key!"=="E" (
@goto :Main
)
if /i "!key!"=="R" (
exit
)
if /i "!key!"=="Q" (
@goto :New
)
if /i "!key!"=="W" (
@goto :Open
)
if /i "!valid_key!" equ "0" @goto :Task

:Open
if exist Tasks\*.Htd (
set "Content= "
set /p Content=    ^>^> 请输入计划编号：
goto Open_2
) else cd..&@goto :Task

:Del
if exist Tasks\*.Htd (
set "Content= "
set /p Content=    ^>^> 请输入计划编号：
goto Del_2
) else cd..&@goto :Task

:Del_2
cd Tasks
if exist %Content%.Htd (
del %Content%.Htd
cd..
goto Task
) else cd..&goto Task

:Open_2
cd Tasks
if exist %Content%.Htd (
call :Read %Content%
cd..
mode con cols=68 lines=5
@goto :Start
) else cd..&goto Task

:New
cd Tasks
< Htd.Hdat (
set /p Num=
)
set /a Num+=1
echo.%Num% > Htd.Hdat
cd..
echo.
echo.    ^>^> 新建了计划：%Num%
echo.
set H=0
set Min=0
set S=0
set H_2=0
set Min_2=0
set S_2=0
set Ms=0
set Ms_2=0
call :Vbs_Sleep 1000
@goto :New_2

:Read
< %1.Htd (
set /p H=
set /p Min=
set /p S=
set /p Ms_2=
)
@goto :eof

:New_2
cls
echo.
echo.    ^>^> 当前计时时间：%H%小时%Min%分钟%S%秒
echo.
echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U 完成计划
echo.
call :get_key
call :Settings_Time
if /i "!key!"=="U" (
(
echo.%H%
echo.%Min%
echo.%S%
echo.%Ms_2%
) > Tasks\%Num%.Htd
@goto :Task
)
if /i "!valid_key!" equ "0" @goto :New_2

:Error
color 1f
cls
echo.
echo.    ^>^> Sleep.exe 和 Sleep.com 不知到何处去了...
echo.
echo.    ^>^> 正在帮您恢复
call :Sleep_Installs
goto :Restart

:Start
set Error=0
cls
title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
echo.
echo.    ^>^> %H_2%小时%Min_2%分钟%S_2%秒%Ms%毫秒/%H%小时%Min%分钟%S%秒
echo.
echo.    ^>^> Ctrl+C暂停或退出...
call :Sleep 100
if %Error%==1 goto :Error
set /a Ms+=100
if %Ms%==1000 set /a S_2+=1&set Ms=0
if %S_2% Geq 60 set /a Min_2+=1&set S_2=0
if %Min_2% Geq 60 set /a H_2+=1&set Min_2=0
if %H_2% Geq %H% if %Min_2% Geq %Min% if %S_2% Geq %S% goto :End
if /i "!valid_key!" equ "0" goto :Start

:End
cls
color 4e
title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
Call :Msg "时间到" vbExclamation "Hope计时器"
color 0f
@goto :Restart

:Vbs_Sleep
echo.Wscript.Sleep %1 > Sleep.vbs
call Sleep.vbs > nul
if exist ReturnKey.vbs del ReturnKey.vbs
@goto :eof

:Sleep_Installs
mode con cols=68 lines=5
color 0f
(
echo.-----BEGIN CERTIFICATE-----
echo.TVpQAQEAAAAEAAAA//8AAFABAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAkAAAAPy+gQAPtkz/ZjHSZjHASXggrCwwchQ8CXcQZmvSCmYB
echo.wi7HBi8AMQDr5C7/Ji8ADgBmadLoAwAAZonRZsHpELSGzRW4AEzNIQAAAAAAAAAA
echo.UEUAAEwBAQBQeaU2AAAAAAAAAADgAA8BCwEFDAACAAAAAAAAAAAAAH4QAAAAEAAA
echo.ACAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAIAAAAAIAAAAAAAADAAAA
echo.AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAQEAAAKAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAudGV4dAAAANwAAAAAEAAAAAIAAAACAAAAAAAAAAAAAAAAAAAgAADg
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWEAAAZBAAAHYQAAAAAAAA
echo.RhAAAAAAAAAAAAAAOBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtFUk5FTDMy
echo.LmRsbAAAVhAAAGQQAAB2EAAAAAAAAAAARXhpdFByb2Nlc3MAAABHZXRDb21tYW5k
echo.TGluZUEAAABTbGVlcAD/FQQQQAAx0khAgDgAdBGAOCJ1AvfSCdJ174A4IHXqQPyJ
echo.xjHSMcCsCMB0IywwchU8CXcRa9IKAcLHBckQQADNEEAA6+L/JckQQAClEEAAUv8V
echo.CBBAAGoA/xUAEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAA==
echo.-----END CERTIFICATE-----
) > Sleep.com
Certutil -Decode Sleep.com Sleep.exe > nul
Certutil -Decode -f Sleep.com Sleep.com > nul
goto :eof

:Sleep
set Error=0
if exist Sleep.exe (
Sleep.exe %1
goto :eof
)
if not exist Sleep.exe if exist Sleep.com (
Sleep.com %1
goto :eof
)
if not exist Sleep.exe if not exist Sleep.com (
set Error=1
goto :eof
)

:get_key
rem 用法：call :get_key
set "key="
  for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if not defined key set "key=%%a"
  set "key=%key:~-1%"
  set "valid_key=0"
goto :eof

:Msg
Rem 用法： Call :Msg "Text" [buttons] "Title"
echo.Msg=msgbox("%~1",%2,"%~3") > ReturnKey.vbs
Call ReturnKey.vbs > nul
if exist ReturnKey.vbs del ReturnKey.vbs
goto :eof

:Settings_Time
if %Ms_2% Leq 200000000 if %H% geq 0 if %Min% Geq 0 if %S% Geq 0 (
if /i "!key!"=="q" (
set /a Ms_2+=3600000
set /a H+=1
)
if /i "!key!"=="w" (
set /a Ms_2-=3600000
set /a H-=1
)
if /i "!key!"=="e" (
set /a Ms_2+=60000
set /a Min+=1
)
if /i "!key!"=="r" (
set /a Ms_2-=60000
set /a Min-=1
)
if /i "!key!"=="t" (
set /a Ms_2+=1000
set /a S+=1
)
if /i "!key!"=="y" (
set /a Ms_2-=1000
set /a S-=1
)
)
if %S% Lss 0 (
if %Min% Geq 0 if %H% Geq 0 (
set /a Min-=1&set /a S+=60
)
if %Min% Leq 0 if %H% Leq 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@goto :Restart
)
)
if %Min% Lss 0 (
if %H% Gtr 0 set /a H-=1&set /a Min+=60
if %H% Leq 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@goto :Restart
)
)
if %H% Lss 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@goto :Restart
)
if %Ms_2% Gtr 200000000 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@goto :Restart
)
if %S% Geq 60 set /a Min+=1&set S=0
if %Min% Geq 60 set /a H+=1&set Min=0
复制代码

Rank: 4

帖子: 357
积分: 477
技术: 34
捐助: 0
注册时间: 2021-8-8

13楼

发表于 2021-8-12 11:25 | 只看该作者

您的视频我看过了，在我的电脑上并不卡。
BATHOMEPNG\Hope计时器录像.rar

Rank: 4

帖子: 357
积分: 477
技术: 34
捐助: 0
注册时间: 2021-8-8

12楼

发表于 2021-8-12 11:03 | 只看该作者

版本1.0.0007

@echo off
endlocal
setlocal enabledelayedexpansion
chcp 936 > nul
Rem By Hope2021
title Hope计时器
mode con cols=68 lines=5
color f9
cls
echo.
echo.
echo.                                HOPE
call :Vbs_Sleep 1000
call :Sleep_Installs
@goto :Restart

:Restart
color 0f
cls
set H=0
set Min=0
set S=0
set H_2=0
set Min_2=0
set S_2=0
set Ms=0
set Ms_2=0
@goto :Main

:Main
title Hope计时器
set Error=0
cls
echo.
echo.    ^>^> 当前计时时间：%H%小时%Min%分钟%S%秒
echo.
echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U/I 开始计时//退出
call :get_key
if %Ms_2% Leq 200000000 if %H% geq 0 if %Min% Geq 0 if %S% Geq 0 (
if /i "!key!"=="q" (
set /a Ms_2+=3600000
set /a H+=1
)
if /i "!key!"=="w" (
set /a Ms_2-=3600000
set /a H-=1
)
if /i "!key!"=="e" (
set /a Ms_2+=60000
set /a Min+=1
)
if /i "!key!"=="r" (
set /a Ms_2-=60000
set /a Min-=1
)
if /i "!key!"=="t" (
set /a Ms_2+=1000
set /a S+=1
)
if /i "!key!"=="y" (
set /a Ms_2-=1000
set /a S-=1
)
if /i "!key!"=="i" (
exit
)
)
if %S% Lss 0 (
if %Min% Geq 0 if %H% Geq 0 (
set /a Min-=1&set /a S+=60
)
if %Min% Leq 0 if %H% Leq 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@goto :Restart
)
)
if %Min% Lss 0 (
if %H% Gtr 0 set /a H-=1&set /a Min+=60
if %H% Leq 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@goto :Restart
)
)
if %H% Lss 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@goto :Restart
)
if %Ms_2% Gtr 200000000 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@goto :Restart
)
if %S% Geq 60 set /a Min+=1&set S=0
if %Min% Geq 60 set /a H+=1&set Min=0
if /i "!key!"=="u" (
@goto :Start
)
if /i "!valid_key!" equ "0" goto :Main

:Error
color 1f
cls
echo.
echo.    ^>^> Sleep.exe 和 Sleep.com 不知到何处去了...
echo.
echo.    ^>^> 正在帮您恢复
call :Sleep_Installs
goto :Restart

:Start
set Error=0
cls
title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
echo.
echo.    ^>^> %H_2%小时%Min_2%分钟%S_2%秒%Ms%毫秒/%H%小时%Min%分钟%S%秒
echo.
echo.    ^>^> Ctrl+C暂停或退出...
call :Sleep 100
if %Error%==1 goto :Error
set /a Ms+=100
if %Ms%==1000 set /a S_2+=1&set Ms=0
if %S_2% Geq 60 set /a Min_2+=1&set S_2=0
if %Min_2% Geq 60 set /a H_2+=1&set Min_2=0
if %H_2% Geq %H% if %Min_2% Geq %Min% if %S_2% Geq %S% goto :End
if /i "!valid_key!" equ "0" goto :Start

:End
cls
color 4e
title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
Call :Msg "时间到" vbExclamation "Hope计时器"
color 0f
@goto :Restart

:Vbs_Sleep
echo.Wscript.Sleep %1 > Sleep.vbs
call Sleep.vbs > nul
if exist ReturnKey.vbs del ReturnKey.vbs
@goto :eof

:Sleep_Installs
mode con cols=68 lines=5
color 0f
(
echo.-----BEGIN CERTIFICATE-----
echo.TVpQAQEAAAAEAAAA//8AAFABAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAkAAAAPy+gQAPtkz/ZjHSZjHASXggrCwwchQ8CXcQZmvSCmYB
echo.wi7HBi8AMQDr5C7/Ji8ADgBmadLoAwAAZonRZsHpELSGzRW4AEzNIQAAAAAAAAAA
echo.UEUAAEwBAQBQeaU2AAAAAAAAAADgAA8BCwEFDAACAAAAAAAAAAAAAH4QAAAAEAAA
echo.ACAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAIAAAAAIAAAAAAAADAAAA
echo.AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAQEAAAKAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAudGV4dAAAANwAAAAAEAAAAAIAAAACAAAAAAAAAAAAAAAAAAAgAADg
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWEAAAZBAAAHYQAAAAAAAA
echo.RhAAAAAAAAAAAAAAOBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtFUk5FTDMy
echo.LmRsbAAAVhAAAGQQAAB2EAAAAAAAAAAARXhpdFByb2Nlc3MAAABHZXRDb21tYW5k
echo.TGluZUEAAABTbGVlcAD/FQQQQAAx0khAgDgAdBGAOCJ1AvfSCdJ174A4IHXqQPyJ
echo.xjHSMcCsCMB0IywwchU8CXcRa9IKAcLHBckQQADNEEAA6+L/JckQQAClEEAAUv8V
echo.CBBAAGoA/xUAEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAA==
echo.-----END CERTIFICATE-----
) > Sleep.com
Certutil -Decode Sleep.com Sleep.exe > nul
Certutil -Decode -f Sleep.com Sleep.com > nul
goto :eof

:Sleep
set Error=0
if exist Sleep.exe (
Sleep.exe %1
goto :eof
)
if not exist Sleep.exe if exist Sleep.com (
Sleep.com %1
goto :eof
)
if not exist Sleep.exe if not exist Sleep.com (
set Error=1
goto :eof
)

:get_key
rem 用法：call :get_key
set "key="
  for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if not defined key set "key=%%a"
  set "key=%key:~-1%"
  set "valid_key=0"
goto :eof

:Msg
Rem 用法： Call :Msg "Text" [buttons] "Title"
echo.Msg=msgbox("%~1",%2,"%~3") > ReturnKey.vbs
Call ReturnKey.vbs > nul
if exist ReturnKey.vbs del ReturnKey.vbs
goto :eof
复制代码

Rank: 4

帖子: 357
积分: 477
技术: 34
捐助: 0
注册时间: 2021-8-8

11楼

发表于 2021-8-12 10:31 | 只看该作者

版本1.0.0006

@echo off
endlocal
setlocal enabledelayedexpansion
chcp 936 > nul
Rem By Hope2021
title Hope计时器
mode con cols=68 lines=5
cls
echo.
echo.
echo.                                HOPE
color 0f
call :Vbs_Sleep 1000
call :Sleep_Installs
@goto :Restart

:Restart
title Hope计时器
cls
set H=0
set Min=0
set S=0
set H_2=0
set Min_2=0
set S_2=0
set Ms=0
set Ms_2=0
@goto :Main

:Main
title Hope计时器
set Error=0
cls
echo.
echo.    ^>^>当前计时时间：%H%小时%Min%分钟%S%秒
echo.
echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U/I 开始计时//退出
call :get_key
if %Ms_2% Leq 200000000 if %H% geq 0 if %Min% Geq 0 if %S% Geq 0 (
if /i "!key!"=="q" (
set /a Ms_2+=3600000
set /a H+=1
)
if /i "!key!"=="w" (
set /a Ms_2-=3600000
set /a H-=1
)
if /i "!key!"=="e" (
set /a Ms_2+=60000
set /a Min+=1
)
if /i "!key!"=="r" (
set /a Ms_2-=60000
set /a Min-=1
)
if /i "!key!"=="t" (
set /a Ms_2+=1000
set /a S+=1
)
if /i "!key!"=="y" (
set /a Ms_2-=1000
set /a S-=1
)
if /i "!key!"=="i" (
exit
)
)
if %S% Lss 0 (
if %Min% Geq 0 if %H% Geq 0 (
set /a Min-=1&set /a S+=60
)
if %Min% Leq 0 if %H% Leq 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@goto :Restart
)
)
if %Min% Lss 0 (
if %H% Gtr 0 set /a H-=1&set /a Min+=60
if %H% Leq 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@goto :Restart
)
)
if %H% Lss 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@goto :Restart
)
if %Ms_2% Gtr 200000000 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@goto :Restart
)
if %S% Geq 60 set /a Min+=1&set S=0
if %Min% Geq 60 set /a H+=1&set Min=0
if /i "!key!"=="u" (
@goto :Start
)
if /i "!valid_key!" equ "0" goto :Main

:Error
color 1f
cls
echo.
echo.    ^>^> Sleep.exe 和 Sleep.com 不知到何处去了...
echo.
echo.    ^>^> 正在帮您恢复
call :Sleep_Installs
goto :Restart

:Start
set Error=0
cls
title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
echo.
echo.    ^>^> %H_2%小时%Min_2%分钟%S_2%秒%Ms%毫秒/%H%小时%Min%分钟%S%秒
echo.
echo.    ^>^> Ctrl+C暂停或退出...
call :Sleep 100
if %Error%==1 goto :Error
set /a Ms+=100
if %Ms%==1000 set /a S_2+=1&set Ms=0
if %S_2% Geq 60 set /a Min_2+=1&set S_2=0
if %Min_2% Geq 60 set /a H_2+=1&set Min_2=0
if %H_2% Geq %H% if %Min_2% Geq %Min% if %S_2% Geq %S% goto :End
if /i "!valid_key!" equ "0" goto :Start

:End
cls
color 4e
title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
Call :Msg "时间到" vbExclamation "Hope计时器"
color 0f
@goto :Restart

:Vbs_Sleep
echo.Wscript.Sleep %1 > Sleep.vbs
call Sleep.vbs > nul
if exist ReturnKey.vbs del ReturnKey.vbs
@goto :eof

:Sleep_Installs
mode con cols=68 lines=5
color 0f
(
echo.-----BEGIN CERTIFICATE-----
echo.TVpQAQEAAAAEAAAA//8AAFABAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAkAAAAPy+gQAPtkz/ZjHSZjHASXggrCwwchQ8CXcQZmvSCmYB
echo.wi7HBi8AMQDr5C7/Ji8ADgBmadLoAwAAZonRZsHpELSGzRW4AEzNIQAAAAAAAAAA
echo.UEUAAEwBAQBQeaU2AAAAAAAAAADgAA8BCwEFDAACAAAAAAAAAAAAAH4QAAAAEAAA
echo.ACAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAIAAAAAIAAAAAAAADAAAA
echo.AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAQEAAAKAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAudGV4dAAAANwAAAAAEAAAAAIAAAACAAAAAAAAAAAAAAAAAAAgAADg
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWEAAAZBAAAHYQAAAAAAAA
echo.RhAAAAAAAAAAAAAAOBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtFUk5FTDMy
echo.LmRsbAAAVhAAAGQQAAB2EAAAAAAAAAAARXhpdFByb2Nlc3MAAABHZXRDb21tYW5k
echo.TGluZUEAAABTbGVlcAD/FQQQQAAx0khAgDgAdBGAOCJ1AvfSCdJ174A4IHXqQPyJ
echo.xjHSMcCsCMB0IywwchU8CXcRa9IKAcLHBckQQADNEEAA6+L/JckQQAClEEAAUv8V
echo.CBBAAGoA/xUAEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAA==
echo.-----END CERTIFICATE-----
) > Sleep.com
Certutil -Decode Sleep.com Sleep.exe > nul
Certutil -Decode -f Sleep.com Sleep.com > nul
goto :eof

:Sleep
set Error=0
if exist Sleep.exe (
Sleep.exe %1
goto :eof
)
if not exist Sleep.exe if exist Sleep.com (
Sleep.com %1
goto :eof
)
if not exist Sleep.exe if not exist Sleep.com (
set Error=1
goto :eof
)

:get_key
rem 用法：call :get_key
set "key="
  for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if not defined key set "key=%%a"
  set "key=%key:~-1%"
  set "valid_key=0"
goto :eof

:Msg
Rem 用法： Call :Msg "Text" [buttons] "Title"
echo.Msg=msgbox("%~1",%2,"%~3") > ReturnKey.vbs
Call ReturnKey.vbs > nul
if exist ReturnKey.vbs del ReturnKey.vbs
goto :eof
复制代码

Rank: 4

帖子: 357
积分: 477
技术: 34
捐助: 0
注册时间: 2021-8-8

10楼

发表于 2021-8-12 10:29 | 只看该作者

回复 9# cmd1152
看上去是特别卡，实际上每秒运行十次，下一个版本加上毫秒

帖子: 984
积分: 467
技术: 33
捐助: 0
注册时间: 2021-7-14

9楼

发表于 2021-8-12 10:27 | 只看该作者

回复 8# HOPE2021

特别卡
点我查看视频

梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

Rank: 4

帖子: 357
积分: 477
技术: 34
捐助: 0
注册时间: 2021-8-8

8楼

发表于 2021-8-12 10:10 | 只看该作者

版本1.0.0005

@echo off
endlocal
setlocal enabledelayedexpansion
chcp 936 > nul
Rem By Hope2021
title Hope计时器
mode con cols=68 lines=5
cls
echo.
echo.
echo.                                HOPE
color 0f
call :Vbs_Sleep 1000
call :Sleep_Installs
@goto :Restart

:Restart
title Hope计时器
cls
set H=0
set Min=0
set S=0
set H_2=0
set Min_2=0
set S_2=0
set Ms=0
set Ms_2=0
@goto :Main

:Main
title Hope计时器
set Error=0
cls
echo.
echo.    ^>^>当前计时时间：%H%小时%Min%分钟%S%秒
echo.
echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U/I 开始计时//退出
call :get_key
if %Ms_2% Leq 200000000 if %H% geq 0 if %Min% Geq 0 if %S% Geq 0 (
if /i "!key!"=="q" (
set /a Ms_2+=3600000
set /a H+=1
)
if /i "!key!"=="w" (
set /a Ms_2-=3600000
set /a H-=1
)
if /i "!key!"=="e" (
set /a Ms_2+=60000
set /a Min+=1
)
if /i "!key!"=="r" (
set /a Ms_2-=60000
set /a Min-=1
)
if /i "!key!"=="t" (
set /a Ms_2+=1000
set /a S+=1
)
if /i "!key!"=="y" (
set /a Ms_2-=1000
set /a S-=1
)
if /i "!key!"=="i" (
exit
)
)
if %S% Lss 0 (
if %Min% Geq 0 if %H% Geq 0 (
set /a Min-=1&set /a S+=60
)
if %Min% Leq 0 if %H% Leq 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@goto :Restart
)
)
if %Min% Lss 0 (
if %H% Gtr 0 set /a H-=1&set /a Min+=60
if %H% Leq 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@goto :Restart
)
)
if %H% Lss 0 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@goto :Restart
)
if %Ms_2% Gtr 200000000 (
echo.
echo.    ^>^> 算数错误！
call :Vbs_Sleep 100
@goto :Restart
)
if %S% Geq 60 set /a Min+=1&set S=0
if %Min% Geq 60 set /a H+=1&set Min=0
if /i "!key!"=="u" (
@goto :Start
)
if /i "!valid_key!" equ "0" goto :Main

:Error
color 1f
cls
echo.
echo.    ^>^> Sleep.exe 和 Sleep.com 不知到何处去了...
echo.
echo.    ^>^> 正在帮您恢复
call :Sleep_Installs
goto :Restart

:Start
set Error=0
cls
title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
echo.
echo.    ^>^> %H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒
echo.
echo.    ^>^> Ctrl+C暂停或退出...
call :Sleep 100
if %Error%==1 goto :Error
set /a Ms+=100
if %Ms%==1000 set /a S_2+=1&set Ms=0
if %S_2% Geq 60 set /a Min_2+=1&set S_2=0
if %Min_2% Geq 60 set /a H_2+=1&set Min_2=0
if %H_2% Geq %H% if %Min_2% Geq %Min% if %S_2% Geq %S% goto :End
if /i "!valid_key!" equ "0" goto :Start

:End
cls
color 4e
title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
Call :Msg "时间到" vbExclamation "Hope计时器"
color 0f
@goto :Restart

:Vbs_Sleep
echo.Wscript.Sleep %1 > Sleep.vbs
call Sleep.vbs > nul
if exist ReturnKey.vbs del ReturnKey.vbs
@goto :eof

:Sleep_Installs
mode con cols=68 lines=5
color 0f
(
echo.-----BEGIN CERTIFICATE-----
echo.TVpQAQEAAAAEAAAA//8AAFABAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAkAAAAPy+gQAPtkz/ZjHSZjHASXggrCwwchQ8CXcQZmvSCmYB
echo.wi7HBi8AMQDr5C7/Ji8ADgBmadLoAwAAZonRZsHpELSGzRW4AEzNIQAAAAAAAAAA
echo.UEUAAEwBAQBQeaU2AAAAAAAAAADgAA8BCwEFDAACAAAAAAAAAAAAAH4QAAAAEAAA
echo.ACAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAIAAAAAIAAAAAAAADAAAA
echo.AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAQEAAAKAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAudGV4dAAAANwAAAAAEAAAAAIAAAACAAAAAAAAAAAAAAAAAAAgAADg
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWEAAAZBAAAHYQAAAAAAAA
echo.RhAAAAAAAAAAAAAAOBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtFUk5FTDMy
echo.LmRsbAAAVhAAAGQQAAB2EAAAAAAAAAAARXhpdFByb2Nlc3MAAABHZXRDb21tYW5k
echo.TGluZUEAAABTbGVlcAD/FQQQQAAx0khAgDgAdBGAOCJ1AvfSCdJ174A4IHXqQPyJ
echo.xjHSMcCsCMB0IywwchU8CXcRa9IKAcLHBckQQADNEEAA6+L/JckQQAClEEAAUv8V
echo.CBBAAGoA/xUAEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAA==
echo.-----END CERTIFICATE-----
) > Sleep.com
Certutil -Decode Sleep.com Sleep.exe > nul
Certutil -Decode -f Sleep.com Sleep.com > nul
goto :eof

:Sleep
set Error=0
if exist Sleep.exe (
Sleep.exe %1
goto :eof
)
if not exist Sleep.exe if exist Sleep.com (
Sleep.com %1
goto :eof
)
if not exist Sleep.exe if not exist Sleep.com (
set Error=1
goto :eof
)

:get_key
rem 用法：call :get_key
set "key="
  for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if not defined key set "key=%%a"
  set "key=%key:~-1%"
  set "valid_key=0"
goto :eof

:Msg
Rem 用法： Call :Msg "Text" [buttons] "Title"
echo.Msg=msgbox("%~1",%2,"%~3") > ReturnKey.vbs
Call ReturnKey.vbs > nul
if exist ReturnKey.vbs del ReturnKey.vbs
goto :eof
复制代码

Rank: 4

帖子: 357
积分: 477
技术: 34
捐助: 0
注册时间: 2021-8-8

7楼

发表于 2021-8-12 09:52 | 只看该作者

曾经写的一个动画

@echo off
call :Sleep_Installs
set N1=     ■■■    ■■■       ■■■       ■■■■■■■    ■■■■■■■
set N2=       ■        ■       ■      ■       ■         ■     ■          ■
set N3=       ■        ■     ■          ■     ■          ■    ■
set N4=       ■        ■    ■            ■    ■         ■     ■     ■
set N5=       ■■■■■■    ■            ■    ■■■■■■      ■■■■
set N6=       ■        ■    ■            ■    ■                ■     ■
set N7=       ■        ■     ■          ■     ■                ■
set N8=       ■        ■       ■      ■       ■                ■          ■
set N9=     ■■■    ■■■       ■■■       ■■■            ■■■■■■■
Mode Con: Cols=80 Lines=30
Rem Hope Text Art 片头
call :Echo
call :Sleep 20
set "N1=%N1:■=回%"
call :Echo
call :Sleep 20
set "N2=%N2:■=回%"
call :Echo
call :Sleep 20
set "N3=%N3:■=回%"
call :Echo
call :Sleep 20
set "N4=%N4:■=回%"
call :Echo
call :Sleep 20
set "N5=%N5:■=回%"
call :Echo
call :Sleep 20
set "N6=%N6:■=回%"
call :Echo
call :Sleep 20
set "N7=%N7:■=回%"
call :Echo
call :Sleep 20
set "N8=%N8:■=回%"
call :Echo
call :Sleep 20
set "N9=%N9:■=回%"
call :Echo
call :Sleep 20
set "N1=%N1:回=＠%"
call :Echo
call :Sleep 20
set "N2=%N2:回=＠%"
call :Echo
call :Sleep 20
set "N3=%N3:回=＠%"
call :Echo
call :Sleep 20
set "N4=%N4:回=＠%"
call :Echo
call :Sleep 20
set "N5=%N5:回=＠%"
call :Echo
call :Sleep 20
set "N6=%N6:回=＠%"
call :Echo
call :Sleep 20
set "N7=%N7:回=＠%"
call :Echo
call :Sleep 20
set "N8=%N8:回=＠%"
call :Echo
call :Sleep 20
set "N9=%N9:回=＠%"
call :Echo
call :Sleep 20
set "N1=%N1:＠=∷%"
call :Echo
call :Sleep 20
set "N2=%N2:＠=∷%"
call :Echo
call :Sleep 20
set "N3=%N3:＠=∷%"
call :Echo
call :Sleep 20
set "N4=%N4:＠=∷%"
call :Echo
call :Sleep 20
set "N5=%N5:＠=∷%"
call :Echo
call :Sleep 20
set "N6=%N6:＠=∷%"
call :Echo
call :Sleep 20
set "N7=%N7:＠=∷%"
call :Echo
call :Sleep 20
set "N8=%N8:＠=∷%"
call :Echo
call :Sleep 20
set "N9=%N9:＠=∷%"
call :Echo
call :Sleep 20
set "N1=%N1:∷=□%"
call :Echo
call :Sleep 20
set "N2=%N2:∷=□%"
call :Echo
call :Sleep 20
set "N3=%N3:∷=□%"
call :Echo
call :Sleep 20
set "N4=%N4:∷=□%"
call :Echo
call :Sleep 20
set "N5=%N5:∷=□%"
call :Echo
call :Sleep 20
set "N6=%N6:∷=□%"
call :Echo
call :Sleep 20
set "N7=%N7:∷=□%"
call :Echo
call :Sleep 20
set "N8=%N8:∷=□%"
call :Echo
call :Sleep 20
set "N9=%N9:∷=□%"
call :Echo
call :Sleep 20
set "N1=%N1:□=_/%"
call :Echo
call :Sleep 20
set "N2=%N2:□=_/%"
call :Echo
call :Sleep 20
set "N3=%N3:□=_/%"
call :Echo
call :Sleep 20
set "N4=%N4:□=_/%"
call :Echo
call :Sleep 20
set "N5=%N5:□=_/%"
call :Echo
call :Sleep 20
set "N6=%N6:□=_/%"
call :Echo
call :Sleep 20
set "N7=%N7:□=_/%"
call :Echo
call :Sleep 20
set "N8=%N8:□=_/%"
call :Echo
call :Sleep 20
set "N9=%N9:□=_/%"
call :Echo
call :Sleep 20
set "N1=%N1:_/=  %"
call :Echo
call :Sleep 20
set "N2=%N2:_/=  %"
call :Echo
call :Sleep 20
set "N3=%N3:_/=  %"
call :Echo
call :Sleep 20
set "N4=%N4:_/=  %"
call :Echo
call :Sleep 20
set "N5=%N5:_/=  %"
call :Echo
call :Sleep 20
set "N6=%N6:_/=  %"
call :Echo
call :Sleep 20
set "N7=%N7:_/=  %"
call :Echo
call :Sleep 20
set "N8=%N8:_/=  %"
call :Echo
call :Sleep 20
set "N9=%N9:_/=  %"
call :Echo_2
call :Sleep 20
pause>nul

:Echo
color 1f
Mode Con: Cols=80 Lines=30
cls
for /l %%i in (1,1,8) do echo.
echo.%N1%
echo.%N2%
echo.%N3%
echo.%N4%
echo.%N5%
echo.%N6%
echo.%N7%
echo.%N8%
echo.%N9%
for /l %%i in (1,1,5) do echo.
echo.                                      HOPE
goto :eof

:Echo_2
color 1f
Mode Con: Cols=80 Lines=30
cls
for /l %%i in (1,1,8) do echo.
echo.%N1%
echo.%N2%
echo.%N3%
echo.%N4%
echo.%N5%
echo.%N6%
echo.%N7%
echo.%N8%
echo.%N9%
goto :eof

:Sleep_Installs
(
echo.-----BEGIN CERTIFICATE-----
echo.TVpQAQEAAAAEAAAA//8AAFABAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAkAAAAPy+gQAPtkz/ZjHSZjHASXggrCwwchQ8CXcQZmvSCmYB
echo.wi7HBi8AMQDr5C7/Ji8ADgBmadLoAwAAZonRZsHpELSGzRW4AEzNIQAAAAAAAAAA
echo.UEUAAEwBAQBQeaU2AAAAAAAAAADgAA8BCwEFDAACAAAAAAAAAAAAAH4QAAAAEAAA
echo.ACAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAIAAAAAIAAAAAAAADAAAA
echo.AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAQEAAAKAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAudGV4dAAAANwAAAAAEAAAAAIAAAACAAAAAAAAAAAAAAAAAAAgAADg
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWEAAAZBAAAHYQAAAAAAAA
echo.RhAAAAAAAAAAAAAAOBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtFUk5FTDMy
echo.LmRsbAAAVhAAAGQQAAB2EAAAAAAAAAAARXhpdFByb2Nlc3MAAABHZXRDb21tYW5k
echo.TGluZUEAAABTbGVlcAD/FQQQQAAx0khAgDgAdBGAOCJ1AvfSCdJ174A4IHXqQPyJ
echo.xjHSMcCsCMB0IywwchU8CXcRa9IKAcLHBckQQADNEEAA6+L/JckQQAClEEAAUv8V
echo.CBBAAGoA/xUAEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
echo.AAAAAAAAAAAAAAAAAAAAAA==
echo.-----END CERTIFICATE-----
) > Sleep.com
Certutil -Decode Sleep.com Sleep.exe > nul
Certutil -Decode -f Sleep.com Sleep.com > nul
goto :eof

:Sleep
if exist Sleep.exe (
Sleep.exe %1
goto :eof
)
if not exist Sleep.exe if exist Sleep.com (
Sleep.com %1
goto :eof
)
if not exist Sleep.exe if not exist Sleep.com (
echo.Wscript.Sleep %1 > Sleep.vbs
cscript //nologo Sleep.vbs
goto :eof
)
复制代码

Rank: 4

帖子: 357
积分: 477
技术: 34
捐助: 0
注册时间: 2021-8-8

6楼

发表于 2021-8-12 09:49 | 只看该作者

这里使用的Sleep最低延时20Ms

Rank: 4

帖子: 357
积分: 477
技术: 34
捐助: 0
注册时间: 2021-8-8

5楼

发表于 2021-8-12 09:48 | 只看该作者

此Sleep非彼Sleep

1 2 3 4 5 6 789 下一页