[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
1.0.0033 下半部分
  1. :VisualSet
  2. @echo off
  3. echo X=%~2>>VisualSet.vbs
  4. echo wscript.echo(X)>>VisualSet.vbs
  5. for /f %%a in ('cscript //nologo VisualSet.vbs') do set %1=%%a
  6. if exist VisualSet.vbs del VisualSet.vbs
  7. goto :eof
  8. :Echo_Debugging
  9. mode con cols=68 lines=34
  10. cls
  11. echo.
  12. echo.  Hope计时器[调试程序]
  13. set /p Str=--------------------------------------------------------------------<nul
  14. echo.
  15. echo.
  16. @goto :eof
  17. :Task
  18. mode con cols=68 lines=34
  19. Md Tasks >nul 2>nul
  20. cls
  21. title Hope计时器[计划程序][%St_1%-%En_1%]
  22. set Error=0
  23. echo.
  24. echo.  Hope计时器[计划程序]
  25. set /p Str=--------------------------------------------------------------------<nul
  26. echo.
  27. echo.
  28. echo.    ^>^> Q 新建计划   W 使用计划   D 删除计划   E 返回菜单   R 退出
  29. echo.
  30. echo.    ^>^> A 上一页     X 下一页
  31. if exist Tasks\*.Htd (
  32. for /l %%i in (%St_1%,1,%En_1%) do if exist Tasks\%%i.Htd goto :Task_2
  33. )
  34. echo.
  35. echo.    ^>^> 当前没有计划
  36. set /p Str=--------------------------------------------------------------------<nul
  37. echo.
  38. echo.
  39. if not exist Tasks\Htd.Hdat echo.10000 > Tasks\Htd.Hdat
  40. @goto :Task_3
  41. :Task_2
  42. cd Tasks
  43. echo.
  44. echo.    ^>^> 当前计划列表
  45. set /p Str=--------------------------------------------------------------------<nul
  46. echo.
  47. echo.
  48. for /l %%i in (%St_1%,1,%En_1%) do (
  49. if exist %%i.Htd (
  50. for /f "skip=5" %%j in (%%i.Htd) do echo.    ^>^> 编号:%%~ni  备注:%%j
  51. )
  52. )
  53. cd..
  54. :Task_3
  55. call :get_key
  56. if /i "!key!"=="E" (
  57. @goto :Main
  58. )
  59. if /i "!key!"=="A" (
  60. set /a St_1-=10
  61. set /a En_1-=10
  62. )
  63. if /i "!key!"=="X" (
  64. set /a St_1+=10
  65. set /a En_1+=10
  66. )
  67. if /i "!key!"=="D" (
  68. @goto :Del
  69. )
  70. if /i "!key!"=="R" (
  71. exit
  72. )
  73. if /i "!key!"=="Q" (
  74. @goto :New
  75. )
  76. if /i "!key!"=="W" (
  77. @goto :Open
  78. )
  79. if %St_1% Leq 10000 (
  80. set /a St_1+=10
  81. set /a En_1+=10
  82. )
  83. if /i "!valid_key!" equ "0" @goto :Task
  84. :Open
  85. if exist Tasks\*.Htd (
  86. set "Content= "
  87. set /p Content=    ^>^> 请输入计划编号:
  88. goto Open_2
  89. ) else cd..&@goto :Task
  90. :Del
  91. if exist Tasks\*.Htd (
  92. set "Content= "
  93. set /p Content=    ^>^> 请输入计划编号:
  94. goto Del_2
  95. ) else cd..&@goto :Task
  96. :Del_2
  97. cd Tasks
  98. if exist %Content%.Htd (
  99. del %Content%.Htd
  100. cd..
  101. goto Task
  102. ) else cd..&goto Task
  103. :Open_2
  104. cd Tasks
  105. if exist %Content%.Htd (
  106. call :Read %Content%
  107. cd..
  108. mode con cols=68 lines=5
  109. @goto :Start
  110. ) else cd..&goto Task
  111. :New
  112. cd Tasks
  113. < Htd.Hdat (
  114. set /p Num=
  115. )
  116. set /a Num+=1
  117. echo.%Num% > Htd.Hdat
  118. cd..
  119. echo.
  120. echo.    ^>^> 新建计划:%Num%
  121. echo.
  122. set "Content=时间到!!!"
  123. set /p Content=    ^>^> 备注:
  124. echo.
  125. set "Content=%Content:>=^>%"
  126. set "Content=%Content:<=^<%"
  127. set "Content=%Content:|=^|%"
  128. set "Title= "
  129. set /p Title=    ^>^> 到时提醒:
  130. echo.
  131. set "Title=%Title:>=^^^>%"
  132. set "Title=%Title:<=^^^<%"
  133. set "Title=%Title:|=^^^|%"
  134. set H=0
  135. set Min=0
  136. set S=0
  137. set H_2=0
  138. set Min_2=0
  139. set S_2=0
  140. set Ms=0
  141. set Ms_2=0
  142. call :Vbs_Sleep 1000
  143. @goto :New_2
  144. :Read
  145. < %1.Htd (
  146. set /p H=
  147. set /p Min=
  148. set /p S=
  149. set /p Ms_2=
  150. set /p Title=
  151. set /p Content=
  152. )
  153. @goto :eof
  154. :New_2
  155. cls
  156. echo.
  157. echo.    ^>^> 当前计时时间:%H%小时%Min%分钟%S%秒
  158. echo.
  159. echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U 完成计划
  160. echo.
  161. call :get_key
  162. call :Settings_Time
  163. if /i "!key!"=="U" (
  164. (
  165. echo.%H%
  166. echo.%Min%
  167. echo.%S%
  168. echo.%Ms_2%
  169. echo.%Title%
  170. echo.%Content%
  171. ) > Tasks\%Num%.Htd
  172. @goto :Task
  173. )
  174. if /i "!valid_key!" equ "0" @goto :New_2
  175. :Error
  176. color 1f
  177. cls
  178. echo.
  179. echo.    ^>^> Sleep.exe 和 Sleep.com 不知到何处去了...
  180. echo.
  181. echo.    ^>^> 正在帮您恢复
  182. call :Sleep_Installs
  183. goto :Restart
  184. :Start
  185. set Error=0
  186. cls
  187. title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
  188. echo.
  189. echo.    ^>^> %H_2%小时%Min_2%分钟%S_2%秒%Ms%毫秒/%H%小时%Min%分钟%S%秒
  190. echo.
  191. echo.    ^>^> Ctrl+C暂停或退出...
  192. call :Sleep %Time%
  193. if %Error%==1 goto :Error
  194. set /a Ms+=100
  195. if %Ms%==1000 set /a S_2+=1&set Ms=0
  196. if %S_2% Geq 60 set /a Min_2+=1&set S_2=0
  197. if %Min_2% Geq 60 set /a H_2+=1&set Min_2=0
  198. if %H_2% Geq %H% if %Min_2% Geq %Min% if %S_2% Geq %S% goto :End
  199. if /i "!valid_key!" equ "0" goto :Start
  200. :End
  201. cls
  202. color 4e
  203. title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
  204. Call :Msg "%Title%" vbExclamation "Hope计时器"
  205. color %Color%
  206. @call :Restart
  207. @goto :Main
  208. :Vbs_Sleep
  209. echo.Wscript.Sleep %1 > Sleep.vbs
  210. call Sleep.vbs > nul
  211. if exist ReturnKey.vbs del ReturnKey.vbs
  212. @goto :eof
  213. :Sleep_Installs
  214. (
  215. echo.-----BEGIN CERTIFICATE-----
  216. echo.TVpQAQEAAAAEAAAA//8AAFABAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  217. echo.AAAAAAAAAAAAAAAAkAAAAPy+gQAPtkz/ZjHSZjHASXggrCwwchQ8CXcQZmvSCmYB
  218. echo.wi7HBi8AMQDr5C7/Ji8ADgBmadLoAwAAZonRZsHpELSGzRW4AEzNIQAAAAAAAAAA
  219. echo.UEUAAEwBAQBQeaU2AAAAAAAAAADgAA8BCwEFDAACAAAAAAAAAAAAAH4QAAAAEAAA
  220. echo.ACAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAIAAAAAIAAAAAAAADAAAA
  221. echo.AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAQEAAAKAAAAAAAAAAAAAAA
  222. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  223. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAAAAAAAAAAAAAAAAA
  224. echo.AAAAAAAAAAAudGV4dAAAANwAAAAAEAAAAAIAAAACAAAAAAAAAAAAAAAAAAAgAADg
  225. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  226. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWEAAAZBAAAHYQAAAAAAAA
  227. echo.RhAAAAAAAAAAAAAAOBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtFUk5FTDMy
  228. echo.LmRsbAAAVhAAAGQQAAB2EAAAAAAAAAAARXhpdFByb2Nlc3MAAABHZXRDb21tYW5k
  229. echo.TGluZUEAAABTbGVlcAD/FQQQQAAx0khAgDgAdBGAOCJ1AvfSCdJ174A4IHXqQPyJ
  230. echo.xjHSMcCsCMB0IywwchU8CXcRa9IKAcLHBckQQADNEEAA6+L/JckQQAClEEAAUv8V
  231. echo.CBBAAGoA/xUAEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  232. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  233. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  234. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  235. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  236. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  237. echo.AAAAAAAAAAAAAAAAAAAAAA==
  238. echo.-----END CERTIFICATE-----
  239. ) > Sleep.com
  240. Certutil -Decode Sleep.com Sleep.exe > nul
  241. Certutil -Decode -f Sleep.com Sleep.com > nul
  242. goto :eof
  243. :Sleep
  244. set Error=0
  245. if exist Sleep.exe (
  246. Sleep.exe %1
  247. goto :eof
  248. )
  249. if not exist Sleep.exe if exist Sleep.com (
  250. Sleep.com %1
  251. goto :eof
  252. )
  253. if not exist Sleep.exe if not exist Sleep.com (
  254. set Error=1
  255. goto :eof
  256. )
  257. :get_key
  258. rem 用法:call :get_key
  259. set "key="
  260.   for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if not defined key set "key=%%a"
  261.   set "key=%key:~-1%"
  262.   set "valid_key=0"
  263. goto :eof
  264. :Msg
  265. Rem 用法: Call :Msg "Text" [buttons] "Title"
  266. echo.Msg=msgbox("%~1",%2,"%~3") > ReturnKey.vbs
  267. Call ReturnKey.vbs > nul
  268. if exist ReturnKey.vbs del ReturnKey.vbs
  269. goto :eof
  270. :Settings_Time
  271. if %Ms_2% Leq 200000000 if %H% geq 0 if %Min% Geq 0 if %S% Geq 0 (
  272. if /i "!key!"=="q" (
  273. set /a Ms_2+=3600000
  274. set /a H+=1
  275. )
  276. if /i "!key!"=="w" (
  277. set /a Ms_2-=3600000
  278. set /a H-=1
  279. )
  280. if /i "!key!"=="e" (
  281. set /a Ms_2+=60000
  282. set /a Min+=1
  283. )
  284. if /i "!key!"=="r" (
  285. set /a Ms_2-=60000
  286. set /a Min-=1
  287. )
  288. if /i "!key!"=="t" (
  289. set /a Ms_2+=1000
  290. set /a S+=1
  291. )
  292. if /i "!key!"=="y" (
  293. set /a Ms_2-=1000
  294. set /a S-=1
  295. )
  296. )
  297. if %S% Lss 0 (
  298. if %Min% Geq 0 if %H% Geq 0 (
  299. set /a Min-=1&set /a S+=60
  300. )
  301. if %Min% Leq 0 if %H% Leq 0 (
  302. echo.
  303. echo.    ^>^> 算数错误!
  304. call :Vbs_Sleep 100
  305. @call :Restart
  306. )
  307. )
  308. if %Min% Lss 0 (
  309. if %H% Gtr 0 set /a H-=1&set /a Min+=60
  310. if %H% Leq 0 (
  311. echo.
  312. echo.    ^>^> 算数错误!
  313. call :Vbs_Sleep 100
  314. @call :Restart
  315. )
  316. )
  317. if %H% Lss 0 (
  318. echo.
  319. echo.    ^>^> 算数错误!
  320. call :Vbs_Sleep 100
  321. @call :Restart
  322. )
  323. if %Ms_2% Gtr 200000000 (
  324. echo.
  325. echo.    ^>^> 算数错误!
  326. call :Vbs_Sleep 100
  327. @call :Restart
  328. )
  329. if %S% Geq 60 set /a Min+=1&set S=0
  330. if %Min% Geq 60 set /a H+=1&set Min=0
复制代码
梦依旧在,只是,心有余而力渐有不足
年年岁岁花相似,岁岁年年人不同

TOP

1.0.0033 增加翻页功能上半部分
  1. @echo off&goto :Begin
  2. ; Hope Timer [Version 1.0.0024]
  3. ; (C) Copyright 2020-2021 Hope Corp.
  4. ; (C) Copyright 2021-2021 Hope2021&Cmd1152 Corp.
  5. :Begin
  6. md Logs >nul 2>nul
  7. mode con cols=68 lines=5
  8. color f9
  9. endlocal
  10. setlocal enabledelayedexpansion
  11. chcp 936 > nul
  12. Rem By Hope2021
  13. title Hope计时器
  14. cls
  15. echo.
  16. echo.
  17. echo.                                HOPE
  18. echo.
  19. call :Sleep_Installs
  20. if not exist Logs\Time.ini set Time=100
  21. if not exist Logs\Timer.ini set Timer=128
  22. if not exist Logs\Color.ini set Color=0f
  23. if exist Logs\Time.ini (
  24. cd Logs
  25. < Time.ini (
  26. set /p Time=
  27. )
  28. cd..
  29. )
  30. if exist Logs\Timer.ini (
  31. cd Logs
  32. < Timer.ini (
  33. set /p Timer=
  34. )
  35. cd..
  36. )
  37. if exist Logs\Color.ini (
  38. cd Logs
  39. < Color.ini (
  40. set /p Color=
  41. )
  42. cd..
  43. )
  44. cls
  45. echo.
  46. echo.                             ----------
  47. echo.                             ---HOPE---
  48. echo.                             ----------
  49. call :djs
  50. cls
  51. echo.
  52. echo.                              ---------
  53. echo.                              --HOPE---
  54. echo.                             ----Li----
  55. call :djs
  56. cls
  57. echo.
  58. echo.                               --------
  59. echo.                               -HOPE---
  60. echo.                             --- Lif---
  61. call :djs
  62. cls
  63. echo.
  64. echo.                                -------
  65. echo.                                HOPE---
  66. echo.                             --r Life--
  67. call :djs
  68. cls
  69. echo.
  70. echo.                                H------
  71. echo.                                -OPE---
  72. echo.                             -ur Life -
  73. call :djs
  74. cls
  75. echo.
  76. echo.                                HO-----
  77. echo.                                 -PE---
  78. echo.                             our Life E
  79. call :djs
  80. cls
  81. echo.
  82. echo.                                HOP----
  83. echo.                                  -E---
  84. echo.                            Your Life Ea
  85. call :djs
  86. cls
  87. echo.
  88. echo.                                HOPE---
  89. echo.                                   ----
  90. echo.                            Your Life Eas
  91. call :djs
  92. cls
  93. echo.
  94. echo.                                HOPE --
  95. echo.                                    ---
  96. echo.                          e Your Life Easi
  97. call :djs
  98. cls
  99. echo.
  100. echo.                                HOPE  -
  101. echo.                                     --
  102. echo.                         ke Your Life Easie
  103. call :djs
  104. cls
  105. echo.
  106. echo.                                HOPE
  107. echo.                                      -
  108. echo.                        ake Your Life Easier
  109. call :djs
  110. cls
  111. echo.
  112. echo.                                HOPE
  113. echo.
  114. echo.                       Make Your Life Easier.
  115. call :djs
  116. call :Vbs_Sleep 1000
  117. call :Sleep_Installs
  118. @call :Restart
  119. @goto :Main
  120. :Blank
  121. call :Type "# "
  122. @goto :eof
  123. :Type
  124. set /p Str=%~1<nul
  125. for /l %%a in (1,1,%Timer%) do set ReturnKey=0
  126. @goto :eof
  127. :Djs
  128. for /l %%a in (1,1,700) do set ReturnKey=0
  129. @goto :eof
  130. :Restart
  131. color %Color%
  132. cls
  133. set H=0
  134. set Min=0
  135. set S=0
  136. set H_2=0
  137. set Min_2=0
  138. set S_2=0
  139. set Ms=0
  140. set Ms_2=0
  141. @goto :eof
  142. :Main
  143. mode con cols=68 lines=9
  144. title Hope计时器
  145. set Error=0
  146. cls
  147. echo.
  148. echo.    ^>^> 当前计时时间:%H%小时%Min%分钟%S%秒
  149. echo.
  150. echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U/I 开始计时/退出
  151. echo.
  152. echo.  P 打开计划程序  S 删除计划存储  X 调试        F 恢复到调试前
  153. echo.
  154. echo.  Z 风格          D 初始化             C 清除风格和调试
  155. call :get_key
  156. call :Settings_Time
  157. if /i "!key!"=="p" (
  158. set St_1=10001
  159. set En_1=10010
  160. @goto :Task
  161. )
  162. if /i "!key!"=="u" (
  163. mode con cols=68 lines=5
  164. set "Title=时间到!!!"
  165. @goto :Start
  166. )
  167. if /i "!key!"=="z" (
  168. mode con cols=68 lines=34
  169. @goto :Themes
  170. )
  171. if /i "!key!"=="x" (
  172. mode con cols=68 lines=34
  173. @goto :Debugging
  174. )
  175. if /i "!key!"=="f" (
  176. del /f /s /q Logs\timer.ini >nul 2>nul
  177. )
  178. if /i "!key!"=="s" (
  179. rd /s /q Tasks >nul 2>nul
  180. )
  181. if /i "!key!"=="d" (
  182. del sleep.com sleep.exe sleep.vbs
  183. rd /s /q Tasks >nul 2>nul
  184. rd /s /q Logs >nul 2>nul
  185. mode con cols=68 lines=5
  186. cls
  187. echo.
  188. echo.
  189. echo.    ^>^> 请按回车键重启本程序...
  190. pause>nul
  191. cls
  192. goto :Begin
  193. )
  194. if /i "!key!"=="i" (
  195. del sleep.com sleep.exe sleep.vbs
  196. exit
  197. )
  198. if /i "!valid_key!" equ "0" goto :Main
  199. :Themes
  200. cd logs
  201. echo.%Color% > Color.ini
  202. echo.%Timer% > Timer.ini
  203. cd..
  204. cls
  205. color %Color%
  206. echo.
  207. echo.  Hope计时器[风格]
  208. set /p Str=--------------------------------------------------------------------<nul
  209. echo.
  210. echo.
  211. echo.  ^>^>^>^> 颜色
  212. set /p Str=--------------------------------------------------------------------<nul
  213. echo.
  214. echo.                                        ^|
  215. echo.    A 经典   B 标准   C 激情   D 复古   ^|  Hope.
  216. echo.                                        ^|
  217. echo.    E 大理岩 F 未来   G 蓝色   H 紫色   ^|  Make Your Life Easier.
  218. echo.                                        ^|
  219. echo.  ^>^>^>^> 开始动画速度
  220. set /p Str=--------------------------------------------------------------------<nul
  221. echo.
  222. echo.                                        ^|why join the navy,
  223. echo.    J 正常   K 快速   L 慢速            ^|if you can be a pirate?
  224. echo.                                        ^|           - Steve Jobs
  225. echo.                                        ^|
  226. echo.  ^>^>^>^> 操作
  227. set /p Str=--------------------------------------------------------------------<nul
  228. echo.
  229. echo.                                        ^|
  230. echo.    M 返回   N 还原默认                 ^|
  231. call :get_key
  232. if /i "!key!"=="a" (
  233. set Color=3f
  234. )
  235. if /i "!key!"=="b" (
  236. set Color=0f
  237. )
  238. if /i "!key!"=="c" (
  239. set Color=4e
  240. )
  241. if /i "!key!"=="d" (
  242. set Color=8f
  243. )
  244. if /i "!key!"=="e" (
  245. set Color=f8
  246. )
  247. if /i "!key!"=="f" (
  248. set Color=0a
  249. )
  250. if /i "!key!"=="g" (
  251. set Color=b1
  252. )
  253. if /i "!key!"=="h" (
  254. set Color=5f
  255. )
  256. if /i "!key!"=="j" (
  257. set Timer=128
  258. )
  259. if /i "!key!"=="k" (
  260. set Timer=32
  261. )
  262. if /i "!key!"=="l" (
  263. set Timer=512
  264. )
  265. if /i "!key!"=="m" (
  266. goto Main
  267. )
  268. if /i "!key!"=="n" (
  269. cd Logs
  270. del Timer.ini
  271. del Color.ini
  272. cd..
  273. set Timer=128
  274. set Color=0f
  275. )
  276. if /i "!valid_key!" equ "0" goto :Themes
  277. :Rem_Themes
  278. ; A 3F
  279. ; B 0F
  280. ; C 4E
  281. ; D 8F
  282. ; E F8
  283. ; F 0A
  284. ; G B1
  285. ; H 5F
  286. @goto :eof
  287. :Debugging
  288. echo.
  289. call :Echo_Debugging
  290. echo.    ^>^> 此向导将会帮助您调试您的设备是否适合运行 Hope (R) 计时器
  291. echo.
  292. echo.    ^>^> 请按回车键开始第一项检查...
  293. echo.
  294. pause > nul
  295. echo.
  296. call :Echo_Debugging
  297. echo.    ^>^> 正在调试 Certutil 性能...
  298. echo.
  299. echo.    ^>^> 请稍等...
  300. echo.
  301. echo.1 > ReturnKey.ini
  302. Certutil -encode ReturnKey.ini Hope.ini > nul
  303. if not exist Hope.ini (
  304. echo.    ^>^> 您的操作系统与 Certutil 不兼容, 无法运行Hope计时器...
  305. echo.
  306. echo.    ^>^> 请按回车键退出...
  307. pause > nul
  308. exit
  309. )
  310. if exist ReturnKey.ini del ReturnKey.ini
  311. if exist Hope.ini del Hope.ini
  312. echo.    ^>^> 您的操作系统与 Certutil 兼容, 可以运行Hope计时器...
  313. echo.
  314. echo.    ^>^> 请按回车键继续...
  315. pause > nul
  316. call :Echo_Debugging
  317. echo.    ^>^> 正在安装延时程序,请稍等...
  318. echo.
  319. call :Sleep_Installs
  320. echo.    ^>^> 接下来,您将会调试秒表, 我们将会为您进行系统标准计时...
  321. echo.
  322. echo.    ^>^> 我们会为你进行延时五秒,请您准备好您的计时设备...
  323. echo.
  324. echo.    ^>^> 请将您的计时设备置于您的电子计算机左侧, 打开计时设备但
  325. echo.
  326. echo.    ^>^> 不要开始计时, 请注意, 您按下回车键或空格键之后Hope计时
  327. echo.
  328. echo.    ^>^> 器将开始计时, 您应当同时启动Hope计时器与您的设备...
  329. echo.
  330. echo.    ^>^> 当Hope计时器的窗体变红时, 您应当停止您的计时设备, 按下
  331. echo.
  332. echo.    ^>^> 回车键, 并填写读数, Hope计时器会为您自动校准...
  333. pause > nul
  334. mode con cols=68 lines=5
  335. for /l %%i in (1,1,50) do (
  336. cls
  337. echo.
  338. echo.
  339. echo.    ^>^> %%i00 毫秒 / 5000 毫秒
  340. call :Sleep 100
  341. )
  342. color 4e
  343. cls
  344. echo.
  345. echo.
  346. echo.    ^>^> 请按回车键开始输入读数
  347. pause > nul
  348. cls
  349. echo.
  350. echo.
  351. set /p Math=    ^>^> 请输入读数:
  352. call :VisualSet Result 5/%Math%
  353. call :VisualSet Result 100*%Result%
  354. Md Logs >nul 2>nul
  355. echo.%Result% > Logs\Time.ini
  356. color %Color%
  357. cls
  358. echo.
  359. echo.
  360. echo.    ^>^> 请按回车键重启本程序...
  361. pause > nul
  362. cls
  363. goto :Begin
复制代码
梦依旧在,只是,心有余而力渐有不足
年年岁岁花相似,岁岁年年人不同

TOP

回复 105# cmd1152
1.0.0029及以后的翻页功能呢?
Why join the navy, if you can be a pirate? - Steve Jobs

TOP

回复 96# cmd1152
1.0.0028支持翻页
Why join the navy, if you can be a pirate? - Steve Jobs

TOP

本帖最后由 cmd1152 于 2021-8-13 22:40 编辑

1.0.0033 下半部分
  1. :Task
  2. mode con cols=68 lines=34
  3. Md Tasks >nul 2>nul
  4. cls
  5. title Hope计时器[计划程序]
  6. set Error=0
  7. echo.
  8. echo.  Hope计时器[计划程序]
  9. set /p Str=--------------------------------------------------------------------<nul
  10. echo.
  11. echo.
  12. echo.    ^>^> Q 新建计划   W 使用计划   D 删除计划   E 返回菜单   R 退出
  13. if not exist Tasks\*.Htd (
  14. echo.
  15. echo.    ^>^> 当前没有计划
  16. set /p Str=--------------------------------------------------------------------<nul
  17. echo.
  18. echo.
  19. )
  20. if not exist Tasks\Htd.Hdat echo.10000 > Tasks\Htd.Hdat
  21. if exist Tasks\*.Htd (
  22. cd Tasks
  23. echo.
  24. echo.    ^>^> 当前计划列表
  25. set /p Str=--------------------------------------------------------------------<nul
  26. echo.
  27. echo.
  28. for /f %%i in ('dir /b *.Htd') do (
  29. for /f "skip=5" %%j in (%%~ni.Htd) do echo.    ^>^> 编号:%%~ni  备注:%%j
  30. )
  31. echo.
  32. cd..
  33. )
  34. )
  35. call :get_key
  36. if /i "!key!"=="E" (
  37. @goto :Main
  38. )
  39. if /i "!key!"=="D" (
  40. @goto :Del
  41. )
  42. if /i "!key!"=="R" (
  43. exit
  44. )
  45. if /i "!key!"=="Q" (
  46. @goto :New
  47. )
  48. if /i "!key!"=="W" (
  49. @goto :Open
  50. )
  51. if /i "!valid_key!" equ "0" @goto :Task
  52. :Open
  53. if exist Tasks\*.Htd (
  54. set "Content= "
  55. set /p Content=    ^>^> 请输入计划编号:
  56. goto Open_2
  57. ) else cd..&@goto :Task
  58. :Del
  59. if exist Tasks\*.Htd (
  60. set "Content= "
  61. set /p Content=    ^>^> 请输入计划编号:
  62. goto Del_2
  63. ) else cd..&@goto :Task
  64. :Del_2
  65. cd Tasks
  66. if exist %Content%.Htd (
  67. del %Content%.Htd
  68. cd..
  69. goto Task
  70. ) else cd..&goto Task
  71. :Open_2
  72. cd Tasks
  73. if exist %Content%.Htd (
  74. call :Read %Content%
  75. cd..
  76. mode con cols=68 lines=5
  77. @goto :Start
  78. ) else cd..&goto Task
  79. :New
  80. cd Tasks
  81. < Htd.Hdat (
  82. set /p Num=
  83. )
  84. set /a Num+=1
  85. echo.%Num% > Htd.Hdat
  86. cd..
  87. echo.
  88. echo.    ^>^> 新建计划:%Num%
  89. echo.
  90. set "Content=时间到!!!"
  91. set /p Content=    ^>^> 备注:
  92. echo.
  93. set "Content=%Content:>=^>%"
  94. set "Content=%Content:<=^<%"
  95. set "Content=%Content:|=^|%"
  96. set "Title= "
  97. set /p Title=    ^>^> 到时提醒:
  98. echo.
  99. set "Title=%Title:>=^^^>%"
  100. set "Title=%Title:<=^^^<%"
  101. set "Title=%Title:|=^^^|%"
  102. set H=0
  103. set Min=0
  104. set S=0
  105. set H_2=0
  106. set Min_2=0
  107. set S_2=0
  108. set Ms=0
  109. set Ms_2=0
  110. call :Vbs_Sleep 1000
  111. @goto :New_2
  112. :Read
  113. < %1.Htd (
  114. set /p H=
  115. set /p Min=
  116. set /p S=
  117. set /p Ms_2=
  118. set /p Title=
  119. set /p Content=
  120. )
  121. @goto :eof
  122. :New_2
  123. cls
  124. echo.
  125. echo.    ^>^> 当前计时时间:%H%小时%Min%分钟%S%秒
  126. echo.
  127. echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U 完成计划
  128. echo.
  129. call :get_key
  130. call :Settings_Time
  131. if /i "!key!"=="U" (
  132. (
  133. echo.%H%
  134. echo.%Min%
  135. echo.%S%
  136. echo.%Ms_2%
  137. echo.%Title%
  138. echo.%Content%
  139. ) > Tasks\%Num%.Htd
  140. @goto :Task
  141. )
  142. if /i "!valid_key!" equ "0" @goto :New_2
  143. :Error
  144. color 1f
  145. cls
  146. echo.
  147. echo.    ^>^> Sleep.exe 和 Sleep.com 不知到何处去了...
  148. echo.
  149. echo.    ^>^> 正在帮您恢复
  150. call :Sleep_Installs
  151. goto :Restart
  152. :Start
  153. set Error=0
  154. cls
  155. title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
  156. echo.
  157. echo.    ^>^> %H_2%小时%Min_2%分钟%S_2%秒%Ms%毫秒/%H%小时%Min%分钟%S%秒
  158. echo.
  159. echo.    ^>^> Ctrl+C暂停或退出...
  160. call :Sleep %Time%
  161. if %Error%==1 goto :Error
  162. set /a Ms+=100
  163. if %Ms%==1000 set /a S_2+=1&set Ms=0
  164. if %S_2% Geq 60 set /a Min_2+=1&set S_2=0
  165. if %Min_2% Geq 60 set /a H_2+=1&set Min_2=0
  166. if %H_2% Geq %H% if %Min_2% Geq %Min% if %S_2% Geq %S% goto :End
  167. if /i "!valid_key!" equ "0" goto :Start
  168. :End
  169. cls
  170. color 4e
  171. title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
  172. Call :Msg "%Title%" vbExclamation "Hope计时器"
  173. color %Color%
  174. @call :Restart
  175. @goto :Main
  176. :Vbs_Sleep
  177. echo.Wscript.Sleep %1 > Sleep.vbs
  178. call Sleep.vbs > nul
  179. if exist ReturnKey.vbs del ReturnKey.vbs
  180. @goto :eof
  181. :Sleep_Installs
  182. (
  183. echo.-----BEGIN CERTIFICATE-----
  184. echo.TVpQAQEAAAAEAAAA//8AAFABAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  185. echo.AAAAAAAAAAAAAAAAkAAAAPy+gQAPtkz/ZjHSZjHASXggrCwwchQ8CXcQZmvSCmYB
  186. echo.wi7HBi8AMQDr5C7/Ji8ADgBmadLoAwAAZonRZsHpELSGzRW4AEzNIQAAAAAAAAAA
  187. echo.UEUAAEwBAQBQeaU2AAAAAAAAAADgAA8BCwEFDAACAAAAAAAAAAAAAH4QAAAAEAAA
  188. echo.ACAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAIAAAAAIAAAAAAAADAAAA
  189. echo.AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAQEAAAKAAAAAAAAAAAAAAA
  190. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  191. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAAAAAAAAAAAAAAAAA
  192. echo.AAAAAAAAAAAudGV4dAAAANwAAAAAEAAAAAIAAAACAAAAAAAAAAAAAAAAAAAgAADg
  193. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  194. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWEAAAZBAAAHYQAAAAAAAA
  195. echo.RhAAAAAAAAAAAAAAOBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtFUk5FTDMy
  196. echo.LmRsbAAAVhAAAGQQAAB2EAAAAAAAAAAARXhpdFByb2Nlc3MAAABHZXRDb21tYW5k
  197. echo.TGluZUEAAABTbGVlcAD/FQQQQAAx0khAgDgAdBGAOCJ1AvfSCdJ174A4IHXqQPyJ
  198. echo.xjHSMcCsCMB0IywwchU8CXcRa9IKAcLHBckQQADNEEAA6+L/JckQQAClEEAAUv8V
  199. echo.CBBAAGoA/xUAEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  200. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  201. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  202. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  203. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  204. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  205. echo.AAAAAAAAAAAAAAAAAAAAAA==
  206. echo.-----END CERTIFICATE-----
  207. ) > Sleep.com
  208. Certutil -Decode Sleep.com Sleep.exe > nul
  209. Certutil -Decode -f Sleep.com Sleep.com > nul
  210. goto :eof
  211. :Sleep
  212. set Error=0
  213. if exist Sleep.exe (
  214. Sleep.exe %1
  215. goto :eof
  216. )
  217. if not exist Sleep.exe if exist Sleep.com (
  218. Sleep.com %1
  219. goto :eof
  220. )
  221. if not exist Sleep.exe if not exist Sleep.com (
  222. set Error=1
  223. goto :eof
  224. )
  225. :get_key
  226. rem 用法:call :get_key
  227. set "key="
  228.   for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if not defined key set "key=%%a"
  229.   set "key=%key:~-1%"
  230.   set "valid_key=0"
  231. goto :eof
  232. :Msg
  233. Rem 用法: Call :Msg "Text" [buttons] "Title"
  234. echo.Msg=msgbox("%~1",%2,"%~3") > ReturnKey.vbs
  235. Call ReturnKey.vbs > nul
  236. if exist ReturnKey.vbs del ReturnKey.vbs
  237. goto :eof
  238. :Settings_Time
  239. if %Ms_2% Leq 200000000 if %H% geq 0 if %Min% Geq 0 if %S% Geq 0 (
  240. if /i "!key!"=="q" (
  241. set /a Ms_2+=3600000
  242. set /a H+=1
  243. )
  244. if /i "!key!"=="w" (
  245. set /a Ms_2-=3600000
  246. set /a H-=1
  247. )
  248. if /i "!key!"=="e" (
  249. set /a Ms_2+=60000
  250. set /a Min+=1
  251. )
  252. if /i "!key!"=="r" (
  253. set /a Ms_2-=60000
  254. set /a Min-=1
  255. )
  256. if /i "!key!"=="t" (
  257. set /a Ms_2+=1000
  258. set /a S+=1
  259. )
  260. if /i "!key!"=="y" (
  261. set /a Ms_2-=1000
  262. set /a S-=1
  263. )
  264. )
  265. if %S% Lss 0 (
  266. if %Min% Geq 0 if %H% Geq 0 (
  267. set /a Min-=1&set /a S+=60
  268. )
  269. if %Min% Leq 0 if %H% Leq 0 (
  270. echo.
  271. echo.    ^>^> 算数错误!
  272. call :Vbs_Sleep 100
  273. @call :Restart
  274. )
  275. )
  276. if %Min% Lss 0 (
  277. if %H% Gtr 0 set /a H-=1&set /a Min+=60
  278. if %H% Leq 0 (
  279. echo.
  280. echo.    ^>^> 算数错误!
  281. call :Vbs_Sleep 100
  282. @call :Restart
  283. )
  284. )
  285. if %H% Lss 0 (
  286. echo.
  287. echo.    ^>^> 算数错误!
  288. call :Vbs_Sleep 100
  289. @call :Restart
  290. )
  291. if %Ms_2% Gtr 200000000 (
  292. echo.
  293. echo.    ^>^> 算数错误!
  294. call :Vbs_Sleep 100
  295. @call :Restart
  296. )
  297. if %S% Geq 60 set /a Min+=1&set S=0
  298. if %Min% Geq 60 set /a H+=1&set Min=0
