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

Rank: 4

帖子
357 
积分
477 
技术
34  
捐助
0  
注册时间
2021-8-8 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2021-8-11 20:45 | 只看该作者

[日期时间] [更新永无止境]Hope计时器

本帖最后由 HOPE2021 于 2021-8-21 15:02 编辑

更新日志
--------------------------------------------------------------------------------------------------
详见117楼

紧急通知
--------------------------------------------------------------------------------------------------
版本 1.0.0004出现重大Bug，请立即暂停使用！
请一定要检查您的电脑配置是否高，否则程序速度将会极慢！
版本 1.0.0009出现重大Bug，请立即暂停使用！
版本 1.0.0010出现重大Bug，请立即暂停使用！
版本 1.0.0011出现重大Bug，请立即暂停使用！
版本 1.0.0013出现重大Bug，请立即暂停使用！

源码[版本 1.0.0001][有冗余，请指正]：
  1. @echo off

  2. endlocal

  3. setlocal enabledelayedexpansion

  4. chcp 936 > nul

  5. Rem By Hope2021

  6. title Hope计时器

  7. mode con cols=68 lines=5

  8. cls

  9. echo.

  10. echo.

  11. echo.                                HOPE

  12. color 0f

  13. call :Vbs_Sleep 1000

  14. call :Sleep_Installs

  15. @goto :Restart

  16. 

  17. :Restart

  18. title Hope计时器

  19. cls

  20. set H=0

  21. set Min=0

  22. set S=0

  23. set Ms=0

  24. set Ms_2=0

  25. @goto :Main

  26. 

  27. :Main

  28. title Hope计时器

  29. set Error=0

  30. cls

  31. echo.

  32. echo.    ^>^>当前计时时间：%H%小时%Min%分钟%S%秒

  33. echo.

  34. echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U/I 开始计时//退出

  35. call :get_key

  36. if %Ms_2% Leq 200000000 if %H% geq 0 if %Min% Geq 0 if %S% Geq 0 (

  37. if /i "!key!"=="q" (

  38. set /a Ms_2+=3600000

  39. set /a H+=1

  40. )

  41. if /i "!key!"=="w" (

  42. set /a Ms_2-=3600000

  43. set /a H-=1

  44. )

  45. if /i "!key!"=="e" (

  46. set /a Ms_2+=60000

  47. set /a Min+=1

  48. )

  49. if /i "!key!"=="r" (

  50. set /a Ms_2-=60000

  51. set /a Min-=1

  52. )

  53. if /i "!key!"=="t" (

  54. set /a Ms_2+=1000

  55. set /a S+=1

  56. )

  57. if /i "!key!"=="y" (

  58. set /a Ms_2-=1000

  59. set /a S-=1

  60. )

  61. if /i "!key!"=="i" (

  62. exit

  63. )

  64. if /i "!key!"=="u" (

  65. @goto :Start

  66. )

  67. )

  68. for %%i in (%H% %Min% %S%) do (

  69. if %%i Lss 0 (

  70. echo.

  71. echo.    ^>^> 算数错误！

  72. set H=0

  73. set Min=0

  74. set S=0

  75. set Ms=0

  76. set Ms_2=0

  77. call :Vbs_Sleep 100

  78. )

  79. )

  80. if %Ms_2% Gtr 200000000 (

  81. echo.

  82. echo.    ^>^> 算数错误！

  83. set H=0

  84. set Min=0

  85. set S=0

  86. set Ms=0

  87. set Ms_2=0

  88. call :Vbs_Sleep 100

  89. )

  90. if /i "!valid_key!" equ "0" goto :Main

  91. 

  92. :Error

  93. color 1f

  94. cls

  95. echo.

  96. echo.    ^>^> Sleep.exe 和 Sleep.com 不知到何处去了...

  97. echo.

  98. echo.    ^>^> 正在帮您恢复

  99. call :Sleep_Installs

  100. goto :Restart

  101. 

  102. :Start

  103. set Error=0

  104. cls

  105. if %ms%==10 set /a ms=0

  106. title 计时器[%Ms%/%Ms_2%毫秒]

  107. echo.

  108. echo.    ^>^> %Ms%/%Ms_2%毫秒

  109. echo.

  110. echo.    ^>^> Ctrl+C暂停或退出...

  111. call :Sleep 100

  112. if %Error%==1 goto :Error

  113. set /a Ms+=100

  114. title 计时器[%Ms%/%Ms_2%毫秒]

  115. if %Ms% lss %Ms_2% goto Start

  116. if %Ms% Geq %Ms_2% goto End

  117. 

  118. :End

  119. cls

  120. color 4e

  121. title Hope计时器 [%Ms%/%Ms_2%毫秒]

  122. Call :Msg "时间到" vbExclamation "Hope计时器"

  123. color 0f

  124. @goto :Restart

  125. 

  126. :Vbs_Sleep

  127. echo.Wscript.Sleep %1 > Sleep.vbs

  128. call Sleep.vbs > nul

  129. if exist ReturnKey.vbs del ReturnKey.vbs

  130. @goto :eof

  131. 

  132. :Sleep_Installs

  133. mode con cols=68 lines=5

  134. color 0f

  135. (

  136. echo.-----BEGIN CERTIFICATE-----

  137. echo.TVpQAQEAAAAEAAAA//8AAFABAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  138. echo.AAAAAAAAAAAAAAAAkAAAAPy+gQAPtkz/ZjHSZjHASXggrCwwchQ8CXcQZmvSCmYB

  139. echo.wi7HBi8AMQDr5C7/Ji8ADgBmadLoAwAAZonRZsHpELSGzRW4AEzNIQAAAAAAAAAA

  140. echo.UEUAAEwBAQBQeaU2AAAAAAAAAADgAA8BCwEFDAACAAAAAAAAAAAAAH4QAAAAEAAA

  141. echo.ACAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAIAAAAAIAAAAAAAADAAAA

  142. echo.AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAQEAAAKAAAAAAAAAAAAAAA

  143. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  144. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAAAAAAAAAAAAAAAAA

  145. echo.AAAAAAAAAAAudGV4dAAAANwAAAAAEAAAAAIAAAACAAAAAAAAAAAAAAAAAAAgAADg

  146. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  147. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWEAAAZBAAAHYQAAAAAAAA

  148. echo.RhAAAAAAAAAAAAAAOBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtFUk5FTDMy

  149. echo.LmRsbAAAVhAAAGQQAAB2EAAAAAAAAAAARXhpdFByb2Nlc3MAAABHZXRDb21tYW5k

  150. echo.TGluZUEAAABTbGVlcAD/FQQQQAAx0khAgDgAdBGAOCJ1AvfSCdJ174A4IHXqQPyJ

  151. echo.xjHSMcCsCMB0IywwchU8CXcRa9IKAcLHBckQQADNEEAA6+L/JckQQAClEEAAUv8V

  152. echo.CBBAAGoA/xUAEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  153. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  154. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  155. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  156. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  157. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  158. echo.AAAAAAAAAAAAAAAAAAAAAA==

  159. echo.-----END CERTIFICATE-----

  160. ) > Sleep.com

  161. Certutil -Decode Sleep.com Sleep.exe > nul

  162. Certutil -Decode -f Sleep.com Sleep.com > nul

  163. goto :eof

  164. 

  165. :Sleep

  166. set Error=0

  167. if exist Sleep.exe (

  168. Sleep.exe %1

  169. goto :eof

  170. )

  171. if not exist Sleep.exe if exist Sleep.com (

  172. Sleep.com %1

  173. goto :eof

  174. )

  175. if not exist Sleep.exe if not exist Sleep.com (

  176. set Error=1

  177. goto :eof

  178. )

  179. 

  180. :get_key

  181. rem 用法：call :get_key

  182. set "key="

  183.   for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if not defined key set "key=%%a"

  184.   set "key=%key:~-1%"

  185.   set "valid_key=0"

  186. goto :eof

  187. 

  188. :Msg

  189. Rem 用法： Call :Msg "Text" [buttons] "Title"

  190. echo.Msg=msgbox("%~1",%2,"%~3") > ReturnKey.vbs

  191. Call ReturnKey.vbs > nul

  192. if exist ReturnKey.vbs del ReturnKey.vbs

  193. goto :eof
复制代码
收藏 分享

HOPE2021

Rank: 4

帖子
357 
积分
477 
技术
34  
捐助
0  
注册时间
2021-8-8 
2楼
发表于 2021-8-12 08:42 | 只看该作者
本帖最后由 HOPE2021 于 2021-8-12 08:43 编辑

