版本1.0.0037上半部分- @echo off&goto :Begin
-
- ; Hope Timer [Version 1.0.0037]
- ; (C) Copyright 2020-2021 Hope Corp.
- ; (C) Copyright 2021-2021 Hope2021&Cmd1152 Corp.
-
- :Begin
- md Logs >nul 2>nul
- mode con cols=68 lines=5
- color f9
- endlocal
- setlocal disabledelayedexpansion
- chcp 936 > nul
- Rem By Hope2021
- title Hope计时器
- cls
- echo.
- echo.
- echo. HOPE
- echo.
- call :Sleep_Installs
- if not exist Logs\Time.ini set Time=100
- if not exist Logs\Timer.ini set Timer=128
- if not exist Logs\Color.ini set Color=0f
- if exist Logs\Time.ini (
- cd Logs
- < Time.ini (
- set /p Time=
- )
- cd..
- )
- if exist Logs\Timer.ini (
- cd Logs
- < Timer.ini (
- set /p Timer=
- )
- cd..
- )
- if exist Logs\Color.ini (
- cd Logs
- < Color.ini (
- set /p Color=
- )
- cd..
- )
- cls
- echo.
- echo. ----------
- echo. ---HOPE---
- echo. ----------
- call :For_Sleep
- cls
- echo.
- echo. ---------
- echo. --HOPE---
- echo. ----Li----
- call :For_Sleep
- cls
- echo.
- echo. --------
- echo. -HOPE---
- echo. --- Lif---
- call :For_Sleep
- cls
- echo.
- echo. -------
- echo. HOPE---
- echo. --r Life--
- call :For_Sleep
- cls
- echo.
- echo. H------
- echo. -OPE---
- echo. -ur Life -
- call :For_Sleep
- cls
- echo.
- echo. HO-----
- echo. -PE---
- echo. our Life E
- call :For_Sleep
- cls
- echo.
- echo. HOP----
- echo. -E---
- echo. Your Life Ea
- call :For_Sleep
- cls
- echo.
- echo. HOPE---
- echo. ----
- echo. Your Life Eas
- call :For_Sleep
- cls
- echo.
- echo. HOPE --
- echo. ---
- echo. e Your Life Easi
- call :For_Sleep
- cls
- echo.
- echo. HOPE -
- echo. --
- echo. ke Your Life Easie
- call :For_Sleep
- cls
- echo.
- echo. HOPE
- echo. -
- echo. ake Your Life Easier
- call :For_Sleep
- cls
- echo.
- echo. HOPE
- echo.
- echo. Make Your Life Easier.
- call :For_Sleep
- call :Vbs_Sleep 1000
- call :Sleep_Installs
- @call :Restart
- @goto :Main
-
- :Blank
- call :Type "# "
- @goto :eof
-
-
- :Type
- set /p Str=%~1<nul
- for /l %%a in (1,1,%Timer%) do set ReturnKey=0
- @goto :eof
-
- :For_Sleep
- for /l %%a in (1,1,%Timer%) do set ReturnKey=0
- @goto :eof
-
- :Restart
- color %Color%
- 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=11
- title Hope计时器
- set Error=0
- cls
- echo.
- echo. ^>^> 当前计时时间:%H%小时%Min%分钟%S%秒
- echo.
- echo. Q/W 小时加/减 E/R 分钟加/减 T/Y 秒加/减 U/I 开始计时/退出
- echo.
- echo. P 打开计划程序 S 删除计划存储 X 调试 F 恢复到调试前
- echo.
- echo. Z 风格 D 初始化 C 清除风格和调试
- echo.
- echo. L 重新启动 O 修复延时程序
- call :get_key
- call :Settings_Time
- if /i "%key%"=="p" (
- set St_1=10001
- set En_1=10010
- @goto :Task
- )
- if /i "%key%"=="u" (
- mode con cols=68 lines=5
- set "Title=时间到!!!"
- @goto :Start
- )
- if /i "%key%"=="z" (
- mode con cols=68 lines=34
- @goto :Themes
- )
- if /i "%key%"=="x" (
- mode con cols=68 lines=34
- @goto :Debugging
- )
- if /i "%key%"=="o" (
- call :Sleep_Installs
- )
- if /i "%key%"=="l" (
- goto :Begin
- )
- if /i "%key%"=="f" (
- del /f /s /q Logs\timer.ini >nul 2>nul
- )
- if /i "%key%"=="s" (
- rd /s /q Tasks >nul 2>nul
- )
- if /i "%key%"=="d" (
- del sleep.com sleep.exe sleep.vbs
- rd /s /q Tasks >nul 2>nul
- rd /s /q Logs >nul 2>nul
- mode con cols=68 lines=5
- cls
- echo.
- echo.
- echo. ^>^> 请按回车键重启本程序...
- pause>nul
- cls
- goto :Begin
- )
- if /i "%key%"=="i" (
- del sleep.com sleep.exe sleep.vbs
- exit
- )
- if /i "%valid_key%" equ "0" goto :Main
-
- :Themes
- cd logs
- echo.%Color% > Color.ini
- echo.%Timer% > Timer.ini
- cd..
- cls
- color %Color%
- echo.
- echo. Hope计时器[风格]
- set /p Str=--------------------------------------------------------------------<nul
- echo.
- echo.
- echo. ^>^>^>^> 颜色
- set /p Str=--------------------------------------------------------------------<nul
- echo.
- echo. ^|
- echo. A 经典 B 标准 C 激情 D 复古 ^| Hope.
- echo. ^|
- echo. E 大理岩 F 未来 G 蓝色 H 紫色 ^| Make Your Life Easier.
- echo. ^|
- echo. ^>^>^>^> 开始动画速度
- set /p Str=--------------------------------------------------------------------<nul
- echo.
- echo. ^|why join the navy,
- echo. J 正常 K 快速 L 慢速 ^|if you can be a pirate?
- echo. ^| - Steve Jobs
- echo. ^|
- echo. ^>^>^>^> 操作
- set /p Str=--------------------------------------------------------------------<nul
- echo.
- echo. ^|
- echo. M 返回 N 还原默认 ^|
- call :get_key
- if /i "%key%"=="a" (
- set Color=3f
- )
- if /i "%key%"=="b" (
- set Color=0f
- )
- if /i "%key%"=="c" (
- set Color=4e
- )
- if /i "%key%"=="d" (
- set Color=8f
- )
- if /i "%key%"=="e" (
- set Color=f8
- )
- if /i "%key%"=="f" (
- set Color=0a
- )
- if /i "%key%"=="g" (
- set Color=b1
- )
- if /i "%key%"=="h" (
- set Color=5f
- )
- if /i "%key%"=="j" (
- set Timer=128
- )
- if /i "%key%"=="k" (
- set Timer=32
- )
- if /i "%key%"=="l" (
- set Timer=4096
- )
- if /i "%key%"=="m" (
- goto Main
- )
- if /i "%key%"=="n" (
- cd Logs
- del Timer.ini
- del Color.ini
- cd..
- set Timer=128
- set Color=0f
- )
- if /i "%valid_key%" equ "0" goto :Themes
-
- :Rem_Themes
-
- ; A 3F
- ; B 0F
- ; C 4E
- ; D 8F
-
- ; E F8
- ; F 0A
- ; G B1
- ; H 5F
-
- @goto :eof
-
- :Debugging
- echo.
- call :Echo_Debugging
- echo. ^>^> 此向导将会帮助您调试您的设备是否适合运行 Hope (R) 计时器
- echo.
- echo. ^>^> 请按回车键开始第一项检查...
- echo.
- pause > nul
- echo.
- call :Echo_Debugging
- echo. ^>^> 正在调试 Certutil 性能...
- echo.
- echo. ^>^> 请稍等...
- echo.
- echo.1 > ReturnKey.ini
- Certutil -encode ReturnKey.ini Hope.ini > nul
- if not exist Hope.ini (
- echo. ^>^> 您的操作系统与 Certutil 不兼容, 无法运行Hope计时器...
- echo.
- echo. ^>^> 请按回车键退出...
- pause > nul
- exit
- )
- if exist ReturnKey.ini del ReturnKey.ini
- if exist Hope.ini del Hope.ini
- echo. ^>^> 您的操作系统与 Certutil 兼容, 可以运行Hope计时器...
- echo.
- echo. ^>^> 请按回车键继续...
- pause > nul
- call :Echo_Debugging
- echo. ^>^> 正在安装延时程序,请稍等...
- echo.
- call :Sleep_Installs
- echo. ^>^> 接下来,您将会调试秒表, 我们将会为您进行系统标准计时...
- echo.
- echo. ^>^> 我们会为你进行延时五秒,请您准备好您的计时设备...
- echo.
- echo. ^>^> 请将您的计时设备置于您的电子计算机左侧, 打开计时设备但
- echo.
- echo. ^>^> 不要开始计时, 请注意, 您按下回车键或空格键之后Hope计时
- echo.
- echo. ^>^> 器将开始计时, 您应当同时启动Hope计时器与您的设备...
- echo.
- echo. ^>^> 当Hope计时器的窗体变红时, 您应当停止您的计时设备, 按下
- echo.
- echo. ^>^> 回车键, 并填写读数, Hope计时器会为您自动校准...
- pause > nul
- mode con cols=68 lines=5
- for /l %%i in (1,1,50) do (
- cls
- echo.
- echo.
- echo. ^>^> %%i00 毫秒 / 5000 毫秒
- call :Sleep 100
- )
- color 4e
- cls
- echo.
- echo.
- echo. ^>^> 请按回车键开始输入读数
- pause > nul
- cls
- echo.
- echo.
- set /p Math= ^>^> 请输入读数:
- call :VisualSet Result 5/%Math%
- call :VisualSet Result 100*%Result%
- Md Logs >nul 2>nul
- echo.%Result% > Logs\Time.ini
- color %Color%
- cls
- echo.
- echo.
- echo. ^>^> 请按回车键重启本程序...
- pause > nul
- cls
- goto :Begin
-
- :VisualSet
- @echo off
- echo X=%~2>>VisualSet.vbs
- echo wscript.echo(X)>>VisualSet.vbs
- for /f %%a in ('cscript //nologo VisualSet.vbs') do set %1=%%a
- if exist VisualSet.vbs del VisualSet.vbs
- goto :eof
-
- :Echo_Debugging
- mode con cols=68 lines=34
- cls
- echo.
- echo. Hope计时器[调试程序]
- set /p Str=--------------------------------------------------------------------<nul
- echo.
- echo.
- @goto :eof
-
- :Task
- mode con cols=68 lines=34
- Md Tasks >nul 2>nul
- cls
- title Hope计时器[计划程序][%St_1%-%En_1%]
- set Error=0
- echo.
- echo. Hope计时器[计划程序]
- set /p Str=--------------------------------------------------------------------<nul
- echo.
- echo.
- echo. ^>^> Q 新建计划 W 使用计划 D 删除计划 E 返回菜单 R 退出
- echo.
- echo. ^>^> A 上一页 X 下一页
- if exist Tasks\*.Htd (
- for /l %%i in (%St_1%,1,%En_1%) do if exist Tasks\%%i.Htd goto :Task_2
- )
- echo.
- echo. ^>^> 当前没有计划
- set /p Str=--------------------------------------------------------------------<nul
- echo.
- echo.
- if not exist Tasks\Htd.Hdat echo.10000 > Tasks\Htd.Hdat
- @goto :Task_3
-
- :Task_2
- cd Tasks
- echo.
- echo. ^>^> 当前计划列表
- set /p Str=--------------------------------------------------------------------<nul
- echo.
- echo.
- for /l %%i in (%St_1%,1,%En_1%) do (
- if exist %%i.Htd (
- for /f "skip=5" %%j in (%%i.Htd) do echo. ^>^> 编号:%%~ni 备注:%%j
- )
- )
- cd..
复制代码
|