更新永無止境Hope計時器

[更新永無止境]Hope計時器最后由 HOPE 于 -8-21 15:02更新日志--------------------------------------------------------------------------------------------------詳見117樓緊急通知--------------------------------------------------------------------------------------------------版本 1.0.0004出現(xiàn)重大Bug，請立即暫停使用！請一定要檢查您的電腦配置是否高，否則程序速度將會極慢！版本 1.0.0009出現(xiàn)重大Bug，請立即暫停使用！版本 1.0.0010出現(xiàn)重大Bug，請立即暫停使用！版本 1.0.0011出現(xiàn)重大Bug，請立即暫停使用！版本 1.0.0013出現(xiàn)重大Bug，請立即暫停使用！源碼[版本 1.0.0001][有冗余，請指正]：

@echo off
endlocal
setlocal enabledelayedexpansion
chcp 936 > nul
Rem By Hope
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 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 /i !key!==u (
@goto :Start
)
)
for %%i in (%H% %Min% %S%) do (
if %%i Lss 0 (
echo.
echo.^>^> 算數(shù)錯誤！
set H=0
set Min=0
set S=0
set Ms=0
set Ms_2=0
call :Vbs_Sleep 100
)
)
if %Ms_2% Gtr 200000000 (
echo.
echo.^>^> 算數(shù)錯誤！
set H=0
set Min=0
set S=0
set Ms=0
set Ms_2=0
call :Vbs_Sleep 100
)
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
if %ms%==10 set /a ms=0
title 計時器[%Ms%/%Ms_2%毫秒]
echo.
echo.^>^> %Ms%/%Ms_2%毫秒
echo.
echo.^>^> Ctrl+C暫停或退出...
call :Sleep 100
if %Error%==1 goto :Error
set /a Ms+=100
title 計時器[%Ms%/%Ms_2%毫秒]
if %Ms% lss %Ms_2% goto Start
if %Ms% Geq %Ms_2% goto End
:End
cls
color 4e
title Hope計時器 [%Ms%/%Ms_2%毫秒]
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
nclick="copycode($('code0'));">復制代碼