版本1.0.0002
  1. @echo off

  2. endlocal

  3. setlocal enabledelayedexpansion

  4. chcp 936 > nul

  5. Rem By Hope2021

  6. title Hope计时器

  7. mode con cols=68 lines=5

  8. cls

  9. echo.

  10. echo.

  11. echo.                                HOPE

  12. color 0f

  13. call :Vbs_Sleep 1000

  14. call :Sleep_Installs

  15. @goto :Restart

  16. 

  17. :Restart

  18. title Hope计时器

  19. cls

  20. set H=0

  21. set Min=0

  22. set S=0

  23. set Ms=0

  24. set Ms_2=0

  25. @goto :Main

  26. 

  27. :Main

  28. title Hope计时器

  29. set Error=0

  30. cls

  31. echo.

  32. echo.    ^>^>当前计时时间：%H%小时%Min%分钟%S%秒

  33. echo.

  34. echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U/I 开始计时//退出

  35. call :get_key

  36. if %Ms_2% Leq 200000000 if %H% geq 0 if %Min% Geq 0 if %S% Geq 0 (

  37. if /i "!key!"=="q" (

  38. set /a Ms_2+=3600000

  39. set /a H+=1

  40. )

  41. if /i "!key!"=="w" (

  42. set /a Ms_2-=3600000

  43. set /a H-=1

  44. )

  45. if /i "!key!"=="e" (

  46. set /a Ms_2+=60000

  47. set /a Min+=1

  48. )

  49. if /i "!key!"=="r" (

  50. set /a Ms_2-=60000

  51. set /a Min-=1

  52. )

  53. if /i "!key!"=="t" (

  54. set /a Ms_2+=1000

  55. set /a S+=1

  56. )

  57. if /i "!key!"=="y" (

  58. set /a Ms_2-=1000

  59. set /a S-=1

  60. )

  61. if /i "!key!"=="i" (

  62. exit

  63. )

  64. if /i "!key!"=="u" (

  65. @goto :Start

  66. )

  67. )

  68. if %S% Geq 60 set /a Min+=1&set S=0

  69. if %Min% Geq 60 set /a H+=1&set Min=0

  70. for %%i in (%H% %Min% %S%) do (

  71. if %%i Lss 0 (

  72. echo.

  73. echo.    ^>^> 算数错误！

  74. set H=0

  75. set Min=0

  76. set S=0

  77. set Ms=0

  78. set Ms_2=0

  79. call :Vbs_Sleep 100

  80. )

  81. )

  82. if %Ms_2% Gtr 200000000 (

  83. echo.

  84. echo.    ^>^> 算数错误！

  85. set H=0

  86. set Min=0

  87. set S=0

  88. set Ms=0

  89. set Ms_2=0

  90. call :Vbs_Sleep 100

  91. )

  92. if /i "!valid_key!" equ "0" goto :Main

  93. 

  94. :Error

  95. color 1f

  96. cls

  97. echo.

  98. echo.    ^>^> Sleep.exe 和 Sleep.com 不知到何处去了...

  99. echo.

  100. echo.    ^>^> 正在帮您恢复

  101. call :Sleep_Installs

  102. goto :Restart

  103. 

  104. :Start

  105. set Error=0

  106. cls

  107. if %ms%==10 set /a ms=0

  108. title 计时器[%Ms%/%Ms_2%毫秒]

  109. echo.

  110. echo.    ^>^> %Ms%/%Ms_2%毫秒

  111. echo.

  112. echo.    ^>^> Ctrl+C暂停或退出...

  113. call :Sleep 100

  114. if %Error%==1 goto :Error

  115. set /a Ms+=100

  116. title 计时器[%Ms%/%Ms_2%毫秒]

  117. if %Ms% lss %Ms_2% goto Start

  118. if %Ms% Geq %Ms_2% goto End

  119. 

  120. :End

  121. cls

  122. color 4e

  123. title Hope计时器 [%Ms%/%Ms_2%毫秒]

  124. Call :Msg "时间到" vbExclamation "Hope计时器"

  125. color 0f

  126. @goto :Restart

  127. 

  128. :Vbs_Sleep

  129. echo.Wscript.Sleep %1 > Sleep.vbs

  130. call Sleep.vbs > nul

  131. if exist ReturnKey.vbs del ReturnKey.vbs

  132. @goto :eof

  133. 

  134. :Sleep_Installs

  135. mode con cols=68 lines=5

  136. color 0f

  137. (

  138. echo.-----BEGIN CERTIFICATE-----

  139. echo.TVpQAQEAAAAEAAAA//8AAFABAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  140. echo.AAAAAAAAAAAAAAAAkAAAAPy+gQAPtkz/ZjHSZjHASXggrCwwchQ8CXcQZmvSCmYB

  141. echo.wi7HBi8AMQDr5C7/Ji8ADgBmadLoAwAAZonRZsHpELSGzRW4AEzNIQAAAAAAAAAA

  142. echo.UEUAAEwBAQBQeaU2AAAAAAAAAADgAA8BCwEFDAACAAAAAAAAAAAAAH4QAAAAEAAA

  143. echo.ACAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAIAAAAAIAAAAAAAADAAAA

  144. echo.AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAQEAAAKAAAAAAAAAAAAAAA

  145. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  146. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAAAAAAAAAAAAAAAAA

  147. echo.AAAAAAAAAAAudGV4dAAAANwAAAAAEAAAAAIAAAACAAAAAAAAAAAAAAAAAAAgAADg

  148. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  149. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWEAAAZBAAAHYQAAAAAAAA

  150. echo.RhAAAAAAAAAAAAAAOBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtFUk5FTDMy

  151. echo.LmRsbAAAVhAAAGQQAAB2EAAAAAAAAAAARXhpdFByb2Nlc3MAAABHZXRDb21tYW5k

  152. echo.TGluZUEAAABTbGVlcAD/FQQQQAAx0khAgDgAdBGAOCJ1AvfSCdJ174A4IHXqQPyJ

  153. echo.xjHSMcCsCMB0IywwchU8CXcRa9IKAcLHBckQQADNEEAA6+L/JckQQAClEEAAUv8V

  154. echo.CBBAAGoA/xUAEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  155. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  156. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  157. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  158. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  159. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  160. echo.AAAAAAAAAAAAAAAAAAAAAA==

  161. echo.-----END CERTIFICATE-----

  162. ) > Sleep.com

  163. Certutil -Decode Sleep.com Sleep.exe > nul

  164. Certutil -Decode -f Sleep.com Sleep.com > nul

  165. goto :eof

  166. 

  167. :Sleep

  168. set Error=0

  169. if exist Sleep.exe (

  170. Sleep.exe %1

  171. goto :eof

  172. )

  173. if not exist Sleep.exe if exist Sleep.com (

  174. Sleep.com %1

  175. goto :eof

  176. )

  177. if not exist Sleep.exe if not exist Sleep.com (

  178. set Error=1

  179. goto :eof

  180. )

  181. 

  182. :get_key

  183. rem 用法：call :get_key

  184. set "key="

  185.   for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if not defined key set "key=%%a"

  186.   set "key=%key:~-1%"

  187.   set "valid_key=0"

  188. goto :eof

  189. 

  190. :Msg

  191. Rem 用法： Call :Msg "Text" [buttons] "Title"

  192. echo.Msg=msgbox("%~1",%2,"%~3") > ReturnKey.vbs

  193. Call ReturnKey.vbs > nul

  194. if exist ReturnKey.vbs del ReturnKey.vbs

  195. goto :eof
复制代码

TOP

HOPE2021

Rank: 4

帖子
357 
积分
477 
技术
34  
捐助
0  
注册时间
2021-8-8 
3楼
发表于 2021-8-12 09:05 | 只看该作者
版本1.0.0003
  1. @echo off

  2. endlocal

  3. setlocal enabledelayedexpansion

  4. chcp 936 > nul

  5. Rem By Hope2021

  6. title Hope计时器

  7. mode con cols=68 lines=5

  8. cls

  9. echo.

  10. echo.

  11. echo.                                HOPE

  12. color 0f

  13. call :Vbs_Sleep 1000

  14. call :Sleep_Installs

  15. @goto :Restart

  16. 

  17. :Restart

  18. title Hope计时器

  19. cls

  20. set H=0

  21. set Min=0

  22. set S=0

  23. set H_2=0

  24. set Min_2=0

  25. set S_2=0

  26. set Ms=0

  27. set Ms_2=0

  28. @goto :Main

  29. 

  30. :Main

  31. title Hope计时器

  32. set Error=0

  33. cls

  34. echo.

  35. echo.    ^>^>当前计时时间：%H%小时%Min%分钟%S%秒

  36. echo.

  37. echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U/I 开始计时//退出

  38. call :get_key

  39. if %Ms_2% Leq 200000000 if %H% geq 0 if %Min% Geq 0 if %S% Geq 0 (

  40. if /i "!key!"=="q" (

  41. set /a Ms_2+=3600000

  42. set /a H+=1

  43. )

  44. if /i "!key!"=="w" (

  45. set /a Ms_2-=3600000

  46. set /a H-=1

  47. )

  48. if /i "!key!"=="e" (

  49. set /a Ms_2+=60000

  50. set /a Min+=1

  51. )

  52. if /i "!key!"=="r" (

  53. set /a Ms_2-=60000

  54. set /a Min-=1

  55. )

  56. if /i "!key!"=="t" (

  57. set /a Ms_2+=1000

  58. set /a S+=1

  59. )

  60. if /i "!key!"=="y" (

  61. set /a Ms_2-=1000

  62. set /a S-=1

  63. )

  64. if /i "!key!"=="i" (

  65. exit

  66. )

  67. if /i "!key!"=="u" (

  68. @goto :Start

  69. )

  70. )

  71. if %S% Geq 60 set /a Min+=1&set S=0

  72. if %Min% Geq 60 set /a H+=1&set Min=0

  73. for %%i in (%H% %Min% %S%) do (

  74. if %%i Lss 0 (

  75. echo.

  76. echo.    ^>^> 算数错误！

  77. call :Vbs_Sleep 100

  78. @goto :Restart

  79. )

  80. )

  81. if %Ms_2% Gtr 200000000 (

  82. echo.

  83. echo.    ^>^> 算数错误！

  84. call :Vbs_Sleep 100

  85. @goto :Restart

  86. )

  87. if /i "!valid_key!" equ "0" goto :Main

  88. 

  89. :Error

  90. color 1f

  91. cls

  92. echo.

  93. echo.    ^>^> Sleep.exe 和 Sleep.com 不知到何处去了...

  94. echo.

  95. echo.    ^>^> 正在帮您恢复

  96. call :Sleep_Installs

  97. goto :Restart

  98. 

  99. :Start

  100. set Error=0

  101. cls

  102. title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]

  103. echo.

  104. echo.    ^>^> %H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒

  105. echo.

  106. echo.    ^>^> Ctrl+C暂停或退出...

  107. call :Sleep 100

  108. if %Error%==1 goto :Error

  109. set /a Ms+=100

  110. if %Ms%==1000 set /a S_2+=1&set Ms=0

  111. if %S_2% Geq 60 set /a Min_2+=1&set S_2=0

  112. if %Min_2% Geq 60 set /a H_2+=1&set Min_2=0

  113. if %H_2% Geq %H% if %Min_2% Geq %Min% if %S_2% Geq %S% goto :End

  114. if /i "!valid_key!" equ "0" goto :Start

  115. 

  116. :End

  117. cls

  118. color 4e

  119. title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]

  120. Call :Msg "时间到" vbExclamation "Hope计时器"

  121. color 0f

  122. @goto :Restart

  123. 

  124. :Vbs_Sleep

  125. echo.Wscript.Sleep %1 > Sleep.vbs

  126. call Sleep.vbs > nul

  127. if exist ReturnKey.vbs del ReturnKey.vbs

  128. @goto :eof

  129. 

  130. :Sleep_Installs

  131. mode con cols=68 lines=5

  132. color 0f

  133. (

  134. echo.-----BEGIN CERTIFICATE-----

  135. echo.TVpQAQEAAAAEAAAA//8AAFABAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  136. echo.AAAAAAAAAAAAAAAAkAAAAPy+gQAPtkz/ZjHSZjHASXggrCwwchQ8CXcQZmvSCmYB

  137. echo.wi7HBi8AMQDr5C7/Ji8ADgBmadLoAwAAZonRZsHpELSGzRW4AEzNIQAAAAAAAAAA

  138. echo.UEUAAEwBAQBQeaU2AAAAAAAAAADgAA8BCwEFDAACAAAAAAAAAAAAAH4QAAAAEAAA

  139. echo.ACAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAIAAAAAIAAAAAAAADAAAA

  140. echo.AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAQEAAAKAAAAAAAAAAAAAAA

  141. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  142. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAAAAAAAAAAAAAAAAA

  143. echo.AAAAAAAAAAAudGV4dAAAANwAAAAAEAAAAAIAAAACAAAAAAAAAAAAAAAAAAAgAADg

  144. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  145. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWEAAAZBAAAHYQAAAAAAAA

  146. echo.RhAAAAAAAAAAAAAAOBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtFUk5FTDMy

  147. echo.LmRsbAAAVhAAAGQQAAB2EAAAAAAAAAAARXhpdFByb2Nlc3MAAABHZXRDb21tYW5k

  148. echo.TGluZUEAAABTbGVlcAD/FQQQQAAx0khAgDgAdBGAOCJ1AvfSCdJ174A4IHXqQPyJ

  149. echo.xjHSMcCsCMB0IywwchU8CXcRa9IKAcLHBckQQADNEEAA6+L/JckQQAClEEAAUv8V

  150. echo.CBBAAGoA/xUAEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  151. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  152. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  153. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  154. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  155. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  156. echo.AAAAAAAAAAAAAAAAAAAAAA==

  157. echo.-----END CERTIFICATE-----

  158. ) > Sleep.com

  159. Certutil -Decode Sleep.com Sleep.exe > nul

  160. Certutil -Decode -f Sleep.com Sleep.com > nul

  161. goto :eof

  162. 

  163. :Sleep

  164. set Error=0

  165. if exist Sleep.exe (

  166. Sleep.exe %1

  167. goto :eof

  168. )

  169. if not exist Sleep.exe if exist Sleep.com (

  170. Sleep.com %1

  171. goto :eof

  172. )

  173. if not exist Sleep.exe if not exist Sleep.com (

  174. set Error=1

  175. goto :eof

  176. )

  177. 

  178. :get_key

  179. rem 用法：call :get_key

  180. set "key="

  181.   for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if not defined key set "key=%%a"

  182.   set "key=%key:~-1%"

  183.   set "valid_key=0"

  184. goto :eof

  185. 

  186. :Msg

  187. Rem 用法： Call :Msg "Text" [buttons] "Title"

  188. echo.Msg=msgbox("%~1",%2,"%~3") > ReturnKey.vbs

  189. Call ReturnKey.vbs > nul

  190. if exist ReturnKey.vbs del ReturnKey.vbs

  191. goto :eof
复制代码

TOP

HOPE2021

Rank: 4