复制代码
一口气更新20个版本,能不能评个分?
1

评分人数

    • 路过: 持之以恒,超棒技术 + 1
梦依旧在,只是,心有余而力渐有不足
年年岁岁花相似,岁岁年年人不同

TOP

1.0.0033 1.0.0032不见了,1.0.0032是增加功能,1.0.0033是更改了一个功能上半部分
  1. @echo off&goto :Begin
  2. ; Hope Timer [Version 1.0.0024]
  3. ; (C) Copyright 2020-2021 Hope Corp.
  4. ; (C) Copyright 2021-2021 Hope2021&Cmd1152 Corp.
  5. :Begin
  6. md Logs >nul 2>nul
  7. mode con cols=68 lines=5
  8. color f9
  9. endlocal
  10. setlocal enabledelayedexpansion
  11. chcp 936 > nul
  12. Rem By Hope2021
  13. title Hope计时器
  14. cls
  15. echo.
  16. echo.
  17. echo.                                HOPE
  18. echo.
  19. call :Sleep_Installs
  20. if not exist Logs\Time.ini set Time=100
  21. if not exist Logs\Timer.ini set Timer=128
  22. if not exist Logs\Color.ini set Color=0f
  23. if exist Logs\Time.ini (
  24. cd Logs
  25. < Time.ini (
  26. set /p Time=
  27. )
  28. cd..
  29. )
  30. if exist Logs\Timer.ini (
  31. cd Logs
  32. < Timer.ini (
  33. set /p Timer=
  34. )
  35. cd..
  36. )
  37. if exist Logs\Color.ini (
  38. cd Logs
  39. < Color.ini (
  40. set /p Color=
  41. )
  42. cd..
  43. )
  44. cls
  45. echo.
  46. echo.                             ----------
  47. echo.                             ---HOPE---
  48. echo.                             ----------
  49. call :djs
  50. cls
  51. echo.
  52. echo.                              ---------
  53. echo.                              --HOPE---
  54. echo.                             ----Li----
  55. call :djs
  56. cls
  57. echo.
  58. echo.                               --------
  59. echo.                               -HOPE---
  60. echo.                             --- Lif---
  61. call :djs
  62. cls
  63. echo.
  64. echo.                                -------
  65. echo.                                HOPE---
  66. echo.                             --r Life--
  67. call :djs
  68. cls
  69. echo.
  70. echo.                                H------
  71. echo.                                -OPE---
  72. echo.                             -ur Life -
  73. call :djs
  74. cls
  75. echo.
  76. echo.                                HO-----
  77. echo.                                 -PE---
  78. echo.                             our Life E
  79. call :djs
  80. cls
  81. echo.
  82. echo.                                HOP----
  83. echo.                                  -E---
  84. echo.                            Your Life Ea
  85. call :djs
  86. cls
  87. echo.
  88. echo.                                HOPE---
  89. echo.                                   ----
  90. echo.                            Your Life Eas
  91. call :djs
  92. cls
  93. echo.
  94. echo.                                HOPE --
  95. echo.                                    ---
  96. echo.                          e Your Life Easi
  97. call :djs
  98. cls
  99. echo.
  100. echo.                                HOPE  -
  101. echo.                                     --
  102. echo.                         ke Your Life Easie
  103. call :djs
  104. cls
  105. echo.
  106. echo.                                HOPE
  107. echo.                                      -
  108. echo.                        ake Your Life Easier
  109. call :djs
  110. cls
  111. echo.
  112. echo.                                HOPE
  113. echo.
  114. echo.                       Make Your Life Easier.
  115. call :djs
  116. call :Vbs_Sleep 1000
  117. call :Sleep_Installs
  118. @call :Restart
  119. @goto :Main
  120. :Blank
  121. call :Type "# "
  122. @goto :eof
  123. :Type
  124. set /p Str=%~1<nul
  125. for /l %%a in (1,1,%Timer%) do set ReturnKey=0
  126. @goto :eof
  127. :Djs
  128. for /l %%a in (1,1,700) do set ReturnKey=0
  129. @goto :eof
  130. :Restart
  131. color %Color%
  132. cls
  133. set H=0
  134. set Min=0
  135. set S=0
  136. set H_2=0
  137. set Min_2=0
  138. set S_2=0
  139. set Ms=0
  140. set Ms_2=0
  141. @goto :eof
  142. :Main
  143. mode con cols=68 lines=9
  144. title Hope计时器
  145. set Error=0
  146. cls
  147. echo.
  148. echo.    ^>^> 当前计时时间:%H%小时%Min%分钟%S%秒
  149. echo.
  150. echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U/I 开始计时/退出
  151. echo.
  152. echo.  P 打开计划程序  S 删除计划存储  X 调试        F 恢复到调试前
  153. echo.
  154. echo.  Z 风格          D 初始化             C 清除风格和调试
  155. call :get_key
  156. call :Settings_Time
  157. if /i "!key!"=="p" (
  158. set St_1=10001
  159. set En_1=10010
  160. @goto :Task
  161. )
  162. if /i "!key!"=="u" (
  163. mode con cols=68 lines=5
  164. set "Title=时间到!!!"
  165. @goto :Start
  166. )
  167. if /i "!key!"=="z" (
  168. mode con cols=68 lines=34
  169. @goto :Themes
  170. )
  171. if /i "!key!"=="x" (
  172. mode con cols=68 lines=34
  173. @goto :Debugging
  174. )
  175. if /i "!key!"=="f" (
  176. del /f /s /q Logs\timer.ini >nul 2>nul
  177. )
  178. if /i "!key!"=="c" (
  179. rd /f /s /q Logs >nul 2>nul
  180. )
  181. if /i "!key!"=="s" (
  182. rd /s /q Tasks >nul 2>nul
  183. )
  184. if /i "!key!"=="d" (
  185. del sleep.com sleep.exe sleep.vbs
  186. rd /s /q Tasks >nul 2>nul
  187. rd /s /q Logs >nul 2>nul
  188. mode con cols=68 lines=5
  189. cls
  190. echo.
  191. echo.
  192. echo.    ^>^> 请按回车键重启本程序...
  193. pause>nul
  194. cls
  195. goto :Begin
  196. )
  197. if /i "!key!"=="i" (
  198. del sleep.com sleep.exe sleep.vbs
  199. exit
  200. )
  201. if /i "!valid_key!" equ "0" goto :Main
  202. :Themes
  203. cd logs
  204. echo.%Color% > Color.ini
  205. echo.%Timer% > Timer.ini
  206. cd..
  207. cls
  208. color %Color%
  209. echo.
  210. echo.  Hope计时器[风格]
  211. set /p Str=--------------------------------------------------------------------<nul
  212. echo.
  213. echo.
  214. echo.  ^>^>^>^> 颜色
  215. set /p Str=--------------------------------------------------------------------<nul
  216. echo.
  217. echo.                                        ^|
  218. echo.    A 经典   B 标准   C 激情   D 复古   ^|  Hope.
  219. echo.                                        ^|
  220. echo.    E 大理岩 F 未来   G 蓝色   H 紫色   ^|  Make Your Life Easier.
  221. echo.                                        ^|
  222. echo.  ^>^>^>^> 开始动画速度
  223. set /p Str=--------------------------------------------------------------------<nul
  224. echo.
  225. echo.                                        ^|why join the navy,
  226. echo.    J 正常   K 快速   L 慢速            ^|if you can be a pirate?
  227. echo.                                        ^|           - Steve Jobs
  228. echo.                                        ^|
  229. echo.  ^>^>^>^> 操作
  230. set /p Str=--------------------------------------------------------------------<nul
  231. echo.
  232. echo.                                        ^|
  233. echo.    M 返回   N 还原默认                 ^|
  234. call :get_key
  235. if /i "!key!"=="a" (
  236. set Color=3f
  237. )
  238. if /i "!key!"=="b" (
  239. set Color=0f
  240. )
  241. if /i "!key!"=="c" (
  242. set Color=4e
  243. )
  244. if /i "!key!"=="d" (
  245. set Color=8f
  246. )
  247. if /i "!key!"=="e" (
  248. set Color=f8
  249. )
  250. if /i "!key!"=="f" (
  251. set Color=0a
  252. )
  253. if /i "!key!"=="g" (
  254. set Color=b1
  255. )
  256. if /i "!key!"=="h" (
  257. set Color=5f
  258. )
  259. if /i "!key!"=="j" (
  260. set Timer=128
  261. )
  262. if /i "!key!"=="k" (
  263. set Timer=32
  264. )
  265. if /i "!key!"=="l" (
  266. set Timer=512
  267. )
  268. if /i "!key!"=="m" (
  269. goto Main
  270. )
  271. if /i "!key!"=="n" (
  272. cd Logs
  273. del Timer.ini
  274. del Color.ini
  275. cd..
  276. set Timer=128
  277. set Color=0f
  278. )
  279. if /i "!valid_key!" equ "0" goto :Themes
  280. :Rem_Themes
  281. ; A 3F
  282. ; B 0F
  283. ; C 4E
  284. ; D 8F
  285. ; E F8
  286. ; F 0A
  287. ; G B1
  288. ; H 5F
  289. @goto :eof
  290. :Debugging
  291. echo.
  292. call :Echo_Debugging
  293. echo.    ^>^> 此向导将会帮助您调试您的设备是否适合运行 Hope (R) 计时器
  294. echo.
  295. echo.    ^>^> 请按回车键开始第一项检查...
  296. echo.
  297. pause > nul
  298. echo.
  299. call :Echo_Debugging
  300. echo.    ^>^> 正在调试 Certutil 性能...
  301. echo.
  302. echo.    ^>^> 请稍等...
  303. echo.
  304. echo.1 > ReturnKey.ini
  305. Certutil -encode ReturnKey.ini Hope.ini > nul
  306. if not exist Hope.ini (
  307. echo.    ^>^> 您的操作系统与 Certutil 不兼容, 无法运行Hope计时器...
  308. echo.
  309. echo.    ^>^> 请按回车键退出...
  310. pause > nul
  311. exit
  312. )
  313. if exist ReturnKey.ini del ReturnKey.ini
  314. if exist Hope.ini del Hope.ini
  315. echo.    ^>^> 您的操作系统与 Certutil 兼容, 可以运行Hope计时器...
  316. echo.
  317. echo.    ^>^> 请按回车键继续...
  318. pause > nul
  319. call :Echo_Debugging
  320. echo.    ^>^> 正在安装延时程序,请稍等...
  321. echo.
  322. call :Sleep_Installs
  323. echo.    ^>^> 接下来,您将会调试秒表, 我们将会为您进行系统标准计时...
  324. echo.
  325. echo.    ^>^> 我们会为你进行延时五秒,请您准备好您的计时设备...
  326. echo.
  327. echo.    ^>^> 请将您的计时设备置于您的电子计算机左侧, 打开计时设备但
  328. echo.
  329. echo.    ^>^> 不要开始计时, 请注意, 您按下回车键或空格键之后Hope计时
  330. echo.
  331. echo.    ^>^> 器将开始计时, 您应当同时启动Hope计时器与您的设备...
  332. echo.
  333. echo.    ^>^> 当Hope计时器的窗体变红时, 您应当停止您的计时设备, 按下
  334. echo.
  335. echo.    ^>^> 回车键, 并填写读数, Hope计时器会为您自动校准...
  336. pause > nul
  337. mode con cols=68 lines=5
  338. for /l %%i in (1,1,50) do (
  339. cls
  340. echo.
  341. echo.
  342. echo.    ^>^> %%i00 毫秒 / 5000 毫秒
  343. call :Sleep 100
  344. )
  345. color 4e
  346. cls
  347. echo.
  348. echo.
  349. echo.    ^>^> 请按回车键开始输入读数
  350. pause > nul
  351. cls
  352. echo.
  353. echo.
  354. set /p Math=    ^>^> 请输入读数:
  355. call :VisualSet Result 5/%Math%
  356. call :VisualSet Result 100*%Result%
  357. Md Logs >nul 2>nul
  358. echo.%Result% > Logs\Time.ini
  359. color %Color%
  360. cls
  361. echo.
  362. echo.
  363. echo.    ^>^> 请按回车键重启本程序...
  364. pause > nul
  365. cls
  366. goto :Begin
  367. :VisualSet
  368. @echo off
  369. echo X=%~2>>VisualSet.vbs
  370. echo wscript.echo(X)>>VisualSet.vbs
  371. for /f %%a in ('cscript //nologo VisualSet.vbs') do set %1=%%a
  372. if exist VisualSet.vbs del VisualSet.vbs
  373. goto :eof
  374. :Echo_Debugging
  375. mode con cols=68 lines=34
  376. cls
  377. echo.
  378. echo.  Hope计时器[调试程序]
  379. set /p Str=--------------------------------------------------------------------<nul
  380. echo.
  381. echo.
  382. @goto :eof
