[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
不闪屏
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. mode con cols=54 lines=6
  4. color 0a
  5. chcp 936
  6. rem Only tested under Chinese Simplified
  7. set "sp= "
  8. set "cc=■!sp!"
  9. for %%a in (
  10. 4 1 2 1 2 1 4 2 1 2 1 2 1 2 1 2 4 2 5 2 6 2 4 2 5 1 2
  11. 1 4 2 1 2 5 2 3 2 8 2 4 1 7 2 1 2 1 2 1 2 5 1 5 1 8 1 4 2 4
  12. ) do (
  13. set "cc=!cc:~-1!!cc:~0,1!"
  14. for /l %%i in (
  15. 1,1,%%a
  16. ) do (
  17. set "dgts=!dgts!!cc:~-1!"
  18. )
  19. )
  20. for /l %%z in () do (
  21. if "!time:~7,1!" neq "!sec!" (
  22. set "sec=!time:~7,1!"
  23. set "oc="
  24. for /l %%h in (
  25. 0,1,4
  26. ) do (
  27. for %%d in (
  28. 0 sp 1 sp : sp 3 sp 4 sp : sp 6 sp 7
  29. ) do (
  30. if "%%d"==":" (
  31. set /a "tt=%%h&1"
  32. if "!tt!"=="0" (
  33. set oc=!oc!!sp!
  34. ) else (
  35. set oc=!oc!●
  36. )
  37. ) else (
  38. if "%%d"=="sp" (
  39. set oc=!oc!!sp!
  40. ) else (
  41. set "timeP=!time: =0!"
  42. set /a s=!timeP:~%%d,1!*15+%%h*3
  43. for %%o in (
  44. !s!
  45. ) do (
  46. set "oc=!oc!!dgts:~%%o,3!"
  47. )
  48. )
  49. )
  50. )
  51. )
  52. cls
  53. set /p=!oc!<nul
  54. )
  55. )
复制代码

TOP

返回列表