帖子
357 
积分
477 
技术
34  
捐助
0  
注册时间
2021-8-8 
4楼
发表于 2021-8-12 09:28 | 只看该作者
本帖最后由 HOPE2021 于 2021-8-12 10:06 编辑

有重大谬误，请停止使用！
版本1.0.0004[有大量冗余，请指正]
  1. @echo off

  2. endlocal

  3. setlocal enabledelayedexpansion

  4. chcp 936 > nul

  5. Rem By Hope2021

  6. title Hope计时器

  7. mode con cols=68 lines=5

  8. cls

  9. echo.

  10. echo.

  11. echo.                                HOPE

  12. color 0f

  13. call :Vbs_Sleep 1000

  14. call :Sleep_Installs

  15. @goto :Restart

  16. 

  17. :Restart

  18. title Hope计时器

  19. cls

  20. set H=0

  21. set Min=0

  22. set S=0

  23. set H_2=0

  24. set Min_2=0

  25. set S_2=0

  26. set Ms=0

  27. set Ms_2=0

  28. @goto :Main

  29. 

  30. :Main

  31. title Hope计时器

  32. set Error=0

  33. cls

  34. echo.

  35. echo.    ^>^>当前计时时间：%H%小时%Min%分钟%S%秒

  36. echo.

  37. echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U/I 开始计时//退出

  38. call :get_key

  39. if %Ms_2% Leq 200000000 if %H% geq 0 if %Min% Geq 0 if %S% Geq 0 (

  40. if /i "!key!"=="q" (

  41. set /a Ms_2+=3600000

  42. set /a H+=1

  43. )

  44. if /i "!key!"=="w" (

  45. set /a Ms_2-=3600000

  46. set /a H-=1

  47. )

  48. if /i "!key!"=="e" (

  49. set /a Ms_2+=60000

  50. set /a Min+=1

  51. )

  52. if /i "!key!"=="r" (

  53. set /a Ms_2-=60000

  54. set /a Min-=1

  55. )

  56. if /i "!key!"=="t" (

  57. set /a Ms_2+=1000

  58. set /a S+=1

  59. )

  60. if /i "!key!"=="y" (

  61. set /a Ms_2-=1000

  62. set /a S-=1

  63. )

  64. if /i "!key!"=="i" (

  65. exit

  66. )

  67. )

  68. if %S% Lss 0 (

  69. if %Min% Geq 0 if %H% Gtr 0 (

  70. set /a Min-=1&set /a S+=60

  71. )

  72. if %Min% Gtr 0 if %H% Geq 0 (

  73. set /a Min-=1&set /a S+=60

  74. )

  75. if %Min% Gtr 0 if %H% Gtr 0 (

  76. set /a Min-=1&set /a S+=60

  77. )

  78. if %Min% Leq 0 if %H% Leq 0 (

  79. echo.

  80. echo.    ^>^> 算数错误！

  81. call :Vbs_Sleep 100

  82. @goto :Restart

  83. )

  84. )

  85. if %Min% Lss 0 (

  86. if %H% Gtr 0 set /a H-=1&set /a Min+=60

  87. if %H% Leq 0 (

  88. echo.

  89. echo.    ^>^> 算数错误！

  90. call :Vbs_Sleep 100

  91. @goto :Restart

  92. )

  93. )

  94. if %H% Lss 0 (

  95. echo.

  96. echo.    ^>^> 算数错误！

  97. call :Vbs_Sleep 100

  98. @goto :Restart

  99. )

  100. if %Ms_2% Gtr 200000000 (

  101. echo.

  102. echo.    ^>^> 算数错误！

  103. call :Vbs_Sleep 100

  104. @goto :Restart

  105. )

  106. if %S% Geq 60 set /a Min+=1&set S=0

  107. if %Min% Geq 60 set /a H+=1&set Min=0

  108. if /i "!key!"=="u" (

  109. @goto :Start

  110. )

  111. if /i "!valid_key!" equ "0" goto :Main

  112. 

  113. :Error

  114. color 1f

  115. cls

  116. echo.

  117. echo.    ^>^> Sleep.exe 和 Sleep.com 不知到何处去了...

  118. echo.

  119. echo.    ^>^> 正在帮您恢复

  120. call :Sleep_Installs

  121. goto :Restart

  122. 

  123. :Start

  124. set Error=0

  125. cls

  126. title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]

  127. echo.

  128. echo.    ^>^> %H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒

  129. echo.

  130. echo.    ^>^> Ctrl+C暂停或退出...

  131. call :Sleep 100

  132. if %Error%==1 goto :Error

  133. set /a Ms+=100

  134. if %Ms%==1000 set /a S_2+=1&set Ms=0

  135. if %S_2% Geq 60 set /a Min_2+=1&set S_2=0

  136. if %Min_2% Geq 60 set /a H_2+=1&set Min_2=0

  137. if %H_2% Geq %H% if %Min_2% Geq %Min% if %S_2% Geq %S% goto :End

  138. if /i "!valid_key!" equ "0" goto :Start

  139. 

  140. :End

  141. cls

  142. color 4e

  143. title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]

  144. Call :Msg "时间到" vbExclamation "Hope计时器"

  145. color 0f

  146. @goto :Restart

  147. 

  148. :Vbs_Sleep

  149. echo.Wscript.Sleep %1 > Sleep.vbs

  150. call Sleep.vbs > nul

  151. if exist ReturnKey.vbs del ReturnKey.vbs

  152. @goto :eof

  153. 

  154. :Sleep_Installs

  155. mode con cols=68 lines=5

  156. color 0f

  157. (

  158. echo.-----BEGIN CERTIFICATE-----

  159. echo.TVpQAQEAAAAEAAAA//8AAFABAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  160. echo.AAAAAAAAAAAAAAAAkAAAAPy+gQAPtkz/ZjHSZjHASXggrCwwchQ8CXcQZmvSCmYB

  161. echo.wi7HBi8AMQDr5C7/Ji8ADgBmadLoAwAAZonRZsHpELSGzRW4AEzNIQAAAAAAAAAA

  162. echo.UEUAAEwBAQBQeaU2AAAAAAAAAADgAA8BCwEFDAACAAAAAAAAAAAAAH4QAAAAEAAA

  163. echo.ACAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAIAAAAAIAAAAAAAADAAAA

  164. echo.AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAQEAAAKAAAAAAAAAAAAAAA

  165. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  166. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAAAAAAAAAAAAAAAAA

  167. echo.AAAAAAAAAAAudGV4dAAAANwAAAAAEAAAAAIAAAACAAAAAAAAAAAAAAAAAAAgAADg

  168. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  169. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWEAAAZBAAAHYQAAAAAAAA

  170. echo.RhAAAAAAAAAAAAAAOBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtFUk5FTDMy

  171. echo.LmRsbAAAVhAAAGQQAAB2EAAAAAAAAAAARXhpdFByb2Nlc3MAAABHZXRDb21tYW5k

  172. echo.TGluZUEAAABTbGVlcAD/FQQQQAAx0khAgDgAdBGAOCJ1AvfSCdJ174A4IHXqQPyJ

  173. echo.xjHSMcCsCMB0IywwchU8CXcRa9IKAcLHBckQQADNEEAA6+L/JckQQAClEEAAUv8V

  174. echo.CBBAAGoA/xUAEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  175. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  176. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  177. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  178. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  179. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  180. echo.AAAAAAAAAAAAAAAAAAAAAA==

  181. echo.-----END CERTIFICATE-----

  182. ) > Sleep.com

  183. Certutil -Decode Sleep.com Sleep.exe > nul

  184. Certutil -Decode -f Sleep.com Sleep.com > nul

  185. goto :eof

  186. 

  187. :Sleep

  188. set Error=0

  189. if exist Sleep.exe (

  190. Sleep.exe %1

  191. goto :eof

  192. )

  193. if not exist Sleep.exe if exist Sleep.com (

  194. Sleep.com %1

  195. goto :eof

  196. )

  197. if not exist Sleep.exe if not exist Sleep.com (

  198. set Error=1

  199. goto :eof

  200. )

  201. 

  202. :get_key

  203. rem 用法：call :get_key

  204. set "key="

  205.   for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if not defined key set "key=%%a"

  206.   set "key=%key:~-1%"

  207.   set "valid_key=0"

  208. goto :eof

  209. 

  210. :Msg

  211. Rem 用法： Call :Msg "Text" [buttons] "Title"

  212. echo.Msg=msgbox("%~1",%2,"%~3") > ReturnKey.vbs

  213. Call ReturnKey.vbs > nul

  214. if exist ReturnKey.vbs del ReturnKey.vbs

  215. goto :eof
复制代码

TOP

HOPE2021

Rank: 4

帖子
357 
积分
477 
技术
34  
捐助
0  
注册时间
2021-8-8 
5楼
发表于 2021-8-12 09:48 | 只看该作者
此Sleep非彼Sleep

TOP

HOPE2021

Rank: 4

帖子
357 
积分
477 
技术
34  
捐助
0  
注册时间
2021-8-8 
6楼
发表于 2021-8-12 09:49 | 只看该作者
这里使用的Sleep最低延时20Ms

TOP

HOPE2021

Rank: 4