复制代码
梦依旧在,只是,心有余而力渐有不足
年年岁岁花相似,岁岁年年人不同

TOP

1.0.0031 下半部分
  1. :VisualSet
  2. @echo off
  3. echo X=%~2>>VisualSet.vbs
  4. echo wscript.echo(X)>>VisualSet.vbs
  5. for /f %%a in ('cscript //nologo VisualSet.vbs') do set %1=%%a
  6. if exist VisualSet.vbs del VisualSet.vbs
  7. goto :eof
  8. :Echo_Debugging
  9. mode con cols=68 lines=34
  10. cls
  11. echo.
  12. echo.  Hope计时器[调试程序]
  13. set /p Str=--------------------------------------------------------------------<nul
  14. echo.
  15. echo.
  16. @goto :eof
  17. :Task
  18. mode con cols=68 lines=34
  19. Md Tasks >nul 2>nul
  20. cls
  21. title Hope计时器[计划程序]
  22. set Error=0
  23. echo.
  24. echo.  Hope计时器[计划程序]
  25. set /p Str=--------------------------------------------------------------------<nul
  26. echo.
  27. echo.
  28. echo.    ^>^> Q 新建计划   W 使用计划   D 删除计划   E 返回菜单   R 退出
  29. if not exist Tasks\*.Htd (
  30. echo.
  31. echo.    ^>^> 当前没有计划
  32. set /p Str=--------------------------------------------------------------------<nul
  33. echo.
  34. echo.
  35. )
  36. if not exist Tasks\Htd.Hdat echo.10000 > Tasks\Htd.Hdat
  37. if exist Tasks\*.Htd (
  38. cd Tasks
  39. echo.
  40. echo.    ^>^> 当前计划列表
  41. set /p Str=--------------------------------------------------------------------<nul
  42. echo.
  43. echo.
  44. for /f %%i in ('dir /b *.Htd') do (
  45. for /f "skip=5" %%j in (%%~ni.Htd) do echo.    ^>^> 编号:%%~ni  备注:%%j
  46. )
  47. echo.
  48. cd..
  49. )
  50. )
  51. call :get_key
  52. if /i "!key!"=="E" (
  53. @goto :Main
  54. )
  55. if /i "!key!"=="D" (
  56. @goto :Del
  57. )
  58. if /i "!key!"=="R" (
  59. exit
  60. )
  61. if /i "!key!"=="Q" (
  62. @goto :New
  63. )
  64. if /i "!key!"=="W" (
  65. @goto :Open
  66. )
  67. if /i "!valid_key!" equ "0" @goto :Task
  68. :Open
  69. if exist Tasks\*.Htd (
  70. set "Content= "
  71. set /p Content=    ^>^> 请输入计划编号:
  72. goto Open_2
  73. ) else cd..&@goto :Task
  74. :Del
  75. if exist Tasks\*.Htd (
  76. set "Content= "
  77. set /p Content=    ^>^> 请输入计划编号:
  78. goto Del_2
  79. ) else cd..&@goto :Task
  80. :Del_2
  81. cd Tasks
  82. if exist %Content%.Htd (
  83. del %Content%.Htd
  84. cd..
  85. goto Task
  86. ) else cd..&goto Task
  87. :Open_2
  88. cd Tasks
  89. if exist %Content%.Htd (
  90. call :Read %Content%
  91. cd..
  92. mode con cols=68 lines=5
  93. @goto :Start
  94. ) else cd..&goto Task
  95. :New
  96. cd Tasks
  97. < Htd.Hdat (
  98. set /p Num=
  99. )
  100. set /a Num+=1
  101. echo.%Num% > Htd.Hdat
  102. cd..
  103. echo.
  104. echo.    ^>^> 新建计划:%Num%
  105. echo.
  106. set "Content=时间到!!!"
  107. set /p Content=    ^>^> 备注:
  108. echo.
  109. set "Content=%Content:>=^>%"
  110. set "Content=%Content:<=^<%"
  111. set "Content=%Content:|=^|%"
  112. set "Title= "
  113. set /p Title=    ^>^> 到时提醒:
  114. echo.
  115. set "Title=%Title:>=^^^>%"
  116. set "Title=%Title:<=^^^<%"
  117. set "Title=%Title:|=^^^|%"
  118. set H=0
  119. set Min=0
  120. set S=0
  121. set H_2=0
  122. set Min_2=0
  123. set S_2=0
  124. set Ms=0
  125. set Ms_2=0
  126. call :Vbs_Sleep 1000
  127. @goto :New_2
  128. :Read
  129. < %1.Htd (
  130. set /p H=
  131. set /p Min=
  132. set /p S=
  133. set /p Ms_2=
  134. set /p Title=
  135. set /p Content=
  136. )
  137. @goto :eof
  138. :New_2
  139. cls
  140. echo.
  141. echo.    ^>^> 当前计时时间:%H%小时%Min%分钟%S%秒
  142. echo.
  143. echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U 完成计划
  144. echo.
  145. call :get_key
  146. call :Settings_Time
  147. if /i "!key!"=="U" (
  148. (
  149. echo.%H%
  150. echo.%Min%
  151. echo.%S%
  152. echo.%Ms_2%
  153. echo.%Title%
  154. echo.%Content%
  155. ) > Tasks\%Num%.Htd
  156. @goto :Task
  157. )
  158. if /i "!valid_key!" equ "0" @goto :New_2
  159. :Error
  160. color 1f
  161. cls
  162. echo.
  163. echo.    ^>^> Sleep.exe 和 Sleep.com 不知到何处去了...
  164. echo.
  165. echo.    ^>^> 正在帮您恢复
  166. call :Sleep_Installs
  167. goto :Restart
  168. :Start
  169. set Error=0
  170. cls
  171. title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
  172. echo.
  173. echo.    ^>^> %H_2%小时%Min_2%分钟%S_2%秒%Ms%毫秒/%H%小时%Min%分钟%S%秒
  174. echo.
  175. echo.    ^>^> Ctrl+C暂停或退出...
  176. call :Sleep %Time%
  177. if %Error%==1 goto :Error
  178. set /a Ms+=100
  179. if %Ms%==1000 set /a S_2+=1&set Ms=0
  180. if %S_2% Geq 60 set /a Min_2+=1&set S_2=0
  181. if %Min_2% Geq 60 set /a H_2+=1&set Min_2=0
  182. if %H_2% Geq %H% if %Min_2% Geq %Min% if %S_2% Geq %S% goto :End
  183. if /i "!valid_key!" equ "0" goto :Start
  184. :End
  185. cls
  186. color 4e
  187. title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
  188. Call :Msg "%Title%" vbExclamation "Hope计时器"
  189. color %Color%
  190. @call :Restart
  191. @goto :Main
  192. :Vbs_Sleep
  193. echo.Wscript.Sleep %1 > Sleep.vbs
  194. call Sleep.vbs > nul
  195. if exist ReturnKey.vbs del ReturnKey.vbs
  196. @goto :eof
  197. :Sleep_Installs
  198. (
  199. echo.-----BEGIN CERTIFICATE-----
  200. echo.TVpQAQEAAAAEAAAA//8AAFABAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  201. echo.AAAAAAAAAAAAAAAAkAAAAPy+gQAPtkz/ZjHSZjHASXggrCwwchQ8CXcQZmvSCmYB
  202. echo.wi7HBi8AMQDr5C7/Ji8ADgBmadLoAwAAZonRZsHpELSGzRW4AEzNIQAAAAAAAAAA
  203. echo.UEUAAEwBAQBQeaU2AAAAAAAAAADgAA8BCwEFDAACAAAAAAAAAAAAAH4QAAAAEAAA
  204. echo.ACAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAIAAAAAIAAAAAAAADAAAA
  205. echo.AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAQEAAAKAAAAAAAAAAAAAAA
  206. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  207. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAAAAAAAAAAAAAAAAA
  208. echo.AAAAAAAAAAAudGV4dAAAANwAAAAAEAAAAAIAAAACAAAAAAAAAAAAAAAAAAAgAADg
  209. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  210. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWEAAAZBAAAHYQAAAAAAAA
  211. echo.RhAAAAAAAAAAAAAAOBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtFUk5FTDMy
  212. echo.LmRsbAAAVhAAAGQQAAB2EAAAAAAAAAAARXhpdFByb2Nlc3MAAABHZXRDb21tYW5k
  213. echo.TGluZUEAAABTbGVlcAD/FQQQQAAx0khAgDgAdBGAOCJ1AvfSCdJ174A4IHXqQPyJ
  214. echo.xjHSMcCsCMB0IywwchU8CXcRa9IKAcLHBckQQADNEEAA6+L/JckQQAClEEAAUv8V
  215. echo.CBBAAGoA/xUAEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  216. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  217. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  218. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  219. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  220. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  221. echo.AAAAAAAAAAAAAAAAAAAAAA==
  222. echo.-----END CERTIFICATE-----
  223. ) > Sleep.com
  224. Certutil -Decode Sleep.com Sleep.exe > nul
  225. Certutil -Decode -f Sleep.com Sleep.com > nul
  226. goto :eof
  227. :Sleep
  228. set Error=0
  229. if exist Sleep.exe (
  230. Sleep.exe %1
  231. goto :eof
  232. )
  233. if not exist Sleep.exe if exist Sleep.com (
  234. Sleep.com %1
  235. goto :eof
  236. )
  237. if not exist Sleep.exe if not exist Sleep.com (
  238. set Error=1
  239. goto :eof
  240. )
  241. :get_key
  242. rem 用法:call :get_key
  243. set "key="
  244.   for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if not defined key set "key=%%a"
  245.   set "key=%key:~-1%"
  246.   set "valid_key=0"
  247. goto :eof
  248. :Msg
  249. Rem 用法: Call :Msg "Text" [buttons] "Title"
  250. echo.Msg=msgbox("%~1",%2,"%~3") > ReturnKey.vbs
  251. Call ReturnKey.vbs > nul
  252. if exist ReturnKey.vbs del ReturnKey.vbs
  253. goto :eof
  254. :Settings_Time
  255. if %Ms_2% Leq 200000000 if %H% geq 0 if %Min% Geq 0 if %S% Geq 0 (
  256. if /i "!key!"=="q" (
  257. set /a Ms_2+=3600000
  258. set /a H+=1
  259. )
  260. if /i "!key!"=="w" (
  261. set /a Ms_2-=3600000
  262. set /a H-=1
  263. )
  264. if /i "!key!"=="e" (
  265. set /a Ms_2+=60000
  266. set /a Min+=1
  267. )
  268. if /i "!key!"=="r" (
  269. set /a Ms_2-=60000
  270. set /a Min-=1
  271. )
  272. if /i "!key!"=="t" (
  273. set /a Ms_2+=1000
  274. set /a S+=1
  275. )
  276. if /i "!key!"=="y" (
  277. set /a Ms_2-=1000
  278. set /a S-=1
  279. )
  280. )
  281. if %S% Lss 0 (
  282. if %Min% Geq 0 if %H% Geq 0 (
  283. set /a Min-=1&set /a S+=60
  284. )
  285. if %Min% Leq 0 if %H% Leq 0 (
  286. echo.
  287. echo.    ^>^> 算数错误!
  288. call :Vbs_Sleep 100
  289. @call :Restart
  290. )
  291. )
  292. if %Min% Lss 0 (
  293. if %H% Gtr 0 set /a H-=1&set /a Min+=60
  294. if %H% Leq 0 (
  295. echo.
  296. echo.    ^>^> 算数错误!
  297. call :Vbs_Sleep 100
  298. @call :Restart
  299. )
  300. )
  301. if %H% Lss 0 (
  302. echo.
  303. echo.    ^>^> 算数错误!
  304. call :Vbs_Sleep 100
  305. @call :Restart
  306. )
  307. if %Ms_2% Gtr 200000000 (
  308. echo.
  309. echo.    ^>^> 算数错误!
  310. call :Vbs_Sleep 100
  311. @call :Restart
  312. )
  313. if %S% Geq 60 set /a Min+=1&set S=0
  314. if %Min% Geq 60 set /a H+=1&set Min=0