帖子
357 
积分
477 
技术
34  
捐助
0  
注册时间
2021-8-8 
7楼
发表于 2021-8-12 09:52 | 只看该作者
曾经写的一个动画
  1. @echo off

  2. call :Sleep_Installs

  3. set N1=     ■■■    ■■■       ■■■       ■■■■■■■    ■■■■■■■

  4. set N2=       ■        ■       ■      ■       ■         ■     ■          ■

  5. set N3=       ■        ■     ■          ■     ■          ■    ■

  6. set N4=       ■        ■    ■            ■    ■         ■     ■     ■

  7. set N5=       ■■■■■■    ■            ■    ■■■■■■      ■■■■

  8. set N6=       ■        ■    ■            ■    ■                ■     ■

  9. set N7=       ■        ■     ■          ■     ■                ■

  10. set N8=       ■        ■       ■      ■       ■                ■          ■

  11. set N9=     ■■■    ■■■       ■■■       ■■■            ■■■■■■■

  12. Mode Con: Cols=80 Lines=30

  13. Rem Hope Text Art 片头

  14. call :Echo

  15. call :Sleep 20

  16. set "N1=%N1:■=回%"

  17. call :Echo

  18. call :Sleep 20

  19. set "N2=%N2:■=回%"

  20. call :Echo

  21. call :Sleep 20

  22. set "N3=%N3:■=回%"

  23. call :Echo

  24. call :Sleep 20

  25. set "N4=%N4:■=回%"

  26. call :Echo

  27. call :Sleep 20

  28. set "N5=%N5:■=回%"

  29. call :Echo

  30. call :Sleep 20

  31. set "N6=%N6:■=回%"

  32. call :Echo

  33. call :Sleep 20

  34. set "N7=%N7:■=回%"

  35. call :Echo

  36. call :Sleep 20

  37. set "N8=%N8:■=回%"

  38. call :Echo

  39. call :Sleep 20

  40. set "N9=%N9:■=回%"

  41. call :Echo

  42. call :Sleep 20

  43. set "N1=%N1:回=＠%"

  44. call :Echo

  45. call :Sleep 20

  46. set "N2=%N2:回=＠%"

  47. call :Echo

  48. call :Sleep 20

  49. set "N3=%N3:回=＠%"

  50. call :Echo

  51. call :Sleep 20

  52. set "N4=%N4:回=＠%"

  53. call :Echo

  54. call :Sleep 20

  55. set "N5=%N5:回=＠%"

  56. call :Echo

  57. call :Sleep 20

  58. set "N6=%N6:回=＠%"

  59. call :Echo

  60. call :Sleep 20

  61. set "N7=%N7:回=＠%"

  62. call :Echo

  63. call :Sleep 20

  64. set "N8=%N8:回=＠%"

  65. call :Echo

  66. call :Sleep 20

  67. set "N9=%N9:回=＠%"

  68. call :Echo

  69. call :Sleep 20

  70. set "N1=%N1:＠=∷%"

  71. call :Echo

  72. call :Sleep 20

  73. set "N2=%N2:＠=∷%"

  74. call :Echo

  75. call :Sleep 20

  76. set "N3=%N3:＠=∷%"

  77. call :Echo

  78. call :Sleep 20

  79. set "N4=%N4:＠=∷%"

  80. call :Echo

  81. call :Sleep 20

  82. set "N5=%N5:＠=∷%"

  83. call :Echo

  84. call :Sleep 20

  85. set "N6=%N6:＠=∷%"

  86. call :Echo

  87. call :Sleep 20

  88. set "N7=%N7:＠=∷%"

  89. call :Echo

  90. call :Sleep 20

  91. set "N8=%N8:＠=∷%"

  92. call :Echo

  93. call :Sleep 20

  94. set "N9=%N9:＠=∷%"

  95. call :Echo

  96. call :Sleep 20

  97. set "N1=%N1:∷=□%"

  98. call :Echo

  99. call :Sleep 20

  100. set "N2=%N2:∷=□%"

  101. call :Echo

  102. call :Sleep 20

  103. set "N3=%N3:∷=□%"

  104. call :Echo

  105. call :Sleep 20

  106. set "N4=%N4:∷=□%"

  107. call :Echo

  108. call :Sleep 20

  109. set "N5=%N5:∷=□%"

  110. call :Echo

  111. call :Sleep 20

  112. set "N6=%N6:∷=□%"

  113. call :Echo

  114. call :Sleep 20

  115. set "N7=%N7:∷=□%"

  116. call :Echo

  117. call :Sleep 20

  118. set "N8=%N8:∷=□%"

  119. call :Echo

  120. call :Sleep 20

  121. set "N9=%N9:∷=□%"

  122. call :Echo

  123. call :Sleep 20

  124. set "N1=%N1:□=_/%"

  125. call :Echo

  126. call :Sleep 20

  127. set "N2=%N2:□=_/%"

  128. call :Echo

  129. call :Sleep 20

  130. set "N3=%N3:□=_/%"

  131. call :Echo

  132. call :Sleep 20

  133. set "N4=%N4:□=_/%"

  134. call :Echo

  135. call :Sleep 20

  136. set "N5=%N5:□=_/%"

  137. call :Echo

  138. call :Sleep 20

  139. set "N6=%N6:□=_/%"

  140. call :Echo

  141. call :Sleep 20

  142. set "N7=%N7:□=_/%"

  143. call :Echo

  144. call :Sleep 20

  145. set "N8=%N8:□=_/%"

  146. call :Echo

  147. call :Sleep 20

  148. set "N9=%N9:□=_/%"

  149. call :Echo

  150. call :Sleep 20

  151. set "N1=%N1:_/=  %"

  152. call :Echo

  153. call :Sleep 20

  154. set "N2=%N2:_/=  %"

  155. call :Echo

  156. call :Sleep 20

  157. set "N3=%N3:_/=  %"

  158. call :Echo

  159. call :Sleep 20

  160. set "N4=%N4:_/=  %"

  161. call :Echo

  162. call :Sleep 20

  163. set "N5=%N5:_/=  %"

  164. call :Echo

  165. call :Sleep 20

  166. set "N6=%N6:_/=  %"

  167. call :Echo

  168. call :Sleep 20

  169. set "N7=%N7:_/=  %"

  170. call :Echo

  171. call :Sleep 20

  172. set "N8=%N8:_/=  %"

  173. call :Echo

  174. call :Sleep 20

  175. set "N9=%N9:_/=  %"

  176. call :Echo_2

  177. call :Sleep 20

  178. pause>nul

  179. 

  180. :Echo

  181. color 1f

  182. Mode Con: Cols=80 Lines=30

  183. cls

  184. for /l %%i in (1,1,8) do echo.

  185. echo.%N1%

  186. echo.%N2%

  187. echo.%N3%

  188. echo.%N4%

  189. echo.%N5%

  190. echo.%N6%

  191. echo.%N7%

  192. echo.%N8%

  193. echo.%N9%

  194. for /l %%i in (1,1,5) do echo.

  195. echo.                                      HOPE

  196. goto :eof

  197. 

  198. :Echo_2

  199. color 1f

  200. Mode Con: Cols=80 Lines=30

  201. cls

  202. for /l %%i in (1,1,8) do echo.

  203. echo.%N1%

  204. echo.%N2%

  205. echo.%N3%

  206. echo.%N4%

  207. echo.%N5%

  208. echo.%N6%

  209. echo.%N7%

  210. echo.%N8%

  211. echo.%N9%

  212. goto :eof

  213. 

  214. :Sleep_Installs

  215. (

  216. echo.-----BEGIN CERTIFICATE-----

  217. echo.TVpQAQEAAAAEAAAA//8AAFABAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  218. echo.AAAAAAAAAAAAAAAAkAAAAPy+gQAPtkz/ZjHSZjHASXggrCwwchQ8CXcQZmvSCmYB

  219. echo.wi7HBi8AMQDr5C7/Ji8ADgBmadLoAwAAZonRZsHpELSGzRW4AEzNIQAAAAAAAAAA

  220. echo.UEUAAEwBAQBQeaU2AAAAAAAAAADgAA8BCwEFDAACAAAAAAAAAAAAAH4QAAAAEAAA

  221. echo.ACAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAIAAAAAIAAAAAAAADAAAA

  222. echo.AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAQEAAAKAAAAAAAAAAAAAAA

  223. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  224. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAAAAAAAAAAAAAAAAA

  225. echo.AAAAAAAAAAAudGV4dAAAANwAAAAAEAAAAAIAAAACAAAAAAAAAAAAAAAAAAAgAADg

  226. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  227. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWEAAAZBAAAHYQAAAAAAAA

  228. echo.RhAAAAAAAAAAAAAAOBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtFUk5FTDMy

  229. echo.LmRsbAAAVhAAAGQQAAB2EAAAAAAAAAAARXhpdFByb2Nlc3MAAABHZXRDb21tYW5k

  230. echo.TGluZUEAAABTbGVlcAD/FQQQQAAx0khAgDgAdBGAOCJ1AvfSCdJ174A4IHXqQPyJ

  231. echo.xjHSMcCsCMB0IywwchU8CXcRa9IKAcLHBckQQADNEEAA6+L/JckQQAClEEAAUv8V

  232. echo.CBBAAGoA/xUAEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  233. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  234. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  235. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  236. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  237. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  238. echo.AAAAAAAAAAAAAAAAAAAAAA==

  239. echo.-----END CERTIFICATE-----

  240. ) > Sleep.com

  241. Certutil -Decode Sleep.com Sleep.exe > nul

  242. Certutil -Decode -f Sleep.com Sleep.com > nul

  243. goto :eof

  244. 

  245. :Sleep

  246. if exist Sleep.exe (

  247. Sleep.exe %1

  248. goto :eof

  249. )

  250. if not exist Sleep.exe if exist Sleep.com (

  251. Sleep.com %1

  252. goto :eof

  253. )

  254. if not exist Sleep.exe if not exist Sleep.com (

  255. echo.Wscript.Sleep %1 > Sleep.vbs

  256. cscript //nologo Sleep.vbs

  257. goto :eof

  258. )
复制代码

TOP

HOPE2021

Rank: 4

帖子
357 
积分
477 
技术
34  
捐助
0  
注册时间
2021-8-8 
8楼
发表于 2021-8-12 10:10 | 只看该作者
版本1.0.0005
  1. @echo off

  2. endlocal

  3. setlocal enabledelayedexpansion

  4. chcp 936 > nul

  5. Rem By Hope2021

  6. title Hope计时器

  7. mode con cols=68 lines=5

  8. cls

  9. echo.

  10. echo.

  11. echo.                                HOPE

  12. color 0f

  13. call :Vbs_Sleep 1000

  14. call :Sleep_Installs

  15. @goto :Restart

  16. 

  17. :Restart

  18. title Hope计时器

  19. cls

  20. set H=0

  21. set Min=0

  22. set S=0

  23. set H_2=0

  24. set Min_2=0

  25. set S_2=0

  26. set Ms=0

  27. set Ms_2=0

  28. @goto :Main

  29. 

  30. :Main

  31. title Hope计时器

  32. set Error=0

  33. cls

  34. echo.

  35. echo.    ^>^>当前计时时间：%H%小时%Min%分钟%S%秒

  36. echo.

  37. echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U/I 开始计时//退出

  38. call :get_key

  39. if %Ms_2% Leq 200000000 if %H% geq 0 if %Min% Geq 0 if %S% Geq 0 (

  40. if /i "!key!"=="q" (

  41. set /a Ms_2+=3600000

  42. set /a H+=1

  43. )

  44. if /i "!key!"=="w" (

  45. set /a Ms_2-=3600000

  46. set /a H-=1

  47. )

  48. if /i "!key!"=="e" (

  49. set /a Ms_2+=60000

  50. set /a Min+=1

  51. )

  52. if /i "!key!"=="r" (

  53. set /a Ms_2-=60000

  54. set /a Min-=1

  55. )

  56. if /i "!key!"=="t" (

  57. set /a Ms_2+=1000

  58. set /a S+=1

  59. )

  60. if /i "!key!"=="y" (

  61. set /a Ms_2-=1000

  62. set /a S-=1

  63. )

  64. if /i "!key!"=="i" (

  65. exit

  66. )

  67. )

  68. if %S% Lss 0 (

  69. if %Min% Geq 0 if %H% Geq 0 (

  70. set /a Min-=1&set /a S+=60

  71. )

  72. if %Min% Leq 0 if %H% Leq 0 (

  73. echo.

  74. echo.    ^>^> 算数错误！

  75. call :Vbs_Sleep 100

  76. @goto :Restart

  77. )

  78. )

  79. if %Min% Lss 0 (

  80. if %H% Gtr 0 set /a H-=1&set /a Min+=60

  81. if %H% Leq 0 (

  82. echo.

  83. echo.    ^>^> 算数错误！

  84. call :Vbs_Sleep 100

  85. @goto :Restart

  86. )

  87. )

  88. if %H% Lss 0 (

  89. echo.

  90. echo.    ^>^> 算数错误！

  91. call :Vbs_Sleep 100

  92. @goto :Restart

  93. )

  94. if %Ms_2% Gtr 200000000 (

  95. echo.

  96. echo.    ^>^> 算数错误！

  97. call :Vbs_Sleep 100

  98. @goto :Restart

  99. )

  100. if %S% Geq 60 set /a Min+=1&set S=0

  101. if %Min% Geq 60 set /a H+=1&set Min=0

  102. if /i "!key!"=="u" (

  103. @goto :Start

  104. )

  105. if /i "!valid_key!" equ "0" goto :Main

  106. 

  107. :Error

  108. color 1f

  109. cls

  110. echo.

  111. echo.    ^>^> Sleep.exe 和 Sleep.com 不知到何处去了...

  112. echo.

  113. echo.    ^>^> 正在帮您恢复

  114. call :Sleep_Installs

  115. goto :Restart

  116. 

  117. :Start

  118. set Error=0

  119. cls

  120. title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]

  121. echo.

  122. echo.    ^>^> %H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒

  123. echo.

  124. echo.    ^>^> Ctrl+C暂停或退出...

  125. call :Sleep 100

  126. if %Error%==1 goto :Error

  127. set /a Ms+=100

  128. if %Ms%==1000 set /a S_2+=1&set Ms=0

  129. if %S_2% Geq 60 set /a Min_2+=1&set S_2=0

  130. if %Min_2% Geq 60 set /a H_2+=1&set Min_2=0

  131. if %H_2% Geq %H% if %Min_2% Geq %Min% if %S_2% Geq %S% goto :End

  132. if /i "!valid_key!" equ "0" goto :Start

  133. 

  134. :End

  135. cls

  136. color 4e

  137. title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]

  138. Call :Msg "时间到" vbExclamation "Hope计时器"

  139. color 0f

  140. @goto :Restart

  141. 

  142. :Vbs_Sleep

  143. echo.Wscript.Sleep %1 > Sleep.vbs

  144. call Sleep.vbs > nul

  145. if exist ReturnKey.vbs del ReturnKey.vbs

  146. @goto :eof

  147. 

  148. :Sleep_Installs

  149. mode con cols=68 lines=5

  150. color 0f

  151. (

  152. echo.-----BEGIN CERTIFICATE-----

  153. echo.TVpQAQEAAAAEAAAA//8AAFABAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  154. echo.AAAAAAAAAAAAAAAAkAAAAPy+gQAPtkz/ZjHSZjHASXggrCwwchQ8CXcQZmvSCmYB

  155. echo.wi7HBi8AMQDr5C7/Ji8ADgBmadLoAwAAZonRZsHpELSGzRW4AEzNIQAAAAAAAAAA

  156. echo.UEUAAEwBAQBQeaU2AAAAAAAAAADgAA8BCwEFDAACAAAAAAAAAAAAAH4QAAAAEAAA

  157. echo.ACAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAIAAAAAIAAAAAAAADAAAA

  158. echo.AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAQEAAAKAAAAAAAAAAAAAAA

  159. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  160. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAAAAAAAAAAAAAAAAA

  161. echo.AAAAAAAAAAAudGV4dAAAANwAAAAAEAAAAAIAAAACAAAAAAAAAAAAAAAAAAAgAADg

  162. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  163. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWEAAAZBAAAHYQAAAAAAAA

  164. echo.RhAAAAAAAAAAAAAAOBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtFUk5FTDMy

  165. echo.LmRsbAAAVhAAAGQQAAB2EAAAAAAAAAAARXhpdFByb2Nlc3MAAABHZXRDb21tYW5k

  166. echo.TGluZUEAAABTbGVlcAD/FQQQQAAx0khAgDgAdBGAOCJ1AvfSCdJ174A4IHXqQPyJ

  167. echo.xjHSMcCsCMB0IywwchU8CXcRa9IKAcLHBckQQADNEEAA6+L/JckQQAClEEAAUv8V

  168. echo.CBBAAGoA/xUAEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  169. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  170. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  171. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  172. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  173. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  174. echo.AAAAAAAAAAAAAAAAAAAAAA==

  175. echo.-----END CERTIFICATE-----

  176. ) > Sleep.com

  177. Certutil -Decode Sleep.com Sleep.exe > nul

  178. Certutil -Decode -f Sleep.com Sleep.com > nul

  179. goto :eof

  180. 

  181. :Sleep

  182. set Error=0

  183. if exist Sleep.exe (

  184. Sleep.exe %1

  185. goto :eof

  186. )

  187. if not exist Sleep.exe if exist Sleep.com (

  188. Sleep.com %1

  189. goto :eof

  190. )

  191. if not exist Sleep.exe if not exist Sleep.com (

  192. set Error=1

  193. goto :eof

  194. )

  195. 

  196. :get_key

  197. rem 用法：call :get_key

  198. set "key="

  199.   for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if not defined key set "key=%%a"

  200.   set "key=%key:~-1%"

  201.   set "valid_key=0"

  202. goto :eof

  203. 

  204. :Msg

  205. Rem 用法： Call :Msg "Text" [buttons] "Title"

  206. echo.Msg=msgbox("%~1",%2,"%~3") > ReturnKey.vbs

  207. Call ReturnKey.vbs > nul

  208. if exist ReturnKey.vbs del ReturnKey.vbs

  209. goto :eof
复制代码

TOP

cmd1152

帖子
984 
积分
467 
技术
33  
捐助
0  
注册时间
2021-7-14 
9楼
发表于 2021-8-12 10:27 | 只看该作者
回复 8# HOPE2021


    特别卡
    点我查看视频
梦依旧在，只是，心有余而力渐有不足
年年岁岁花相似，岁岁年年人不同

TOP

HOPE2021

Rank: 4

帖子
357 
积分
477 
技术
34  
捐助
0  
注册时间
2021-8-8 
10楼
发表于 2021-8-12 10:29 | 只看该作者
回复 9# cmd1152
看上去是特别卡，实际上每秒运行十次，下一个版本加上毫秒

TOP

HOPE2021

Rank: 4

帖子
357 
积分
477 
技术
34  
捐助
0  
注册时间
2021-8-8 
11楼
发表于 2021-8-12 10:31 | 只看该作者
版本1.0.0006
  1. @echo off

  2. endlocal

  3. setlocal enabledelayedexpansion

  4. chcp 936 > nul

  5. Rem By Hope2021

  6. title Hope计时器

  7. mode con cols=68 lines=5

  8. cls

  9. echo.

  10. echo.

  11. echo.                                HOPE

  12. color 0f

  13. call :Vbs_Sleep 1000

  14. call :Sleep_Installs

  15. @goto :Restart

  16. 

  17. :Restart

  18. title Hope计时器

  19. cls

  20. set H=0

  21. set Min=0

  22. set S=0

  23. set H_2=0

  24. set Min_2=0

  25. set S_2=0

  26. set Ms=0

  27. set Ms_2=0

  28. @goto :Main

  29. 

  30. :Main

  31. title Hope计时器

  32. set Error=0

  33. cls

  34. echo.

  35. echo.    ^>^>当前计时时间：%H%小时%Min%分钟%S%秒

  36. echo.

  37. echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U/I 开始计时//退出

  38. call :get_key

  39. if %Ms_2% Leq 200000000 if %H% geq 0 if %Min% Geq 0 if %S% Geq 0 (

  40. if /i "!key!"=="q" (

  41. set /a Ms_2+=3600000

  42. set /a H+=1

  43. )

  44. if /i "!key!"=="w" (

  45. set /a Ms_2-=3600000

  46. set /a H-=1

  47. )

  48. if /i "!key!"=="e" (

  49. set /a Ms_2+=60000

  50. set /a Min+=1

  51. )

  52. if /i "!key!"=="r" (

  53. set /a Ms_2-=60000

  54. set /a Min-=1

  55. )

  56. if /i "!key!"=="t" (

  57. set /a Ms_2+=1000

  58. set /a S+=1

  59. )

  60. if /i "!key!"=="y" (

  61. set /a Ms_2-=1000

  62. set /a S-=1

  63. )

  64. if /i "!key!"=="i" (

  65. exit

  66. )

  67. )

  68. if %S% Lss 0 (

  69. if %Min% Geq 0 if %H% Geq 0 (

  70. set /a Min-=1&set /a S+=60

  71. )

  72. if %Min% Leq 0 if %H% Leq 0 (

  73. echo.

  74. echo.    ^>^> 算数错误！

  75. call :Vbs_Sleep 100

  76. @goto :Restart

  77. )

  78. )

  79. if %Min% Lss 0 (

  80. if %H% Gtr 0 set /a H-=1&set /a Min+=60

  81. if %H% Leq 0 (

  82. echo.

  83. echo.    ^>^> 算数错误！

  84. call :Vbs_Sleep 100

  85. @goto :Restart

  86. )

  87. )

  88. if %H% Lss 0 (

  89. echo.

  90. echo.    ^>^> 算数错误！

  91. call :Vbs_Sleep 100

  92. @goto :Restart

  93. )

  94. if %Ms_2% Gtr 200000000 (

  95. echo.

  96. echo.    ^>^> 算数错误！

  97. call :Vbs_Sleep 100

  98. @goto :Restart

  99. )

  100. if %S% Geq 60 set /a Min+=1&set S=0

  101. if %Min% Geq 60 set /a H+=1&set Min=0

  102. if /i "!key!"=="u" (

  103. @goto :Start

  104. )

  105. if /i "!valid_key!" equ "0" goto :Main

  106. 

  107. :Error

  108. color 1f

  109. cls

  110. echo.

  111. echo.    ^>^> Sleep.exe 和 Sleep.com 不知到何处去了...

  112. echo.

  113. echo.    ^>^> 正在帮您恢复

  114. call :Sleep_Installs

  115. goto :Restart

  116. 

  117. :Start

  118. set Error=0

  119. cls

  120. title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]

  121. echo.

  122. echo.    ^>^> %H_2%小时%Min_2%分钟%S_2%秒%Ms%毫秒/%H%小时%Min%分钟%S%秒

  123. echo.

  124. echo.    ^>^> Ctrl+C暂停或退出...

  125. call :Sleep 100

  126. if %Error%==1 goto :Error

  127. set /a Ms+=100

  128. if %Ms%==1000 set /a S_2+=1&set Ms=0

  129. if %S_2% Geq 60 set /a Min_2+=1&set S_2=0

  130. if %Min_2% Geq 60 set /a H_2+=1&set Min_2=0

  131. if %H_2% Geq %H% if %Min_2% Geq %Min% if %S_2% Geq %S% goto :End

  132. if /i "!valid_key!" equ "0" goto :Start

  133. 

  134. :End

  135. cls

  136. color 4e

  137. title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]

  138. Call :Msg "时间到" vbExclamation "Hope计时器"

  139. color 0f

  140. @goto :Restart

  141. 

  142. :Vbs_Sleep

  143. echo.Wscript.Sleep %1 > Sleep.vbs

  144. call Sleep.vbs > nul

  145. if exist ReturnKey.vbs del ReturnKey.vbs

  146. @goto :eof

  147. 

  148. :Sleep_Installs

  149. mode con cols=68 lines=5

  150. color 0f

  151. (

  152. echo.-----BEGIN CERTIFICATE-----

  153. echo.TVpQAQEAAAAEAAAA//8AAFABAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  154. echo.AAAAAAAAAAAAAAAAkAAAAPy+gQAPtkz/ZjHSZjHASXggrCwwchQ8CXcQZmvSCmYB

  155. echo.wi7HBi8AMQDr5C7/Ji8ADgBmadLoAwAAZonRZsHpELSGzRW4AEzNIQAAAAAAAAAA

  156. echo.UEUAAEwBAQBQeaU2AAAAAAAAAADgAA8BCwEFDAACAAAAAAAAAAAAAH4QAAAAEAAA

  157. echo.ACAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAIAAAAAIAAAAAAAADAAAA

  158. echo.AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAQEAAAKAAAAAAAAAAAAAAA

  159. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  160. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAAAAAAAAAAAAAAAAA

  161. echo.AAAAAAAAAAAudGV4dAAAANwAAAAAEAAAAAIAAAACAAAAAAAAAAAAAAAAAAAgAADg

  162. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  163. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWEAAAZBAAAHYQAAAAAAAA

  164. echo.RhAAAAAAAAAAAAAAOBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtFUk5FTDMy

  165. echo.LmRsbAAAVhAAAGQQAAB2EAAAAAAAAAAARXhpdFByb2Nlc3MAAABHZXRDb21tYW5k

  166. echo.TGluZUEAAABTbGVlcAD/FQQQQAAx0khAgDgAdBGAOCJ1AvfSCdJ174A4IHXqQPyJ

  167. echo.xjHSMcCsCMB0IywwchU8CXcRa9IKAcLHBckQQADNEEAA6+L/JckQQAClEEAAUv8V

  168. echo.CBBAAGoA/xUAEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  169. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  170. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  171. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  172. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  173. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  174. echo.AAAAAAAAAAAAAAAAAAAAAA==

  175. echo.-----END CERTIFICATE-----

  176. ) > Sleep.com

  177. Certutil -Decode Sleep.com Sleep.exe > nul

  178. Certutil -Decode -f Sleep.com Sleep.com > nul

  179. goto :eof

  180. 

  181. :Sleep

  182. set Error=0

  183. if exist Sleep.exe (

  184. Sleep.exe %1

  185. goto :eof

  186. )

  187. if not exist Sleep.exe if exist Sleep.com (

  188. Sleep.com %1

  189. goto :eof

  190. )

  191. if not exist Sleep.exe if not exist Sleep.com (

  192. set Error=1

  193. goto :eof

  194. )

  195. 

  196. :get_key

  197. rem 用法：call :get_key

  198. set "key="

  199.   for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if not defined key set "key=%%a"

  200.   set "key=%key:~-1%"

  201.   set "valid_key=0"

  202. goto :eof

  203. 

  204. :Msg

  205. Rem 用法： Call :Msg "Text" [buttons] "Title"

  206. echo.Msg=msgbox("%~1",%2,"%~3") > ReturnKey.vbs

  207. Call ReturnKey.vbs > nul

  208. if exist ReturnKey.vbs del ReturnKey.vbs

  209. goto :eof