复制代码
梦依旧在,只是,心有余而力渐有不足
年年岁岁花相似,岁岁年年人不同

TOP

1.0.0031 更改重启方式上半部分
  1. @echo off&goto :Begin
  2. ; Hope Timer [Version 1.0.0024]
  3. ; (C) Copyright 2020-2021 Hope Corp.
  4. ; (C) Copyright 2021-2021 Hope2021&Cmd1152 Corp.
  5. :Begin
  6. md Logs >nul 2>nul
  7. mode con cols=68 lines=5
  8. color f9
  9. endlocal
  10. setlocal enabledelayedexpansion
  11. chcp 936 > nul
  12. Rem By Hope2021
  13. title Hope计时器
  14. cls
  15. echo.
  16. echo.
  17. echo.                                HOPE
  18. echo.
  19. call :Sleep_Installs
  20. if not exist Logs\Time.ini set Time=100
  21. if not exist Logs\Timer.ini set Timer=128
  22. if not exist Logs\Color.ini set Color=0f
  23. if exist Logs\Time.ini (
  24. cd Logs
  25. < Time.ini (
  26. set /p Time=
  27. )
  28. cd..
  29. )
  30. if exist Logs\Timer.ini (
  31. cd Logs
  32. < Timer.ini (
  33. set /p Timer=
  34. )
  35. cd..
  36. )
  37. if exist Logs\Color.ini (
  38. cd Logs
  39. < Color.ini (
  40. set /p Color=
  41. )
  42. cd..
  43. )
  44. cls
  45. echo.
  46. echo.                             ----------
  47. echo.                             ---HOPE---
  48. echo.                             ----------
  49. call :djs
  50. cls
  51. echo.
  52. echo.                              ---------
  53. echo.                              --HOPE---
  54. echo.                             ----Li----
  55. call :djs
  56. cls
  57. echo.
  58. echo.                               --------
  59. echo.                               -HOPE---
  60. echo.                             --- Lif---
  61. call :djs
  62. cls
  63. echo.
  64. echo.                                -------
  65. echo.                                HOPE---
  66. echo.                             --r Life--
  67. call :djs
  68. cls
  69. echo.
  70. echo.                                H------
  71. echo.                                -OPE---
  72. echo.                             -ur Life -
  73. call :djs
  74. cls
  75. echo.
  76. echo.                                HO-----
  77. echo.                                 -PE---
  78. echo.                             our Life E
  79. call :djs
  80. cls
  81. echo.
  82. echo.                                HOP----
  83. echo.                                  -E---
  84. echo.                            Your Life Ea
  85. call :djs
  86. cls
  87. echo.
  88. echo.                                HOPE---
  89. echo.                                   ----
  90. echo.                            Your Life Eas
  91. call :djs
  92. cls
  93. echo.
  94. echo.                                HOPE --
  95. echo.                                    ---
  96. echo.                          e Your Life Easi
  97. call :djs
  98. cls
  99. echo.
  100. echo.                                HOPE  -
  101. echo.                                     --
  102. echo.                         ke Your Life Easie
  103. call :djs
  104. cls
  105. echo.
  106. echo.                                HOPE
  107. echo.                                      -
  108. echo.                        ake Your Life Easier
  109. call :djs
  110. cls
  111. echo.
  112. echo.                                HOPE
  113. echo.
  114. echo.                       Make Your Life Easier.
  115. call :djs
  116. call :Vbs_Sleep 1000
  117. call :Sleep_Installs
  118. @call :Restart
  119. @goto :Main
  120. :Blank
  121. call :Type "# "
  122. @goto :eof
  123. :Type
  124. set /p Str=%~1<nul
  125. for /l %%a in (1,1,%Timer%) do set ReturnKey=0
  126. @goto :eof
  127. :Djs
  128. for /l %%a in (1,1,700) do set ReturnKey=0
  129. @goto :eof
  130. :Restart
  131. color %Color%
  132. cls
  133. set H=0
  134. set Min=0
  135. set S=0
  136. set H_2=0
  137. set Min_2=0
  138. set S_2=0
  139. set Ms=0
  140. set Ms_2=0
  141. @goto :eof
  142. :Main
  143. mode con cols=68 lines=9
  144. title Hope计时器
  145. set Error=0
  146. cls
  147. echo.
  148. echo.    ^>^> 当前计时时间:%H%小时%Min%分钟%S%秒
  149. echo.
  150. echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U/I 开始计时/退出
  151. echo.
  152. echo.  P 打开计划程序  S 删除计划存储  X 调试        F 恢复到调试前
  153. echo.
  154. echo.  Z 风格          D 初始化
  155. call :get_key
  156. call :Settings_Time
  157. if /i "!key!"=="p" (
  158. set St_1=10001
  159. set En_1=10010
  160. @goto :Task
  161. )
  162. if /i "!key!"=="u" (
  163. mode con cols=68 lines=5
  164. set "Title=时间到!!!"
  165. @goto :Start
  166. )
  167. if /i "!key!"=="z" (
  168. mode con cols=68 lines=34
  169. @goto :Themes
  170. )
  171. if /i "!key!"=="x" (
  172. mode con cols=68 lines=34
  173. @goto :Debugging
  174. )
  175. if /i "!key!"=="f" (
  176. rd /s /q Logs >nul 2>nul
  177. )
  178. if /i "!key!"=="s" (
  179. rd /s /q Tasks >nul 2>nul
  180. )
  181. if /i "!key!"=="d" (
  182. del sleep.com sleep.exe sleep.vbs
  183. rd /s /q Tasks >nul 2>nul
  184. rd /s /q Logs >nul 2>nul
  185. mode con cols=68 lines=5
  186. cls
  187. echo.
  188. echo.
  189. echo.    ^>^> 请按回车键重启本程序...
  190. pause>nul
  191. cls
  192. goto :Begin
  193. )
  194. if /i "!key!"=="i" (
  195. del sleep.com sleep.exe sleep.vbs
  196. exit
  197. )
  198. if /i "!valid_key!" equ "0" goto :Main
  199. :Themes
  200. cd logs
  201. echo.%Color% > Color.ini
  202. echo.%Timer% > Timer.ini
  203. cd..
  204. cls
  205. color %Color%
  206. echo.
  207. echo.  Hope计时器[风格]
  208. set /p Str=--------------------------------------------------------------------<nul
  209. echo.
  210. echo.
  211. echo.  ^>^>^>^> 颜色
  212. set /p Str=--------------------------------------------------------------------<nul
  213. echo.
  214. echo.                                        ^|
  215. echo.    A 经典   B 标准   C 激情   D 复古   ^|  Hope.
  216. echo.                                        ^|
  217. echo.    E 大理岩 F 未来   G 蓝色   H 紫色   ^|  Make Your Life Easier.
  218. echo.                                        ^|
  219. echo.  ^>^>^>^> 开始动画速度
  220. set /p Str=--------------------------------------------------------------------<nul
  221. echo.
  222. echo.                                        ^|why join the navy,
  223. echo.    J 正常   K 快速   L 慢速            ^|if you can be a pirate?
  224. echo.                                        ^|           - Steve Jobs
  225. echo.                                        ^|
  226. echo.  ^>^>^>^> 操作
  227. set /p Str=--------------------------------------------------------------------<nul
  228. echo.
  229. echo.                                        ^|
  230. echo.    M 返回   N 还原默认                 ^|
  231. call :get_key
  232. if /i "!key!"=="a" (
  233. set Color=3f
  234. )
  235. if /i "!key!"=="b" (
  236. set Color=0f
  237. )
  238. if /i "!key!"=="c" (
  239. set Color=4e
  240. )
  241. if /i "!key!"=="d" (
  242. set Color=8f
  243. )
  244. if /i "!key!"=="e" (
  245. set Color=f8
  246. )
  247. if /i "!key!"=="f" (
  248. set Color=0a
  249. )
  250. if /i "!key!"=="g" (
  251. set Color=b1
  252. )
  253. if /i "!key!"=="h" (
  254. set Color=5f
  255. )
  256. if /i "!key!"=="j" (
  257. set Timer=128
  258. )
  259. if /i "!key!"=="k" (
  260. set Timer=32
  261. )
  262. if /i "!key!"=="l" (
  263. set Timer=512
  264. )
  265. if /i "!key!"=="m" (
  266. goto Main
  267. )
  268. if /i "!key!"=="n" (
  269. cd Logs
  270. del Timer.ini
  271. del Color.ini
  272. cd..
  273. set Timer=128
  274. set Color=0f
  275. )
  276. if /i "!valid_key!" equ "0" goto :Themes
  277. :Rem_Themes
  278. ; A 3F
  279. ; B 0F
  280. ; C 4E
  281. ; D 8F
  282. ; E F8
  283. ; F 0A
  284. ; G B1
  285. ; H 5F
  286. @goto :eof
  287. :Debugging
  288. echo.
  289. call :Echo_Debugging
  290. echo.    ^>^> 此向导将会帮助您调试您的设备是否适合运行 Hope (R) 计时器
  291. echo.
  292. echo.    ^>^> 请按回车键开始第一项检查...
  293. echo.
  294. pause > nul
  295. echo.
  296. call :Echo_Debugging
  297. echo.    ^>^> 正在调试 Certutil 性能...
  298. echo.
  299. echo.    ^>^> 请稍等...
  300. echo.
  301. echo.1 > ReturnKey.ini
  302. Certutil -encode ReturnKey.ini Hope.ini > nul
  303. if not exist Hope.ini (
  304. echo.    ^>^> 您的操作系统与 Certutil 不兼容, 无法运行Hope计时器...
  305. echo.
  306. echo.    ^>^> 请按回车键退出...
  307. pause > nul
  308. exit
  309. )
  310. if exist ReturnKey.ini del ReturnKey.ini
  311. if exist Hope.ini del Hope.ini
  312. echo.    ^>^> 您的操作系统与 Certutil 兼容, 可以运行Hope计时器...
  313. echo.
  314. echo.    ^>^> 请按回车键继续...
  315. pause > nul
  316. call :Echo_Debugging
  317. echo.    ^>^> 正在安装延时程序,请稍等...
  318. echo.
  319. call :Sleep_Installs
  320. echo.    ^>^> 接下来,您将会调试秒表, 我们将会为您进行系统标准计时...
  321. echo.
  322. echo.    ^>^> 我们会为你进行延时五秒,请您准备好您的计时设备...
  323. echo.
  324. echo.    ^>^> 请将您的计时设备置于您的电子计算机左侧, 打开计时设备但
  325. echo.
  326. echo.    ^>^> 不要开始计时, 请注意, 您按下回车键或空格键之后Hope计时
  327. echo.
  328. echo.    ^>^> 器将开始计时, 您应当同时启动Hope计时器与您的设备...
  329. echo.
  330. echo.    ^>^> 当Hope计时器的窗体变红时, 您应当停止您的计时设备, 按下
  331. echo.
  332. echo.    ^>^> 回车键, 并填写读数, Hope计时器会为您自动校准...
  333. pause > nul
  334. mode con cols=68 lines=5
  335. for /l %%i in (1,1,50) do (
  336. cls
  337. echo.
  338. echo.
  339. echo.    ^>^> %%i00 毫秒 / 5000 毫秒
  340. call :Sleep 100
  341. )
  342. color 4e
  343. cls
  344. echo.
  345. echo.
  346. echo.    ^>^> 请按回车键开始输入读数
  347. pause > nul
  348. cls
  349. echo.
  350. echo.
  351. set /p Math=    ^>^> 请输入读数:
  352. call :VisualSet Result 5/%Math%
  353. call :VisualSet Result 100*%Result%
  354. Md Logs >nul 2>nul
  355. echo.%Result% > Logs\Time.ini
  356. color %Color%
  357. cls
  358. echo.
  359. echo.
  360. echo.    ^>^> 请按回车键重启本程序...
  361. pause > nul
  362. cls
  363. goto :Begin