复制代码

TOP

HOPE2021

Rank: 4

帖子
357 
积分
477 
技术
34  
捐助
0  
注册时间
2021-8-8 
12楼
发表于 2021-8-12 11:03 | 只看该作者
版本1.0.0007
  1. @echo off

  2. endlocal

  3. setlocal enabledelayedexpansion

  4. chcp 936 > nul

  5. Rem By Hope2021

  6. title Hope计时器

  7. mode con cols=68 lines=5

  8. color f9

  9. cls

  10. echo.

  11. echo.

  12. echo.                                HOPE

  13. call :Vbs_Sleep 1000

  14. call :Sleep_Installs

  15. @goto :Restart

  16. 

  17. :Restart

  18. color 0f

  19. cls

  20. set H=0

  21. set Min=0

  22. set S=0

  23. set H_2=0

  24. set Min_2=0

  25. set S_2=0

  26. set Ms=0

  27. set Ms_2=0

  28. @goto :Main

  29. 

  30. :Main

  31. title Hope计时器

  32. set Error=0

  33. cls

  34. echo.

  35. echo.    ^>^> 当前计时时间：%H%小时%Min%分钟%S%秒

  36. echo.

  37. echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U/I 开始计时//退出

  38. call :get_key

  39. if %Ms_2% Leq 200000000 if %H% geq 0 if %Min% Geq 0 if %S% Geq 0 (

  40. if /i "!key!"=="q" (

  41. set /a Ms_2+=3600000

  42. set /a H+=1

  43. )

  44. if /i "!key!"=="w" (

  45. set /a Ms_2-=3600000

  46. set /a H-=1

  47. )

  48. if /i "!key!"=="e" (

  49. set /a Ms_2+=60000

  50. set /a Min+=1

  51. )

  52. if /i "!key!"=="r" (

  53. set /a Ms_2-=60000

  54. set /a Min-=1

  55. )

  56. if /i "!key!"=="t" (

  57. set /a Ms_2+=1000

  58. set /a S+=1

  59. )

  60. if /i "!key!"=="y" (

  61. set /a Ms_2-=1000

  62. set /a S-=1

  63. )

  64. if /i "!key!"=="i" (

  65. exit

  66. )

  67. )

  68. if %S% Lss 0 (

  69. if %Min% Geq 0 if %H% Geq 0 (

  70. set /a Min-=1&set /a S+=60

  71. )

  72. if %Min% Leq 0 if %H% Leq 0 (

  73. echo.

  74. echo.    ^>^> 算数错误！

  75. call :Vbs_Sleep 100

  76. @goto :Restart

  77. )

  78. )

  79. if %Min% Lss 0 (

  80. if %H% Gtr 0 set /a H-=1&set /a Min+=60

  81. if %H% Leq 0 (

  82. echo.

  83. echo.    ^>^> 算数错误！

  84. call :Vbs_Sleep 100

  85. @goto :Restart

  86. )

  87. )

  88. if %H% Lss 0 (

  89. echo.

  90. echo.    ^>^> 算数错误！

  91. call :Vbs_Sleep 100

  92. @goto :Restart

  93. )

  94. if %Ms_2% Gtr 200000000 (

  95. echo.

  96. echo.    ^>^> 算数错误！

  97. call :Vbs_Sleep 100

  98. @goto :Restart

  99. )

  100. if %S% Geq 60 set /a Min+=1&set S=0

  101. if %Min% Geq 60 set /a H+=1&set Min=0

  102. if /i "!key!"=="u" (

  103. @goto :Start

  104. )

  105. if /i "!valid_key!" equ "0" goto :Main

  106. 

  107. :Error

  108. color 1f

  109. cls

  110. echo.

  111. echo.    ^>^> Sleep.exe 和 Sleep.com 不知到何处去了...

  112. echo.

  113. echo.    ^>^> 正在帮您恢复

  114. call :Sleep_Installs

  115. goto :Restart

  116. 

  117. :Start

  118. set Error=0

  119. cls

  120. title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]

  121. echo.

  122. echo.    ^>^> %H_2%小时%Min_2%分钟%S_2%秒%Ms%毫秒/%H%小时%Min%分钟%S%秒

  123. echo.

  124. echo.    ^>^> Ctrl+C暂停或退出...

  125. call :Sleep 100

  126. if %Error%==1 goto :Error

  127. set /a Ms+=100

  128. if %Ms%==1000 set /a S_2+=1&set Ms=0

  129. if %S_2% Geq 60 set /a Min_2+=1&set S_2=0

  130. if %Min_2% Geq 60 set /a H_2+=1&set Min_2=0

  131. if %H_2% Geq %H% if %Min_2% Geq %Min% if %S_2% Geq %S% goto :End

  132. if /i "!valid_key!" equ "0" goto :Start

  133. 

  134. :End

  135. cls

  136. color 4e

  137. title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]

  138. Call :Msg "时间到" vbExclamation "Hope计时器"

  139. color 0f

  140. @goto :Restart

  141. 

  142. :Vbs_Sleep

  143. echo.Wscript.Sleep %1 > Sleep.vbs

  144. call Sleep.vbs > nul

  145. if exist ReturnKey.vbs del ReturnKey.vbs

  146. @goto :eof

  147. 

  148. :Sleep_Installs

  149. mode con cols=68 lines=5

  150. color 0f

  151. (

  152. echo.-----BEGIN CERTIFICATE-----

  153. echo.TVpQAQEAAAAEAAAA//8AAFABAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  154. echo.AAAAAAAAAAAAAAAAkAAAAPy+gQAPtkz/ZjHSZjHASXggrCwwchQ8CXcQZmvSCmYB

  155. echo.wi7HBi8AMQDr5C7/Ji8ADgBmadLoAwAAZonRZsHpELSGzRW4AEzNIQAAAAAAAAAA

  156. echo.UEUAAEwBAQBQeaU2AAAAAAAAAADgAA8BCwEFDAACAAAAAAAAAAAAAH4QAAAAEAAA

  157. echo.ACAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAIAAAAAIAAAAAAAADAAAA

  158. echo.AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAQEAAAKAAAAAAAAAAAAAAA

  159. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  160. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAAAAAAAAAAAAAAAAA

  161. echo.AAAAAAAAAAAudGV4dAAAANwAAAAAEAAAAAIAAAACAAAAAAAAAAAAAAAAAAAgAADg

  162. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  163. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWEAAAZBAAAHYQAAAAAAAA

  164. echo.RhAAAAAAAAAAAAAAOBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtFUk5FTDMy

  165. echo.LmRsbAAAVhAAAGQQAAB2EAAAAAAAAAAARXhpdFByb2Nlc3MAAABHZXRDb21tYW5k

  166. echo.TGluZUEAAABTbGVlcAD/FQQQQAAx0khAgDgAdBGAOCJ1AvfSCdJ174A4IHXqQPyJ

  167. echo.xjHSMcCsCMB0IywwchU8CXcRa9IKAcLHBckQQADNEEAA6+L/JckQQAClEEAAUv8V

  168. echo.CBBAAGoA/xUAEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  169. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  170. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  171. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  172. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  173. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  174. echo.AAAAAAAAAAAAAAAAAAAAAA==

  175. echo.-----END CERTIFICATE-----

  176. ) > Sleep.com

  177. Certutil -Decode Sleep.com Sleep.exe > nul

  178. Certutil -Decode -f Sleep.com Sleep.com > nul

  179. goto :eof

  180. 

  181. :Sleep

  182. set Error=0

  183. if exist Sleep.exe (

  184. Sleep.exe %1

  185. goto :eof

  186. )

  187. if not exist Sleep.exe if exist Sleep.com (

  188. Sleep.com %1

  189. goto :eof

  190. )

  191. if not exist Sleep.exe if not exist Sleep.com (

  192. set Error=1

  193. goto :eof

  194. )

  195. 

  196. :get_key

  197. rem 用法：call :get_key

  198. set "key="

  199.   for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if not defined key set "key=%%a"

  200.   set "key=%key:~-1%"

  201.   set "valid_key=0"

  202. goto :eof

  203. 

  204. :Msg

  205. Rem 用法： Call :Msg "Text" [buttons] "Title"

  206. echo.Msg=msgbox("%~1",%2,"%~3") > ReturnKey.vbs

  207. Call ReturnKey.vbs > nul

  208. if exist ReturnKey.vbs del ReturnKey.vbs

  209. goto :eof
复制代码

TOP

HOPE2021

Rank: 4

帖子
357 
积分
477 
技术
34  
捐助
0  
注册时间
2021-8-8 
13楼
发表于 2021-8-12 11:25 | 只看该作者
您的视频我看过了，在我的电脑上并不卡。
BATHOMEPNG\Hope计时器录像.rar

TOP

HOPE2021

Rank: 4

帖子
357 
积分
477 
技术
34  
捐助
0  
注册时间
2021-8-8 
14楼
发表于 2021-8-12 16:42 | 只看该作者
版本1.0.0008
  1. @echo off

  2. mode con cols=68 lines=5

  3. color f9

  4. endlocal

  5. setlocal enabledelayedexpansion

  6. chcp 936 > nul

  7. Rem By Hope2021

  8. title Hope计时器

  9. cls

  10. echo.

  11. echo.

  12. echo.                                HOPE

  13. call :Vbs_Sleep 1000

  14. call :Sleep_Installs

  15. @goto :Restart

  16. 

  17. :Restart

  18. color 0f

  19. cls

  20. set H=0

  21. set Min=0

  22. set S=0

  23. set H_2=0

  24. set Min_2=0

  25. set S_2=0

  26. set Ms=0

  27. set Ms_2=0

  28. @goto :Main

  29. 

  30. :Main

  31. mode con cols=68 lines=7

  32. title Hope计时器

  33. set Error=0

  34. cls

  35. echo.

  36. echo.    ^>^> 当前计时时间：%H%小时%Min%分钟%S%秒

  37. echo.

  38. echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U/I 开始计时//退出

  39. echo.

  40. echo.  P 打开计划程序

  41. call :get_key

  42. call :Settings_Time

  43. if /i "!key!"=="P" (

  44. set St_1=10001

  45. set En_1=10010

  46. mode con cols=68 lines=34

  47. @goto :Task

  48. )

  49. if /i "!key!"=="u" (

  50. mode con cols=68 lines=5

  51. @goto :Start

  52. )

  53. if /i "!key!"=="i" (

  54. exit

  55. )

  56. if /i "!valid_key!" equ "0" goto :Main

  57. 

  58. :Task

  59. Md Tasks >nul 2>nul

  60. cls

  61. title Hope计时器[计划程序]

  62. set Error=0

  63. echo.

  64. echo.  Hope计时器[计划程序]

  65. set /p Str=--------------------------------------------------------------------<nul

  66. echo.

  67. echo.    ^>^> Q 新建计划   W 使用计划   D 删除计划   E 返回菜单   R 退出

  68. if not exist Tasks\*.Htd (

  69. echo.

  70. echo.    ^>^> 当前没有计划

  71. set /p Str=--------------------------------------------------------------------<nul

  72. echo.

  73. echo.

  74. )

  75. if not exist Tasks\Htd.Hdat echo.10000 > Tasks\Htd.Hdat

  76. if exist Tasks\*.Htd (

  77. cd Tasks

  78. echo.

  79. echo.    ^>^> 当前计划列表

  80. set /p Str=--------------------------------------------------------------------<nul

  81. echo.

  82. echo.

  83. for /f %%i in ('dir /b *.Htd') do (

  84.     echo.    ^>^> 编号：%%~ni

  85. )

  86. echo.

  87. cd..

  88. )

  89. )

  90. call :get_key

  91. if /i "!key!"=="E" (

  92. @goto :Main

  93. )

  94. if /i "!key!"=="R" (

  95. exit

  96. )

  97. if /i "!key!"=="Q" (

  98. @goto :New

  99. )

  100. if /i "!key!"=="W" (

  101. @goto :Open

  102. )

  103. if /i "!valid_key!" equ "0" @goto :Task

  104. 

  105. :Open

  106. if exist Tasks\*.Htd (

  107. set "Content= "

  108. set /p Content=    ^>^> 请输入计划编号：

  109. goto Open_2

  110. ) else cd..&@goto :Task

  111. 

  112. :Del

  113. if exist Tasks\*.Htd (

  114. set "Content= "

  115. set /p Content=    ^>^> 请输入计划编号：

  116. goto Del_2

  117. ) else cd..&@goto :Task

  118. 

  119. :Del_2

  120. cd Tasks

  121. if exist %Content%.Htd (

  122. del %Content%.Htd

  123. cd..

  124. goto Task

  125. ) else cd..&goto Task

  126. 

  127. :Open_2

  128. cd Tasks

  129. if exist %Content%.Htd (

  130. call :Read %Content%

  131. cd..

  132. mode con cols=68 lines=5

  133. @goto :Start

  134. ) else cd..&goto Task

  135. 

  136. :New

  137. cd Tasks

  138. < Htd.Hdat (

  139. set /p Num=

  140. )

  141. set /a Num+=1

  142. echo.%Num% > Htd.Hdat

  143. cd..

  144. echo.

  145. echo.    ^>^> 新建了计划：%Num%

  146. echo.

  147. set H=0

  148. set Min=0

  149. set S=0

  150. set H_2=0

  151. set Min_2=0

  152. set S_2=0

  153. set Ms=0

  154. set Ms_2=0

  155. call :Vbs_Sleep 1000

  156. @goto :New_2

  157. 

  158. :Read

  159. < %1.Htd (

  160. set /p H=

  161. set /p Min=

  162. set /p S=

  163. set /p Ms_2=

  164. )

  165. @goto :eof

  166. 

  167. :New_2

  168. cls

  169. echo.

  170. echo.    ^>^> 当前计时时间：%H%小时%Min%分钟%S%秒

  171. echo.

  172. echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U 完成计划

  173. echo.

  174. call :get_key

  175. call :Settings_Time

  176. if /i "!key!"=="U" (

  177. (

  178. echo.%H%

  179. echo.%Min%

  180. echo.%S%

  181. echo.%Ms_2%

  182. ) > Tasks\%Num%.Htd

  183. @goto :Task

  184. )

  185. if /i "!valid_key!" equ "0" @goto :New_2

  186. 

  187. :Error

  188. color 1f

  189. cls

  190. echo.

  191. echo.    ^>^> Sleep.exe 和 Sleep.com 不知到何处去了...

  192. echo.

  193. echo.    ^>^> 正在帮您恢复

  194. call :Sleep_Installs

  195. goto :Restart

  196. 

  197. :Start

  198. set Error=0

  199. cls

  200. title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]

  201. echo.

  202. echo.    ^>^> %H_2%小时%Min_2%分钟%S_2%秒%Ms%毫秒/%H%小时%Min%分钟%S%秒

  203. echo.

  204. echo.    ^>^> Ctrl+C暂停或退出...

  205. call :Sleep 100

  206. if %Error%==1 goto :Error

  207. set /a Ms+=100

  208. if %Ms%==1000 set /a S_2+=1&set Ms=0

  209. if %S_2% Geq 60 set /a Min_2+=1&set S_2=0

  210. if %Min_2% Geq 60 set /a H_2+=1&set Min_2=0

  211. if %H_2% Geq %H% if %Min_2% Geq %Min% if %S_2% Geq %S% goto :End

  212. if /i "!valid_key!" equ "0" goto :Start

  213. 

  214. :End

  215. cls

  216. color 4e

  217. title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]

  218. Call :Msg "时间到" vbExclamation "Hope计时器"

  219. color 0f

  220. @goto :Restart

  221. 

  222. :Vbs_Sleep

  223. echo.Wscript.Sleep %1 > Sleep.vbs

  224. call Sleep.vbs > nul

  225. if exist ReturnKey.vbs del ReturnKey.vbs

  226. @goto :eof

  227. 

  228. :Sleep_Installs

  229. mode con cols=68 lines=5

  230. color 0f

  231. (

  232. echo.-----BEGIN CERTIFICATE-----

  233. echo.TVpQAQEAAAAEAAAA//8AAFABAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  234. echo.AAAAAAAAAAAAAAAAkAAAAPy+gQAPtkz/ZjHSZjHASXggrCwwchQ8CXcQZmvSCmYB

  235. echo.wi7HBi8AMQDr5C7/Ji8ADgBmadLoAwAAZonRZsHpELSGzRW4AEzNIQAAAAAAAAAA

  236. echo.UEUAAEwBAQBQeaU2AAAAAAAAAADgAA8BCwEFDAACAAAAAAAAAAAAAH4QAAAAEAAA

  237. echo.ACAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAIAAAAAIAAAAAAAADAAAA

  238. echo.AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAQEAAAKAAAAAAAAAAAAAAA

  239. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  240. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAAAAAAAAAAAAAAAAA

  241. echo.AAAAAAAAAAAudGV4dAAAANwAAAAAEAAAAAIAAAACAAAAAAAAAAAAAAAAAAAgAADg

  242. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  243. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWEAAAZBAAAHYQAAAAAAAA

  244. echo.RhAAAAAAAAAAAAAAOBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtFUk5FTDMy

  245. echo.LmRsbAAAVhAAAGQQAAB2EAAAAAAAAAAARXhpdFByb2Nlc3MAAABHZXRDb21tYW5k

  246. echo.TGluZUEAAABTbGVlcAD/FQQQQAAx0khAgDgAdBGAOCJ1AvfSCdJ174A4IHXqQPyJ

  247. echo.xjHSMcCsCMB0IywwchU8CXcRa9IKAcLHBckQQADNEEAA6+L/JckQQAClEEAAUv8V

  248. echo.CBBAAGoA/xUAEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  249. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  250. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  251. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  252. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  253. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  254. echo.AAAAAAAAAAAAAAAAAAAAAA==

  255. echo.-----END CERTIFICATE-----

  256. ) > Sleep.com

  257. Certutil -Decode Sleep.com Sleep.exe > nul

  258. Certutil -Decode -f Sleep.com Sleep.com > nul

  259. goto :eof

  260. 

  261. :Sleep

  262. set Error=0

  263. if exist Sleep.exe (

  264. Sleep.exe %1

  265. goto :eof

  266. )

  267. if not exist Sleep.exe if exist Sleep.com (

  268. Sleep.com %1

  269. goto :eof

  270. )

  271. if not exist Sleep.exe if not exist Sleep.com (

  272. set Error=1

  273. goto :eof

  274. )

  275. 

  276. :get_key

  277. rem 用法：call :get_key

  278. set "key="

  279.   for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if not defined key set "key=%%a"

  280.   set "key=%key:~-1%"

  281.   set "valid_key=0"

  282. goto :eof

  283. 

  284. :Msg

  285. Rem 用法： Call :Msg "Text" [buttons] "Title"

  286. echo.Msg=msgbox("%~1",%2,"%~3") > ReturnKey.vbs

  287. Call ReturnKey.vbs > nul

  288. if exist ReturnKey.vbs del ReturnKey.vbs

  289. goto :eof

  290. 

  291. :Settings_Time

  292. if %Ms_2% Leq 200000000 if %H% geq 0 if %Min% Geq 0 if %S% Geq 0 (

  293. if /i "!key!"=="q" (

  294. set /a Ms_2+=3600000

  295. set /a H+=1

  296. )

  297. if /i "!key!"=="w" (

  298. set /a Ms_2-=3600000

  299. set /a H-=1

  300. )

  301. if /i "!key!"=="e" (

  302. set /a Ms_2+=60000

  303. set /a Min+=1

  304. )

  305. if /i "!key!"=="r" (

  306. set /a Ms_2-=60000

  307. set /a Min-=1

  308. )

  309. if /i "!key!"=="t" (

  310. set /a Ms_2+=1000

  311. set /a S+=1

  312. )

  313. if /i "!key!"=="y" (

  314. set /a Ms_2-=1000

  315. set /a S-=1

  316. )

  317. )

  318. if %S% Lss 0 (

  319. if %Min% Geq 0 if %H% Geq 0 (

  320. set /a Min-=1&set /a S+=60

  321. )

  322. if %Min% Leq 0 if %H% Leq 0 (

  323. echo.

  324. echo.    ^>^> 算数错误！

  325. call :Vbs_Sleep 100

  326. @goto :Restart

  327. )

  328. )

  329. if %Min% Lss 0 (

  330. if %H% Gtr 0 set /a H-=1&set /a Min+=60

  331. if %H% Leq 0 (

  332. echo.

  333. echo.    ^>^> 算数错误！

  334. call :Vbs_Sleep 100

  335. @goto :Restart

  336. )

  337. )

  338. if %H% Lss 0 (

  339. echo.

  340. echo.    ^>^> 算数错误！

  341. call :Vbs_Sleep 100

  342. @goto :Restart

  343. )

  344. if %Ms_2% Gtr 200000000 (

  345. echo.

  346. echo.    ^>^> 算数错误！

  347. call :Vbs_Sleep 100

  348. @goto :Restart

  349. )

  350. if %S% Geq 60 set /a Min+=1&set S=0

  351. if %Min% Geq 60 set /a H+=1&set Min=0
复制代码

TOP

HOPE2021

Rank: 4

帖子
357 
积分
477 
技术
34  
捐助
0  
注册时间
2021-8-8 
15楼
发表于 2021-8-12 17:11 | 只看该作者
本帖最后由 HOPE2021 于 2021-8-13 10:51 编辑