复制代码
梦依旧在,只是,心有余而力渐有不足
年年岁岁花相似,岁岁年年人不同

TOP

这个计时器100ms=1000ms...
梦依旧在,只是,心有余而力渐有不足
年年岁岁花相似,岁岁年年人不同

TOP

1.0.0030 下半部分
  1. :Debugging
  2. echo.
  3. call :Echo_Debugging
  4. echo.    ^>^> 此向导将会帮助您调试您的设备是否适合运行 Hope (R) 计时器
  5. echo.
  6. echo.    ^>^> 请按回车键开始第一项检查...
  7. echo.
  8. pause > nul
  9. echo.
  10. call :Echo_Debugging
  11. echo.    ^>^> 正在调试 Certutil 性能...
  12. echo.
  13. echo.    ^>^> 请稍等...
  14. echo.
  15. echo.1 > ReturnKey.ini
  16. Certutil -encode ReturnKey.ini Hope.ini > nul
  17. if not exist Hope.ini (
  18. echo.    ^>^> 您的操作系统与 Certutil 不兼容, 无法运行Hope计时器...
  19. echo.
  20. echo.    ^>^> 请按回车键退出...
  21. pause > nul
  22. exit
  23. )
  24. if exist ReturnKey.ini del ReturnKey.ini
  25. if exist Hope.ini del Hope.ini
  26. echo.    ^>^> 您的操作系统与 Certutil 兼容, 可以运行Hope计时器...
  27. echo.
  28. echo.    ^>^> 请按回车键继续...
  29. pause > nul
  30. call :Echo_Debugging
  31. echo.    ^>^> 正在安装延时程序,请稍等...
  32. echo.
  33. call :Sleep_Installs
  34. echo.    ^>^> 接下来,您将会调试秒表, 我们将会为您进行系统标准计时...
  35. echo.
  36. echo.    ^>^> 我们会为你进行延时五秒,请您准备好您的计时设备...
  37. echo.
  38. echo.    ^>^> 请将您的计时设备置于您的电子计算机左侧, 打开计时设备但
  39. echo.
  40. echo.    ^>^> 不要开始计时, 请注意, 您按下回车键或空格键之后Hope计时
  41. echo.
  42. echo.    ^>^> 器将开始计时, 您应当同时启动Hope计时器与您的设备...
  43. echo.
  44. echo.    ^>^> 当Hope计时器的窗体变红时, 您应当停止您的计时设备, 按下
  45. echo.
  46. echo.    ^>^> 回车键, 并填写读数, Hope计时器会为您自动校准...
  47. pause > nul
  48. mode con cols=68 lines=5
  49. for /l %%i in (1,1,50) do (
  50. cls
  51. echo.
  52. echo.
  53. echo.    ^>^> %%i00 毫秒 / 5000 毫秒
  54. call :Sleep 100
  55. )
  56. color 4e
  57. cls
  58. echo.
  59. echo.
  60. echo.    ^>^> 请按回车键开始输入读数
  61. pause > nul
  62. cls
  63. echo.
  64. echo.
  65. set /p Math=    ^>^> 请输入读数:
  66. call :VisualSet Result 5/%Math%
  67. call :VisualSet Result 100*%Result%
  68. Md Logs >nul 2>nul
  69. echo.%Result% > Logs\Time.ini
  70. color %Color%
  71. cls
  72. echo.
  73. echo.
  74. echo.    ^>^> 请按回车键重启本程序...
  75. pause > nul
  76. @goto :Begin
  77. :VisualSet
  78. @echo off
  79. echo X=%~2>>VisualSet.vbs
  80. echo wscript.echo(X)>>VisualSet.vbs
  81. for /f %%a in ('cscript //nologo VisualSet.vbs') do set %1=%%a
  82. if exist VisualSet.vbs del VisualSet.vbs
  83. goto :eof
  84. :Echo_Debugging
  85. mode con cols=68 lines=34
  86. cls
  87. echo.
  88. echo.  Hope计时器[调试程序]
  89. set /p Str=--------------------------------------------------------------------<nul
  90. echo.
  91. echo.
  92. @goto :eof
  93. :Task
  94. mode con cols=68 lines=34
  95. Md Tasks >nul 2>nul
  96. cls
  97. title Hope计时器[计划程序]
  98. set Error=0
  99. echo.
  100. echo.  Hope计时器[计划程序]
  101. set /p Str=--------------------------------------------------------------------<nul
  102. echo.
  103. echo.
  104. echo.    ^>^> Q 新建计划   W 使用计划   D 删除计划   E 返回菜单   R 退出
  105. if not exist Tasks\*.Htd (
  106. echo.
  107. echo.    ^>^> 当前没有计划
  108. set /p Str=--------------------------------------------------------------------<nul
  109. echo.
  110. echo.
  111. )
  112. if not exist Tasks\Htd.Hdat echo.10000 > Tasks\Htd.Hdat
  113. if exist Tasks\*.Htd (
  114. cd Tasks
  115. echo.
  116. echo.    ^>^> 当前计划列表
  117. set /p Str=--------------------------------------------------------------------<nul
  118. echo.
  119. echo.
  120. for /f %%i in ('dir /b *.Htd') do (
  121. for /f "skip=5" %%j in (%%~ni.Htd) do echo.    ^>^> 编号:%%~ni  备注:%%j
  122. )
  123. echo.
  124. cd..
  125. )
  126. )
  127. call :get_key
  128. if /i "!key!"=="E" (
  129. @goto :Main
  130. )
  131. if /i "!key!"=="D" (
  132. @goto :Del
  133. )
  134. if /i "!key!"=="R" (
  135. exit
  136. )
  137. if /i "!key!"=="Q" (
  138. @goto :New
  139. )
  140. if /i "!key!"=="W" (
  141. @goto :Open
  142. )
  143. if /i "!valid_key!" equ "0" @goto :Task
  144. :Open
  145. if exist Tasks\*.Htd (
  146. set "Content= "
  147. set /p Content=    ^>^> 请输入计划编号:
  148. goto Open_2
  149. ) else cd..&@goto :Task
  150. :Del
  151. if exist Tasks\*.Htd (
  152. set "Content= "
  153. set /p Content=    ^>^> 请输入计划编号:
  154. goto Del_2
  155. ) else cd..&@goto :Task
  156. :Del_2
  157. cd Tasks
  158. if exist %Content%.Htd (
  159. del %Content%.Htd
  160. cd..
  161. goto Task
  162. ) else cd..&goto Task
  163. :Open_2
  164. cd Tasks
  165. if exist %Content%.Htd (
  166. call :Read %Content%
  167. cd..
  168. mode con cols=68 lines=5
  169. @goto :Start
  170. ) else cd..&goto Task
  171. :New
  172. cd Tasks
  173. < Htd.Hdat (
  174. set /p Num=
  175. )
  176. set /a Num+=1
  177. echo.%Num% > Htd.Hdat
  178. cd..
  179. echo.
  180. echo.    ^>^> 新建计划:%Num%
  181. echo.
  182. set "Content=时间到!!!"
  183. set /p Content=    ^>^> 备注:
  184. echo.
  185. set "Content=%Content:>=^>%"
  186. set "Content=%Content:<=^<%"
  187. set "Content=%Content:|=^|%"
  188. set "Title= "
  189. set /p Title=    ^>^> 到时提醒:
  190. echo.
  191. set "Title=%Title:>=^^^>%"
  192. set "Title=%Title:<=^^^<%"
  193. set "Title=%Title:|=^^^|%"
  194. set H=0
  195. set Min=0
  196. set S=0
  197. set H_2=0
  198. set Min_2=0
  199. set S_2=0
  200. set Ms=0
  201. set Ms_2=0
  202. call :Vbs_Sleep 1000
  203. @goto :New_2
  204. :Read
  205. < %1.Htd (
  206. set /p H=
  207. set /p Min=
  208. set /p S=
  209. set /p Ms_2=
  210. set /p Title=
  211. set /p Content=
  212. )
  213. @goto :eof
  214. :New_2
  215. cls
  216. echo.
  217. echo.    ^>^> 当前计时时间:%H%小时%Min%分钟%S%秒
  218. echo.
  219. echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U 完成计划
  220. echo.
  221. call :get_key
  222. call :Settings_Time
  223. if /i "!key!"=="U" (
  224. (
  225. echo.%H%
  226. echo.%Min%
  227. echo.%S%
  228. echo.%Ms_2%
  229. echo.%Title%
  230. echo.%Content%
  231. ) > Tasks\%Num%.Htd
  232. @goto :Task
  233. )
  234. if /i "!valid_key!" equ "0" @goto :New_2
  235. :Error
  236. color 1f
  237. cls
  238. echo.
  239. echo.    ^>^> Sleep.exe 和 Sleep.com 不知到何处去了...
  240. echo.
  241. echo.    ^>^> 正在帮您恢复
  242. call :Sleep_Installs
  243. goto :Restart
  244. :Start
  245. set Error=0
  246. cls
  247. title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
  248. echo.
  249. echo.    ^>^> %H_2%小时%Min_2%分钟%S_2%秒%Ms%毫秒/%H%小时%Min%分钟%S%秒
  250. echo.
  251. echo.    ^>^> Ctrl+C暂停或退出...
  252. call :Sleep %Time%
  253. if %Error%==1 goto :Error
  254. set /a Ms+=100
  255. if %Ms%==1000 set /a S_2+=1&set Ms=0
  256. if %S_2% Geq 60 set /a Min_2+=1&set S_2=0
  257. if %Min_2% Geq 60 set /a H_2+=1&set Min_2=0
  258. if %H_2% Geq %H% if %Min_2% Geq %Min% if %S_2% Geq %S% goto :End
  259. if /i "!valid_key!" equ "0" goto :Start
  260. :End
  261. cls
  262. color 4e
  263. title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
  264. Call :Msg "%Title%" vbExclamation "Hope计时器"
  265. color %Color%
  266. @call :Restart
  267. @goto :Main
  268. :Vbs_Sleep
  269. echo.Wscript.Sleep %1 > Sleep.vbs
  270. call Sleep.vbs > nul
  271. if exist ReturnKey.vbs del ReturnKey.vbs
  272. @goto :eof
  273. :Sleep_Installs
  274. (
  275. echo.-----BEGIN CERTIFICATE-----
  276. echo.TVpQAQEAAAAEAAAA//8AAFABAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  277. echo.AAAAAAAAAAAAAAAAkAAAAPy+gQAPtkz/ZjHSZjHASXggrCwwchQ8CXcQZmvSCmYB
  278. echo.wi7HBi8AMQDr5C7/Ji8ADgBmadLoAwAAZonRZsHpELSGzRW4AEzNIQAAAAAAAAAA
  279. echo.UEUAAEwBAQBQeaU2AAAAAAAAAADgAA8BCwEFDAACAAAAAAAAAAAAAH4QAAAAEAAA
  280. echo.ACAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAIAAAAAIAAAAAAAADAAAA
  281. echo.AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAQEAAAKAAAAAAAAAAAAAAA
  282. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  283. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAAAAAAAAAAAAAAAAA
  284. echo.AAAAAAAAAAAudGV4dAAAANwAAAAAEAAAAAIAAAACAAAAAAAAAAAAAAAAAAAgAADg
  285. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  286. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWEAAAZBAAAHYQAAAAAAAA
  287. echo.RhAAAAAAAAAAAAAAOBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtFUk5FTDMy
  288. echo.LmRsbAAAVhAAAGQQAAB2EAAAAAAAAAAARXhpdFByb2Nlc3MAAABHZXRDb21tYW5k
  289. echo.TGluZUEAAABTbGVlcAD/FQQQQAAx0khAgDgAdBGAOCJ1AvfSCdJ174A4IHXqQPyJ
  290. echo.xjHSMcCsCMB0IywwchU8CXcRa9IKAcLHBckQQADNEEAA6+L/JckQQAClEEAAUv8V
  291. echo.CBBAAGoA/xUAEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  292. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  293. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  294. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  295. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  296. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  297. echo.AAAAAAAAAAAAAAAAAAAAAA==
  298. echo.-----END CERTIFICATE-----
  299. ) > Sleep.com
  300. Certutil -Decode Sleep.com Sleep.exe > nul
  301. Certutil -Decode -f Sleep.com Sleep.com > nul
  302. goto :eof
  303. :Sleep
  304. set Error=0
  305. if exist Sleep.exe (
  306. Sleep.exe %1
  307. goto :eof
  308. )
  309. if not exist Sleep.exe if exist Sleep.com (
  310. Sleep.com %1
  311. goto :eof
  312. )
  313. if not exist Sleep.exe if not exist Sleep.com (
  314. set Error=1
  315. goto :eof
  316. )
  317. :get_key
  318. rem 用法:call :get_key
  319. set "key="
  320.   for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if not defined key set "key=%%a"
  321.   set "key=%key:~-1%"
  322.   set "valid_key=0"
  323. goto :eof
  324. :Msg
  325. Rem 用法: Call :Msg "Text" [buttons] "Title"
  326. echo.Msg=msgbox("%~1",%2,"%~3") > ReturnKey.vbs
  327. Call ReturnKey.vbs > nul
  328. if exist ReturnKey.vbs del ReturnKey.vbs
  329. goto :eof
  330. :Settings_Time
  331. if %Ms_2% Leq 200000000 if %H% geq 0 if %Min% Geq 0 if %S% Geq 0 (
  332. if /i "!key!"=="q" (
  333. set /a Ms_2+=3600000
  334. set /a H+=1
  335. )
  336. if /i "!key!"=="w" (
  337. set /a Ms_2-=3600000
  338. set /a H-=1
  339. )
  340. if /i "!key!"=="e" (
  341. set /a Ms_2+=60000
  342. set /a Min+=1
  343. )
  344. if /i "!key!"=="r" (
  345. set /a Ms_2-=60000
  346. set /a Min-=1
  347. )
  348. if /i "!key!"=="t" (
  349. set /a Ms_2+=1000
  350. set /a S+=1
  351. )
  352. if /i "!key!"=="y" (
  353. set /a Ms_2-=1000
  354. set /a S-=1
  355. )
  356. )
  357. if %S% Lss 0 (
  358. if %Min% Geq 0 if %H% Geq 0 (
  359. set /a Min-=1&set /a S+=60
  360. )
  361. if %Min% Leq 0 if %H% Leq 0 (
  362. echo.
  363. echo.    ^>^> 算数错误!
  364. call :Vbs_Sleep 100
  365. @call :Restart
  366. )
  367. )
  368. if %Min% Lss 0 (
  369. if %H% Gtr 0 set /a H-=1&set /a Min+=60
  370. if %H% Leq 0 (
  371. echo.
  372. echo.    ^>^> 算数错误!
  373. call :Vbs_Sleep 100
  374. @call :Restart
  375. )
  376. )
  377. if %H% Lss 0 (
  378. echo.
  379. echo.    ^>^> 算数错误!
  380. call :Vbs_Sleep 100
  381. @call :Restart
  382. )
  383. if %Ms_2% Gtr 200000000 (
  384. echo.
  385. echo.    ^>^> 算数错误!
  386. call :Vbs_Sleep 100
  387. @call :Restart
  388. )
  389. if %S% Geq 60 set /a Min+=1&set S=0
  390. if %Min% Geq 60 set /a H+=1&set Min=0