有重大谬误，请停止使用！
版本1.0.0009
  1. @echo off

  2. mode con cols=68 lines=5

  3. color f9

  4. endlocal

  5. setlocal enabledelayedexpansion

  6. chcp 936 > nul

  7. Rem By Hope2021

  8. title Hope计时器

  9. cls

  10. echo.

  11. echo.

  12. echo.                                HOPE

  13. call :Vbs_Sleep 1000

  14. call :Sleep_Installs

  15. @goto :Restart

  16. 

  17. :Restart

  18. color 0f

  19. cls

  20. set H=0

  21. set Min=0

  22. set S=0

  23. set H_2=0

  24. set Min_2=0

  25. set S_2=0

  26. set Ms=0

  27. set Ms_2=0

  28. @goto :Main

  29. 

  30. :Main

  31. mode con cols=68 lines=7

  32. title Hope计时器

  33. set Error=0

  34. cls

  35. echo.

  36. echo.    ^>^> 当前计时时间：%H%小时%Min%分钟%S%秒

  37. echo.

  38. echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U/I 开始计时//退出

  39. echo.

  40. echo.  P 打开计划程序

  41. call :get_key

  42. call :Settings_Time

  43. if /i "!key!"=="P" (

  44. set St_1=10001

  45. set En_1=10010

  46. mode con cols=68 lines=34

  47. @goto :Task

  48. )

  49. if /i "!key!"=="u" (

  50. mode con cols=68 lines=5

  51. @goto :Start

  52. )

  53. if /i "!key!"=="i" (

  54. exit

  55. )

  56. if /i "!valid_key!" equ "0" goto :Main

  57. 

  58. :Task

  59. Md Tasks >nul 2>nul

  60. cls

  61. title Hope计时器[计划程序]

  62. set Error=0

  63. echo.

  64. echo.  Hope计时器[计划程序]

  65. set /p Str=--------------------------------------------------------------------<nul

  66. echo.

  67. echo.    ^>^> Q 新建计划   W 使用计划   D 删除计划   E 返回菜单   R 退出

  68. if not exist Tasks\*.Htd (

  69. echo.

  70. echo.    ^>^> 当前没有计划

  71. set /p Str=--------------------------------------------------------------------<nul

  72. echo.

  73. echo.

  74. )

  75. if not exist Tasks\Htd.Hdat echo.10000 > Tasks\Htd.Hdat

  76. if exist Tasks\*.Htd (

  77. cd Tasks

  78. echo.

  79. echo.    ^>^> 当前计划列表

  80. set /p Str=--------------------------------------------------------------------<nul

  81. echo.

  82. echo.

  83. for /f %%i in ('dir /b *.Htd') do (

  84. 	for /f "skip=4" %%j in (%%~ni.Htd) do echo.    ^>^> 编号：%%~ni  备注：%%j

  85. )

  86. echo.

  87. cd..

  88. )

  89. )

  90. call :get_key

  91. if /i "!key!"=="E" (

  92. @goto :Main

  93. )

  94. if /i "!key!"=="R" (

  95. exit

  96. )

  97. if /i "!key!"=="Q" (

  98. @goto :New

  99. )

  100. if /i "!key!"=="W" (

  101. @goto :Open

  102. )

  103. if /i "!valid_key!" equ "0" @goto :Task

  104. 

  105. :Open

  106. if exist Tasks\*.Htd (

  107. set "Content= "

  108. set /p Content=    ^>^> 请输入计划编号：

  109. goto Open_2

  110. ) else cd..&@goto :Task

  111. 

  112. :Del

  113. if exist Tasks\*.Htd (

  114. set "Content= "

  115. set /p Content=    ^>^> 请输入计划编号：

  116. goto Del_2

  117. ) else cd..&@goto :Task

  118. 

  119. :Del_2

  120. cd Tasks

  121. if exist %Content%.Htd (

  122. del %Content%.Htd

  123. cd..

  124. goto Task

  125. ) else cd..&goto Task

  126. 

  127. :Open_2

  128. cd Tasks

  129. if exist %Content%.Htd (

  130. call :Read %Content%

  131. cd..

  132. mode con cols=68 lines=5

  133. @goto :Start

  134. ) else cd..&goto Task

  135. 

  136. :New

  137. cd Tasks

  138. < Htd.Hdat (

  139. set /p Num=

  140. )

  141. set /a Num+=1

  142. echo.%Num% > Htd.Hdat

  143. cd..

  144. echo.

  145. echo.    ^>^> 新建计划：%Num%

  146. echo.

  147. set "Content= "

  148. set /p Content=    ^>^> 备注：

  149. echo.

  150. set "Content=%Content:>=^>%"

  151. set "Content=%Content:<=^<%"

  152. set "Content=%Content:|=^|%"

  153. set H=0

  154. set Min=0

  155. set S=0

  156. set H_2=0

  157. set Min_2=0

  158. set S_2=0

  159. set Ms=0

  160. set Ms_2=0

  161. call :Vbs_Sleep 1000

  162. @goto :New_2

  163. 

  164. :Read

  165. < %1.Htd (

  166. set /p H=

  167. set /p Min=

  168. set /p S=

  169. set /p Ms_2=

  170. set /p Content=

  171. )

  172. @goto :eof

  173. 

  174. :New_2

  175. cls

  176. echo.

  177. echo.    ^>^> 当前计时时间：%H%小时%Min%分钟%S%秒

  178. echo.

  179. echo.  Q/W 小时加/减   E/R 分钟加/减   T/Y 秒加/减   U 完成计划

  180. echo.

  181. call :get_key

  182. call :Settings_Time

  183. if /i "!key!"=="U" (

  184. (

  185. echo.%H%

  186. echo.%Min%

  187. echo.%S%

  188. echo.%Ms_2%

  189. echo.%Content%

  190. ) > Tasks\%Num%.Htd

  191. @goto :Task

  192. )

  193. if /i "!valid_key!" equ "0" @goto :New_2

  194. 

  195. :Error

  196. color 1f

  197. cls

  198. echo.

  199. echo.    ^>^> Sleep.exe 和 Sleep.com 不知到何处去了...

  200. echo.

  201. echo.    ^>^> 正在帮您恢复

  202. call :Sleep_Installs

  203. goto :Restart

  204. 

  205. :Start

  206. set Error=0

  207. cls

  208. title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]

  209. echo.

  210. echo.    ^>^> %H_2%小时%Min_2%分钟%S_2%秒%Ms%毫秒/%H%小时%Min%分钟%S%秒

  211. echo.

  212. echo.    ^>^> Ctrl+C暂停或退出...

  213. call :Sleep 100

  214. if %Error%==1 goto :Error

  215. set /a Ms+=100

  216. if %Ms%==1000 set /a S_2+=1&set Ms=0

  217. if %S_2% Geq 60 set /a Min_2+=1&set S_2=0

  218. if %Min_2% Geq 60 set /a H_2+=1&set Min_2=0

  219. if %H_2% Geq %H% if %Min_2% Geq %Min% if %S_2% Geq %S% goto :End

  220. if /i "!valid_key!" equ "0" goto :Start

  221. 

  222. :End

  223. cls

  224. color 4e

  225. title 计时器[%H_2%小时%Min_2%分钟%S_2%秒/%H%小时%Min%分钟%S%秒]

  226. Call :Msg "时间到" vbExclamation "Hope计时器"

  227. color 0f

  228. @goto :Restart

  229. 

  230. :Vbs_Sleep

  231. echo.Wscript.Sleep %1 > Sleep.vbs

  232. call Sleep.vbs > nul

  233. if exist ReturnKey.vbs del ReturnKey.vbs

  234. @goto :eof

  235. 

  236. :Sleep_Installs

  237. mode con cols=68 lines=5

  238. color 0f

  239. (

  240. echo.-----BEGIN CERTIFICATE-----

  241. echo.TVpQAQEAAAAEAAAA//8AAFABAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  242. echo.AAAAAAAAAAAAAAAAkAAAAPy+gQAPtkz/ZjHSZjHASXggrCwwchQ8CXcQZmvSCmYB

  243. echo.wi7HBi8AMQDr5C7/Ji8ADgBmadLoAwAAZonRZsHpELSGzRW4AEzNIQAAAAAAAAAA

  244. echo.UEUAAEwBAQBQeaU2AAAAAAAAAADgAA8BCwEFDAACAAAAAAAAAAAAAH4QAAAAEAAA

  245. echo.ACAAAAAAQAAAEAAAAAIAAAQAAAAAAAAABAAAAAAAAAAAIAAAAAIAAAAAAAADAAAA

  246. echo.AAAQAAAQAAAAABAAABAAAAAAAAAQAAAAAAAAAAAAAAAQEAAAKAAAAAAAAAAAAAAA

  247. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  248. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABAAABAAAAAAAAAAAAAAAAAAAAAAAAAA

  249. echo.AAAAAAAAAAAudGV4dAAAANwAAAAAEAAAAAIAAAACAAAAAAAAAAAAAAAAAAAgAADg

  250. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  251. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABWEAAAZBAAAHYQAAAAAAAA

  252. echo.RhAAAAAAAAAAAAAAOBAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEtFUk5FTDMy

  253. echo.LmRsbAAAVhAAAGQQAAB2EAAAAAAAAAAARXhpdFByb2Nlc3MAAABHZXRDb21tYW5k

  254. echo.TGluZUEAAABTbGVlcAD/FQQQQAAx0khAgDgAdBGAOCJ1AvfSCdJ174A4IHXqQPyJ

  255. echo.xjHSMcCsCMB0IywwchU8CXcRa9IKAcLHBckQQADNEEAA6+L/JckQQAClEEAAUv8V

  256. echo.CBBAAGoA/xUAEEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  257. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  258. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  259. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  260. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  261. echo.AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

  262. echo.AAAAAAAAAAAAAAAAAAAAAA==

  263. echo.-----END CERTIFICATE-----

  264. ) > Sleep.com

  265. Certutil -Decode Sleep.com Sleep.exe > nul

  266. Certutil -Decode -f Sleep.com Sleep.com > nul

  267. goto :eof

  268. 

  269. :Sleep

  270. set Error=0

  271. if exist Sleep.exe (

  272. Sleep.exe %1

  273. goto :eof

  274. )

  275. if not exist Sleep.exe if exist Sleep.com (

  276. Sleep.com %1

  277. goto :eof

  278. )

  279. if not exist Sleep.exe if not exist Sleep.com (

  280. set Error=1

  281. goto :eof

  282. )

  283. 

  284. :get_key

  285. rem 用法：call :get_key

  286. set "key="

  287.   for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if not defined key set "key=%%a"

  288.   set "key=%key:~-1%"

  289.   set "valid_key=0"

  290. goto :eof

  291. 

  292. :Msg

  293. Rem 用法： Call :Msg "Text" [buttons] "Title"

  294. echo.Msg=msgbox("%~1",%2,"%~3") > ReturnKey.vbs

  295. Call ReturnKey.vbs > nul

  296. if exist ReturnKey.vbs del ReturnKey.vbs

  297. goto :eof

  298. 

  299. :Settings_Time

  300. if %Ms_2% Leq 200000000 if %H% geq 0 if %Min% Geq 0 if %S% Geq 0 (

  301. if /i "!key!"=="q" (

  302. set /a Ms_2+=3600000

  303. set /a H+=1

  304. )

  305. if /i "!key!"=="w" (

  306. set /a Ms_2-=3600000

  307. set /a H-=1

  308. )

  309. if /i "!key!"=="e" (

  310. set /a Ms_2+=60000

  311. set /a Min+=1

  312. )

  313. if /i "!key!"=="r" (

  314. set /a Ms_2-=60000

  315. set /a Min-=1

  316. )

  317. if /i "!key!"=="t" (

  318. set /a Ms_2+=1000

  319. set /a S+=1

  320. )

  321. if /i "!key!"=="y" (

  322. set /a Ms_2-=1000

  323. set /a S-=1

  324. )

  325. )

  326. if %S% Lss 0 (

  327. if %Min% Geq 0 if %H% Geq 0 (

  328. set /a Min-=1&set /a S+=60

  329. )

  330. if %Min% Leq 0 if %H% Leq 0 (

  331. echo.

  332. echo.    ^>^> 算数错误！

  333. call :Vbs_Sleep 100

  334. @goto :Restart

  335. )

  336. )

  337. if %Min% Lss 0 (

  338. if %H% Gtr 0 set /a H-=1&set /a Min+=60

  339. if %H% Leq 0 (

  340. echo.

  341. echo.    ^>^> 算数错误！

  342. call :Vbs_Sleep 100

  343. @goto :Restart

  344. )

  345. )

  346. if %H% Lss 0 (

  347. echo.

  348. echo.    ^>^> 算数错误！

  349. call :Vbs_Sleep 100

  350. @goto :Restart

  351. )

  352. if %Ms_2% Gtr 200000000 (

  353. echo.

  354. echo.    ^>^> 算数错误！

  355. call :Vbs_Sleep 100

  356. @goto :Restart

  357. )

  358. if %S% Geq 60 set /a Min+=1&set S=0

  359. if %Min% Geq 60 set /a H+=1&set Min=0
复制代码

TOP

123456789
返回列表