复制代码
梦依旧在,只是,心有余而力渐有不足
年年岁岁花相似,岁岁年年人不同

TOP

1.0.0030 开始动画加速上半部分
  1. @echo off&goto :Begin
  2. ; Hope Timer [Version 1.0.0024]
  3. ; (C) Copyright 2020-2021 Hope Corp.
  4. ; (C) Copyright 2021-2021 Hope2021&Cmd1152 Corp.
  5. :Begin
  6. md Logs >nul 2>nul
  7. mode con cols=68 lines=5
  8. color f9
  9. endlocal
  10. setlocal enabledelayedexpansion
  11. chcp 936 > nul
  12. Rem By Hope2021
  13. title Hope计时器
  14. cls
  15. echo.
  16. echo.
  17. echo.                                HOPE
  18. echo.
  19. call :Sleep_Installs
  20. if not exist Logs\Time.ini set Time=100
  21. if not exist Logs\Timer.ini set Timer=128
  22. if not exist Logs\Color.ini set Color=0f
  23. if exist Logs\Time.ini (
  24. cd Logs
  25. < Time.ini (
  26. set /p Time=
  27. )
  28. cd..
  29. )
  30. if exist Logs\Timer.ini (
  31. cd Logs
  32. < Timer.ini (
  33. set /p Timer=
  34. )
  35. cd..
  36. )
  37. if exist Logs\Color.ini (
  38. cd Logs
  39. < Color.ini (
  40. set /p Color=
  41. )
  42. cd..
  43. )
  44. cls
  45. echo.
  46. echo.                             ----------
  47. echo.                             ---HOPE---
  48. echo.                             ----------
  49. call :djs
  50. cls
  51. echo.
  52. echo.                              ---------
  53. echo.                              --HOPE---
  54. echo.                             ----Li----
  55. call :djs
  56. cls
  57. echo.
  58. echo.                               --------
  59. echo.                               -HOPE---
  60. echo.                             --- Lif---
  61. call :djs
  62. cls
  63. echo.
  64. echo.                                -------
  65. echo.                                HOPE---
  66. echo.                             --r Life--
  67. call :djs
  68. cls
  69. echo.
  70. echo.                                H------
  71. echo.                                -OPE---
  72. echo.                             -ur Life -
  73. call :djs
  74. cls
  75. echo.
  76. echo.                                HO-----
  77. echo.                                 -PE---
  78. echo.                             our Life E
  79. call :djs
  80. cls
  81. echo.
  82. echo.                                HOP----
  83. echo.                                  -E---
  84. echo.                            Your Life Ea
  85. call :djs
  86. cls
  87. echo.
  88. echo.                                HOPE---
  89. echo.                                   ----
  90. echo.                            Your Life Eas
  91. call :djs
  92. cls
  93. echo.
  94. echo.                                HOPE --
  95. echo.                                    ---
  96. echo.                          e Your Life Easi
  97. call :djs
  98. cls
  99. echo.
  100. echo.                                HOPE  -
  101. echo.                                     --
  102. echo.                         ke Your Life Easie
  103. call :djs
  104. cls
  105. echo.
  106. echo.                                HOPE
  107. echo.                                      -
  108. echo.                        ake Your Life Easier
  109. call :djs
  110. cls
  111. echo.
  112. echo.                                HOPE
  113. echo.
  114. echo.                       Make Your Life Easier.
  115. call :djs
  116. call :Vbs_Sleep 1000
  117. call :Sleep_Installs
  118. @call :Restart
  119. @goto :Main
  120. :Blank
  121. call :Type "# "
  122. @goto :eof
  123. :Type
  124. set /p Str=%~1<nul
  125. for /l %%a in (1,1,%Timer%) do set ReturnKey=0
  126. @goto :eof
  127. :Djs
  128. for /l %%a in (1,1,700) do set ReturnKey=0
  129. @goto :eof
  130. :Restart
  131. color %Color%
  132. cls
  133. set H=0
  134. set Min=0
  135. set S=0
  136. set H_2=0
  137. set Min_2=0
  138. set S_2=0
  139. set Ms=0
  140. set Ms_2=0
  141. @goto :eof
  142. :Main
  143. mode con cols=68 lines=9
  144. title Hope计时器
  145. set Error=0
  146. cls
  147. echo.
  148. echo.    ^>^> 当前计时时间:%H%小时%Min%分钟%S%秒
  149. echo.
  150. echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U/I 开始计时/退出
  151. echo.
  152. echo.  P 打开计划程序  S 删除计划存储  X 调试        F 恢复到调试前
  153. echo.
  154. echo.  Z 风格          D 初始化
  155. call :get_key
  156. call :Settings_Time
  157. if /i "!key!"=="p" (
  158. set St_1=10001
  159. set En_1=10010
  160. @goto :Task
  161. )
  162. if /i "!key!"=="u" (
  163. mode con cols=68 lines=5
  164. set "Title=时间到!!!"
  165. @goto :Start
  166. )
  167. if /i "!key!"=="z" (
  168. mode con cols=68 lines=34
  169. @goto :Themes
  170. )
  171. if /i "!key!"=="x" (
  172. mode con cols=68 lines=34
  173. @goto :Debugging
  174. )
  175. if /i "!key!"=="f" (
  176. rd /s /q Logs >nul 2>nul
  177. )
  178. if /i "!key!"=="s" (
  179. rd /s /q Tasks >nul 2>nul
  180. )
  181. if /i "!key!"=="d" (
  182. del sleep.com sleep.exe sleep.vbs
  183. rd /s /q Tasks >nul 2>nul
  184. rd /s /q Logs >nul 2>nul
  185. mode con cols=68 lines=5
  186. cls
  187. echo.
  188. echo.
  189. echo.    ^>^> 请按回车键重启本程序...
  190. pause>nul
  191. start %~0
  192. exit
  193. )
  194. if /i "!key!"=="i" (
  195. del sleep.com sleep.exe sleep.vbs
  196. exit
  197. )
  198. if /i "!valid_key!" equ "0" goto :Main
  199. :Themes
  200. cd logs
  201. echo.%Color% > Color.ini
  202. echo.%Timer% > Timer.ini
  203. cd..
  204. cls
  205. color %Color%
  206. echo.
  207. echo.  Hope计时器[风格]
  208. set /p Str=--------------------------------------------------------------------<nul
  209. echo.
  210. echo.
  211. echo.  ^>^>^>^> 颜色
  212. set /p Str=--------------------------------------------------------------------<nul
  213. echo.
  214. echo.                                        ^|
  215. echo.    A 经典   B 标准   C 激情   D 复古   ^|  Hope.
  216. echo.                                        ^|
  217. echo.    E 大理岩 F 未来   G 蓝色   H 紫色   ^|  Make Your Life Easier.
  218. echo.                                        ^|
  219. echo.  ^>^>^>^> 开始动画速度
  220. set /p Str=--------------------------------------------------------------------<nul
  221. echo.
  222. echo.                                        ^|why join the navy,
  223. echo.    J 正常   K 快速   L 慢速            ^|if you can be a pirate?
  224. echo.                                        ^|           - Steve Jobs
  225. echo.                                        ^|
  226. echo.  ^>^>^>^> 操作
  227. set /p Str=--------------------------------------------------------------------<nul
  228. echo.
  229. echo.                                        ^|
  230. echo.    M 返回   N 还原默认                 ^|
  231. call :get_key
  232. if /i "!key!"=="a" (
  233. set Color=3f
  234. )
  235. if /i "!key!"=="b" (
  236. set Color=0f
  237. )
  238. if /i "!key!"=="c" (
  239. set Color=4e
  240. )
  241. if /i "!key!"=="d" (
  242. set Color=8f
  243. )
  244. if /i "!key!"=="e" (
  245. set Color=f8
  246. )
  247. if /i "!key!"=="f" (
  248. set Color=0a
  249. )
  250. if /i "!key!"=="g" (
  251. set Color=b1
  252. )
  253. if /i "!key!"=="h" (
  254. set Color=5f
  255. )
  256. if /i "!key!"=="j" (
  257. set Timer=128
  258. )
  259. if /i "!key!"=="k" (
  260. set Timer=32
  261. )
  262. if /i "!key!"=="l" (
  263. set Timer=512
  264. )
  265. if /i "!key!"=="m" (
  266. goto Main
  267. )
  268. if /i "!key!"=="n" (
  269. cd Logs
  270. del Timer.ini
  271. del Color.ini
  272. cd..
  273. set Timer=128
  274. set Color=0f
  275. )
  276. if /i "!valid_key!" equ "0" goto :Themes
  277. :Rem_Themes
  278. ; A 3F
  279. ; B 0F
  280. ; C 4E
  281. ; D 8F
  282. ; E F8
  283. ; F 0A
  284. ; G B1
  285. ; H 5F
  286. @goto :eof
复制代码
梦依旧在,只是,心有余而力渐有不足
年年岁岁花相似,岁岁年年人不同

TOP

1.0.0029 下半部分
  1. :Debugging
  2. echo.
  3. call :Echo_Debugging
  4. echo.    ^>^> 此向导将会帮助您调试您的设备是否适合运行 Hope (R) 计时器
  5. echo.
  6. echo.    ^>^> 请按回车键开始第一项检查...
  7. echo.
  8. pause > nul
  9. echo.
  10. call :Echo_Debugging
  11. echo.    ^>^> 正在调试 Certutil 性能...
  12. echo.
  13. echo.    ^>^> 请稍等...
  14. echo.
  15. echo.1 > ReturnKey.ini
  16. Certutil -encode ReturnKey.ini Hope.ini > nul
  17. if not exist Hope.ini (
  18. echo.    ^>^> 您的操作系统与 Certutil 不兼容, 无法运行Hope计时器...
  19. echo.
  20. echo.    ^>^> 请按回车键退出...
  21. pause > nul
  22. exit
  23. )
  24. if exist ReturnKey.ini del ReturnKey.ini
  25. if exist Hope.ini del Hope.ini
  26. echo.    ^>^> 您的操作系统与 Certutil 兼容, 可以运行Hope计时器...
  27. echo.
  28. echo.    ^>^> 请按回车键继续...
  29. pause > nul
  30. call :Echo_Debugging
  31. echo.    ^>^> 正在安装延时程序,请稍等...
  32. echo.
  33. call :Sleep_Installs
  34. echo.    ^>^> 接下来,您将会调试秒表, 我们将会为您进行系统标准计时...
  35. echo.
  36. echo.    ^>^> 我们会为你进行延时五秒,请您准备好您的计时设备...
  37. echo.
  38. echo.    ^>^> 请将您的计时设备置于您的电子计算机左侧, 打开计时设备但
  39. echo.
  40. echo.    ^>^> 不要开始计时, 请注意, 您按下回车键或空格键之后Hope计时
  41. echo.
  42. echo.    ^>^> 器将开始计时, 您应当同时启动Hope计时器与您的设备...
  43. echo.
  44. echo.    ^>^> 当Hope计时器的窗体变红时, 您应当停止您的计时设备, 按下
  45. echo.
  46. echo.    ^>^> 回车键, 并填写读数, Hope计时器会为您自动校准...
  47. pause > nul
  48. mode con cols=68 lines=5
  49. for /l %%i in (1,1,50) do (
  50. cls
  51. echo.
  52. echo.
  53. echo.    ^>^> %%i00 毫秒 / 5000 毫秒
  54. call :Sleep 100
  55. )
  56. color 4e
  57. cls
  58. echo.
  59. echo.
  60. echo.    ^>^> 请按回车键开始输入读数
  61. pause > nul
  62. cls
  63. echo.
  64. echo.
  65. set /p Math=    ^>^> 请输入读数:
  66. call :VisualSet Result 5/%Math%
  67. call :VisualSet Result 100*%Result%
  68. Md Logs >nul 2>nul
  69. echo.%Result% > Logs\Time.ini
  70. color %Color%
  71. cls
  72. echo.
  73. echo.
  74. echo.    ^>^> 请按回车键重启本程序...
  75. pause > nul
  76. @goto :Begin
  77. :VisualSet
  78. @echo off
  79. echo X=%~2>>VisualSet.vbs
  80. echo wscript.echo(X)>>VisualSet.vbs
  81. for /f %%a in ('cscript //nologo VisualSet.vbs') do set %1=%%a
  82. if exist VisualSet.vbs del VisualSet.vbs
  83. goto :eof
  84. :Echo_Debugging
  85. mode con cols=68 lines=34
  86. cls
  87. echo.
  88. echo.  Hope计时器[调试程序]
  89. set /p Str=--------------------------------------------------------------------<nul
  90. echo.
  91. echo.
  92. @goto :eof
  93. :Task
  94. mode con cols=68 lines=34
  95. Md Tasks >nul 2>nul
  96. cls
  97. title Hope计时器[计划程序]
  98. set Error=0
  99. echo.
  100. echo.  Hope计时器[计划程序]
  101. set /p Str=--------------------------------------------------------------------<nul
  102. echo.
  103. echo.
  104. echo.    ^>^> Q 新建计划   W 使用计划   D 删除计划   E 返回菜单   R 退出
  105. if not exist Tasks\*.Htd (
  106. echo.
  107. echo.    ^>^> 当前没有计划
  108. set /p Str=--------------------------------------------------------------------<nul
  109. echo.
  110. echo.
  111. )
  112. if not exist Tasks\Htd.Hdat echo.10000 > Tasks\Htd.Hdat
  113. if exist Tasks\*.Htd (
  114. cd Tasks
  115. echo.
  116. echo.    ^>^> 当前计划列表
  117. set /p Str=--------------------------------------------------------------------<nul
  118. echo.
  119. echo.
  120. for /f %%i in ('dir /b *.Htd') do (
  121. for /f "skip=5" %%j in (%%~ni.Htd) do echo.    ^>^> 编号:%%~ni  备注:%%j
  122. )
  123. echo.
  124. cd..
  125. )
  126. )
  127. call :get_key
  128. if /i "!key!"=="E" (
  129. @goto :Main
  130. )
  131. if /i "!key!"=="D" (
  132. @goto :Del
  133. )
  134. if /i "!key!"=="R" (
  135. exit
  136. )
  137. if /i "!key!"=="Q" (
  138. @goto :New
  139. )
  140. if /i "!key!"=="W" (
  141. @goto :Open
  142. )
  143. if /i "!valid_key!" equ "0" @goto :Task
  144. :Open
  145. if exist Tasks\*.Htd (
  146. set "Content= "
  147. set /p Content=    ^>^> 请输入计划编号:
  148. goto Open_2
  149. ) else cd..&@goto :Task
  150. :Del
  151. if exist Tasks\*.Htd (
  152. set "Content= "
  153. set /p Content=    ^>^> 请输入计划编号:
  154. goto Del_2
  155. ) else cd..&@goto :Task
  156. :Del_2
  157. cd Tasks
  158. if exist %Content%.Htd (
  159. del %Content%.Htd
  160. cd..
  161. goto Task
  162. ) else cd..&goto Task
  163. :Open_2
  164. cd Tasks
  165. if exist %Content%.Htd (
  166. call :Read %Content%
  167. cd..
  168. mode con cols=68 lines=5
  169. @goto :Start
  170. ) else cd..&goto Task
  171. :New
  172. cd Tasks
  173. < Htd.Hdat (
  174. set /p Num=
  175. )
  176. set /a Num+=1
  177. echo.%Num% > Htd.Hdat
  178. cd..
  179. echo.
  180. echo.    ^>^> 新建计划:%Num%
  181. echo.
  182. set "Content=时间到!!!"
  183. set /p Content=    ^>^> 备注:
  184. echo.
  185. set "Content=%Content:>=^>%"
  186. set "Content=%Content:<=^<%"
  187. set "Content=%Content:|=^|%"
  188. set "Title= "
  189. set /p Title=    ^>^> 到时提醒:
  190. echo.
  191. set "Title=%Title:>=^^^>%"
  192. set "Title=%Title:<=^^^<%"
  193. set "Title=%Title:|=^^^|%"
  194. set H=0
  195. set Min=0
  196. set S=0
  197. set H_2=0
  198. set Min_2=0
  199. set S_2=0
  200. set Ms=0
  201. set Ms_2=0
  202. call :Vbs_Sleep 1000
  203. @goto :New_2
  204. :Read
  205. < %1.Htd (
  206. set /p H=
  207. set /p Min=
  208. set /p S=
  209. set /p Ms_2=
  210. set /p Title=
  211. set /p Content=
  212. )
  213. @goto :eof
  214. :New_2
  215. cls
  216. echo.
  217. echo.    ^>^> 当前计时时间:%H%小时%Min%分钟%S%秒
  218. echo.
  219. echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U 完成计划
  220. echo.
  221. call :get_key
  222. call :Settings_Time
  223. if /i "!key!"=="U" (
  224. (
  225. echo.%H%
  226. echo.%Min%
  227. echo.%S%
  228. echo.%Ms_2%
  229. echo.%Title%
  230. echo.%Content%
  231. ) > Tasks\%Num%.Htd
  232. @goto :Task
  233. )
  234. if /i "!valid_key!" equ "0" @goto :New_2
  235. :Error
  236. color 1f
  237. cls
  238. echo.
  239. echo.    ^>^> Sleep.exe 和 Sleep.com 不知到何处去了...
  240. echo.
  241. echo.    ^>^> 正在帮您恢复
  242. call :Sleep_Installs
  243. goto :Restart
  244. :Start
  245. set Error=0
  246. cls
  247. title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
  248. echo.
  249. echo.    ^>^> %H_2%小时%Min_2%分钟%S_2%秒%Ms%毫秒/%H%小时%Min%分钟%S%秒
  250. echo.
  251. echo.    ^>^> Ctrl+C暂停或退出...
  252. call :Sleep %Time%
  253. if %Error%==1 goto :Error
  254. set /a Ms+=100
  255. if %Ms%==1000 set /a S_2+=1&set Ms=0
  256. if %S_2% Geq 60 set /a Min_2+=1&set S_2=0
  257. if %Min_2% Geq 60 set /a H_2+=1&set Min_2=0
  258. if %H_2% Geq %H% if %Min_2% Geq %Min% if %S_2% Geq %S% goto :End
  259. if /i "!valid_key!" equ "0" goto :Start
  260. :End
  261. cls
  262. color 4e
  263. title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]
  264. Call :Msg "%Title%" vbExclamation "Hope计时器"
  265. color %Color%
  266. @call :Restart
  267. @goto :Main
  268. :Vbs_Sleep
  269. echo.Wscript.Sleep %1 > Sleep.vbs
  270. call Sleep.vbs > nul
  271. if exist ReturnKey.vbs del ReturnKey.vbs
  272. @goto :eof
  273. :Sleep_Installs
  274. (
  275. echo.-----BEGIN CERTIFICATE-----
  276. echo.TVpQAQEAAAAEAAAA//8AAFABAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  277. echo.AAAAAAAAAAAAAAAAkAAAAPy+gQAPtkz/ZjHSZjHASXggrCwwchQ8CXcQZmvSCmYB
  278. echo.wi7HBi8AMQDr5C7/Ji8ADgBmadLoAwAAZonRZsHpELSGzRW4AEzNIQAAAAAAAAAA
  279. echo.UEUAAEwBAQBQeaU2AAAAAAAAAADgAA8BCwEFDAACAAAAAAAAAAAAAH4QAAAAEAAA
  280. echo.ACAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAIAAAAAIAAAAAAAADAAAA
  281. echo.AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAQEAAAKAAAAAAAAAAAAAAA
  282. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  283. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAAAAAAAAAAAAAAAAA
  284. echo.AAAAAAAAAAAudGV4dAAAANwAAAAAEAAAAAIAAAACAAAAAAAAAAAAAAAAAAAgAADg
  285. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  286. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWEAAAZBAAAHYQAAAAAAAA
  287. echo.RhAAAAAAAAAAAAAAOBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtFUk5FTDMy
  288. echo.LmRsbAAAVhAAAGQQAAB2EAAAAAAAAAAARXhpdFByb2Nlc3MAAABHZXRDb21tYW5k
  289. echo.TGluZUEAAABTbGVlcAD/FQQQQAAx0khAgDgAdBGAOCJ1AvfSCdJ174A4IHXqQPyJ
  290. echo.xjHSMcCsCMB0IywwchU8CXcRa9IKAcLHBckQQADNEEAA6+L/JckQQAClEEAAUv8V
  291. echo.CBBAAGoA/xUAEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  292. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  293. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  294. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  295. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  296. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
  297. echo.AAAAAAAAAAAAAAAAAAAAAA==
  298. echo.-----END CERTIFICATE-----
  299. ) > Sleep.com
  300. Certutil -Decode Sleep.com Sleep.exe > nul
  301. Certutil -Decode -f Sleep.com Sleep.com > nul
  302. goto :eof
  303. :Sleep
  304. set Error=0
  305. if exist Sleep.exe (
  306. Sleep.exe %1
  307. goto :eof
  308. )
  309. if not exist Sleep.exe if exist Sleep.com (
  310. Sleep.com %1
  311. goto :eof
  312. )
  313. if not exist Sleep.exe if not exist Sleep.com (
  314. set Error=1
  315. goto :eof
  316. )
  317. :get_key
  318. rem 用法:call :get_key
  319. set "key="
  320.   for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if not defined key set "key=%%a"
  321.   set "key=%key:~-1%"
  322.   set "valid_key=0"
  323. goto :eof
  324. :Msg
  325. Rem 用法: Call :Msg "Text" [buttons] "Title"
  326. echo.Msg=msgbox("%~1",%2,"%~3") > ReturnKey.vbs
  327. Call ReturnKey.vbs > nul
  328. if exist ReturnKey.vbs del ReturnKey.vbs
  329. goto :eof
  330. :Settings_Time
  331. if %Ms_2% Leq 200000000 if %H% geq 0 if %Min% Geq 0 if %S% Geq 0 (
  332. if /i "!key!"=="q" (
  333. set /a Ms_2+=3600000
  334. set /a H+=1
  335. )
  336. if /i "!key!"=="w" (
  337. set /a Ms_2-=3600000
  338. set /a H-=1
  339. )
  340. if /i "!key!"=="e" (
  341. set /a Ms_2+=60000
  342. set /a Min+=1
  343. )
  344. if /i "!key!"=="r" (
  345. set /a Ms_2-=60000
  346. set /a Min-=1
  347. )
  348. if /i "!key!"=="t" (
  349. set /a Ms_2+=1000
  350. set /a S+=1
  351. )
  352. if /i "!key!"=="y" (
  353. set /a Ms_2-=1000
  354. set /a S-=1
  355. )
  356. )
  357. if %S% Lss 0 (
  358. if %Min% Geq 0 if %H% Geq 0 (
  359. set /a Min-=1&set /a S+=60
  360. )
  361. if %Min% Leq 0 if %H% Leq 0 (
  362. echo.
  363. echo.    ^>^> 算数错误!
  364. call :Vbs_Sleep 100
  365. @call :Restart
  366. )
  367. )
  368. if %Min% Lss 0 (
  369. if %H% Gtr 0 set /a H-=1&set /a Min+=60
  370. if %H% Leq 0 (
  371. echo.
  372. echo.    ^>^> 算数错误!
  373. call :Vbs_Sleep 100
  374. @call :Restart
  375. )
  376. )
  377. if %H% Lss 0 (
  378. echo.
  379. echo.    ^>^> 算数错误!
  380. call :Vbs_Sleep 100
  381. @call :Restart
  382. )
  383. if %Ms_2% Gtr 200000000 (
  384. echo.
  385. echo.    ^>^> 算数错误!
  386. call :Vbs_Sleep 100
  387. @call :Restart
  388. )
  389. if %S% Geq 60 set /a Min+=1&set S=0
  390. if %Min% Geq 60 set /a H+=1&set Min=0
复制代码
梦依旧在,只是,心有余而力渐有不足
年年岁岁花相似,岁岁年年人不同

TOP

1.0.0029 更改开始动画上半部分
  1. @echo off&goto :Begin
  2. ; Hope Timer [Version 1.0.0024]
  3. ; (C) Copyright 2020-2021 Hope Corp.
  4. ; (C) Copyright 2021-2021 Hope2021&Cmd1152 Corp.
  5. :Begin
  6. md Logs >nul 2>nul
  7. mode con cols=68 lines=5
  8. color f9
  9. endlocal
  10. setlocal enabledelayedexpansion
  11. chcp 936 > nul
  12. Rem By Hope2021
  13. title Hope计时器
  14. cls
  15. echo.
  16. echo.
  17. echo.                                HOPE
  18. echo.
  19. call :Sleep_Installs
  20. if not exist Logs\Time.ini set Time=100
  21. if not exist Logs\Timer.ini set Timer=128
  22. if not exist Logs\Color.ini set Color=0f
  23. if exist Logs\Time.ini (
  24. cd Logs
  25. < Time.ini (
  26. set /p Time=
  27. )
  28. cd..
  29. )
  30. if exist Logs\Timer.ini (
  31. cd Logs
  32. < Timer.ini (
  33. set /p Timer=
  34. )
  35. cd..
  36. )
  37. if exist Logs\Color.ini (
  38. cd Logs
  39. < Color.ini (
  40. set /p Color=
  41. )
  42. cd..
  43. )
  44. cls
  45. echo.
  46. echo.                             ----------
  47. echo.                             ---HOPE---
  48. echo.                             ----------
  49. ping/n 1 127.1>nul
  50. cls
  51. echo.
  52. echo.                              ---------
  53. echo.                              --HOPE---
  54. echo.                             ----Li----
  55. ping/n 1 127.1>nul
  56. cls
  57. echo.
  58. echo.                               --------
  59. echo.                               -HOPE---
  60. echo.                             --- Lif---
  61. ping/n 1 127.1>nul
  62. cls
  63. echo.
  64. echo.                                -------
  65. echo.                                HOPE---
  66. echo.                             --r Life--
  67. ping/n 1 127.1>nul
  68. cls
  69. echo.
  70. echo.                                H------
  71. echo.                                -OPE---
  72. echo.                             -ur Life -
  73. ping/n 1 127.1>nul
  74. cls
  75. echo.
  76. echo.                                HO-----
  77. echo.                                 -PE---
  78. echo.                             our Life E
  79. ping/n 1 127.1>nul
  80. cls
  81. echo.
  82. echo.                                HOP----
  83. echo.                                  -E---
  84. echo.                            Your Life Ea
  85. ping/n 1 127.1>nul
  86. cls
  87. echo.
  88. echo.                                HOPE---
  89. echo.                                   ----
  90. echo.                            Your Life Eas
  91. ping/n 1 127.1>nul
  92. cls
  93. echo.
  94. echo.                                HOPE --
  95. echo.                                    ---
  96. echo.                          e Your Life Easi
  97. ping/n 1 127.1>nul
  98. cls
  99. echo.
  100. echo.                                HOPE  -
  101. echo.                                     --
  102. echo.                         ke Your Life Easie
  103. ping/n 1 127.1>nul
  104. cls
  105. echo.
  106. echo.                                HOPE
  107. echo.                                      -
  108. echo.                        ake Your Life Easier
  109. ping/n 1 127.1>nul
  110. cls
  111. echo.
  112. echo.                                HOPE
  113. echo.
  114. echo.                       Make Your Life Easier.
  115. ping/n 3 127.1>nul
  116. call :Vbs_Sleep 1000
  117. call :Sleep_Installs
  118. @call :Restart
  119. @goto :Main
  120. :Blank
  121. call :Type "# "
  122. @goto :eof
  123. :Type
  124. set /p Str=%~1<nul
  125. for /l %%a in (1,1,%Timer%) do set ReturnKey=0
  126. @goto :eof
  127. :Restart
  128. color %Color%
  129. cls
  130. set H=0
  131. set Min=0
  132. set S=0
  133. set H_2=0
  134. set Min_2=0
  135. set S_2=0
  136. set Ms=0
  137. set Ms_2=0
  138. @goto :eof
  139. :Main
  140. mode con cols=68 lines=9
  141. title Hope计时器
  142. set Error=0
  143. cls
  144. echo.
  145. echo.    ^>^> 当前计时时间:%H%小时%Min%分钟%S%秒
  146. echo.
  147. echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U/I 开始计时/退出
  148. echo.
  149. echo.  P 打开计划程序  S 删除计划存储  X 调试        F 恢复到调试前
  150. echo.
  151. echo.  Z 风格          D 初始化
  152. call :get_key
  153. call :Settings_Time
  154. if /i "!key!"=="p" (
  155. set St_1=10001
  156. set En_1=10010
  157. @goto :Task
  158. )
  159. if /i "!key!"=="u" (
  160. mode con cols=68 lines=5
  161. set "Title=时间到!!!"
  162. @goto :Start
  163. )
  164. if /i "!key!"=="z" (
  165. mode con cols=68 lines=34
  166. @goto :Themes
  167. )
  168. if /i "!key!"=="x" (
  169. mode con cols=68 lines=34
  170. @goto :Debugging
  171. )
  172. if /i "!key!"=="f" (
  173. rd /s /q Logs >nul 2>nul
  174. )
  175. if /i "!key!"=="s" (
  176. rd /s /q Tasks >nul 2>nul
  177. )
  178. if /i "!key!"=="d" (
  179. del sleep.com sleep.exe sleep.vbs
  180. rd /s /q Tasks >nul 2>nul
  181. rd /s /q Logs >nul 2>nul
  182. mode con cols=68 lines=5
  183. cls
  184. echo.
  185. echo.
  186. echo.    ^>^> 请按回车键重启本程序...
  187. pause>nul
  188. start %~0
  189. exit
  190. )
  191. if /i "!key!"=="i" (
  192. del sleep.com sleep.exe sleep.vbs
  193. exit
  194. )
  195. if /i "!valid_key!" equ "0" goto :Main
  196. :Themes
  197. cd logs
  198. echo.%Color% > Color.ini
  199. echo.%Timer% > Timer.ini
  200. cd..
  201. cls
  202. color %Color%
  203. echo.
  204. echo.  Hope计时器[风格]
  205. set /p Str=--------------------------------------------------------------------<nul
  206. echo.
  207. echo.
  208. echo.  ^>^>^>^> 颜色
  209. set /p Str=--------------------------------------------------------------------<nul
  210. echo.
  211. echo.                                        ^|
  212. echo.    A 经典   B 标准   C 激情   D 复古   ^|  Hope.
  213. echo.                                        ^|
  214. echo.    E 大理岩 F 未来   G 蓝色   H 紫色   ^|  Make Your Life Easier.
  215. echo.                                        ^|
  216. echo.  ^>^>^>^> 开始动画速度
  217. set /p Str=--------------------------------------------------------------------<nul
  218. echo.
  219. echo.                                        ^|why join the navy,
  220. echo.    J 正常   K 快速   L 慢速            ^|if you can be a pirate?
  221. echo.                                        ^|           - Steve Jobs
  222. echo.                                        ^|
  223. echo.  ^>^>^>^> 操作
  224. set /p Str=--------------------------------------------------------------------<nul
  225. echo.
  226. echo.                                        ^|
  227. echo.    M 返回   N 还原默认                 ^|
  228. call :get_key
  229. if /i "!key!"=="a" (
  230. set Color=3f
  231. )
  232. if /i "!key!"=="b" (
  233. set Color=0f
  234. )
  235. if /i "!key!"=="c" (
  236. set Color=4e
  237. )
  238. if /i "!key!"=="d" (
  239. set Color=8f
  240. )
  241. if /i "!key!"=="e" (
  242. set Color=f8
  243. )
  244. if /i "!key!"=="f" (
  245. set Color=0a
  246. )
  247. if /i "!key!"=="g" (
  248. set Color=b1
  249. )
  250. if /i "!key!"=="h" (
  251. set Color=5f
  252. )
  253. if /i "!key!"=="j" (
  254. set Timer=128
  255. )
  256. if /i "!key!"=="k" (
  257. set Timer=32
  258. )
  259. if /i "!key!"=="l" (
  260. set Timer=512
  261. )
  262. if /i "!key!"=="m" (
  263. goto Main
  264. )
  265. if /i "!key!"=="n" (
  266. cd Logs
  267. del Timer.ini
  268. del Color.ini
  269. cd..
  270. set Timer=128
  271. set Color=0f
  272. )
  273. if /i "!valid_key!" equ "0" goto :Themes
  274. :Rem_Themes
  275. ; A 3F
  276. ; B 0F
  277. ; C 4E
  278. ; D 8F
  279. ; E F8
  280. ; F 0A
  281. ; G B1
  282. ; H 5F
  283. @goto :eof
复制代码
梦依旧在,只是,心有余而力渐有不足
年年岁岁花相似,岁岁年年人不同

TOP

回复 94# HOPE2021


    这两个版本不是一模一样吗?
梦依旧在,只是,心有余而力渐有不足
年年岁岁花相似,岁岁年年人不同

TOP

回复 92# 路过


    ???第三方用VB写一个就好
梦依旧在,只是,心有余而力渐有不足
年年岁岁花相似,岁岁年年人不同

TOP

返回列表