[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
  1. @echo off
  2. mode con cols=113 lines=15 &color 9f
  3. :starthome
  4. cls
  5. set a=^set /p=■%b%^<nul^&ping/n 0 127.1^>nul^&
  6. echo.
  7. echo 程序正在初始化. . .
  8. echo.
  9. echo ┌──────────────────────────────────────┐
  10. set/p=  <nul&%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%%a%
  11. echo 100%%
  12. echo └──────────────────────────────────────┘
  13. set b=
  14. set a=■
  15. set /a z=100
  16. pause
  17. :start
  18. cls
  19. set a=%a%■■
  20. set /a b+=5
  21. set /a z-=5
  22. echo.
  23. @echo 剩余进度 %z%%%
  24. @echo ┌──────────────────────────────────────────┐
  25. @echo %a% %b%%%
  26. @echo └──────────────────────────────────────────┘
  27. if %b% geq 100 goto num2
  28. ping /n 0 127.1 >nul
  29. set /a sum =5
  30. goto start
  31. :_exit
  32. set /a sum-=1
  33. set/p=%sum% 秒后退出! <nul
  34. echo.
  35. if %sum% EQU 0 exit
  36. ping /n 2 127.1 >nul
  37. goto _exit
  38. rem 冲到一半再缩,冲到一半再加
  39. :num2
  40. setlocal EnableDelayedexpansion
  41. set sum=
  42. Set z=
  43. set a=■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
  44. set /a z1=52
  45. set /a z2=52
  46. :start2
  47. cls
  48. set sum52=
  49. set /a z2=52
  50. set /a sum+=1
  51. set /a z1-=1
  52. set b=!a:~%sum%!
  53. set c=!a:~-%sum%!
  54. call :_color
  55. echo.
  56. echo.
  57. echo 剩余进度:%z1%%%
  58. echo ┌──────────────────────────────────────────────────────┐
  59. echo %b% %z1%%%
  60. echo └──────────────────────────────────────────────────────┘
  61. echo 当前颜色代码: COLOR 0!numca!
  62. echo.
  63. echo.
  64. echo 当前进度:%sum%%%
  65. echo ┌──────────────────────────────────────────────────────┐
  66. echo %c% %sum%%%
  67. echo └──────────────────────────────────────────────────────┘
  68. echo 当前颜色代码: COLOR 0!numca!
  69. if %sum% geq 52 call :sum52
  70. ping /n 0 127.1 >nul
  71. goto start2
  72. :sum52
  73. cls
  74. set sum=
  75. set /a z1=52
  76. set /a sum52+=1
  77. set /a z2-=1
  78. set c=!a:~%sum52%!
  79. set b=!a:~-%sum52%!
  80. call :_color
  81. echo.
  82. echo.
  83. echo 当前进度:%sum52%%%
  84. echo ┌──────────────────────────────────────────────────────┐
  85. echo %b% %sum52%%%
  86. echo └──────────────────────────────────────────────────────┘
  87. echo 当前颜色代码: COLOR 0!numca!
  88. echo.
  89. echo.
  90. echo 剩余进度:%z2%%%
  91. echo ┌──────────────────────────────────────────────────────┐
  92. echo %c% %z2%%%
  93. echo └──────────────────────────────────────────────────────┘
  94. echo 当前颜色代码: COLOR 0!numca!
  95. if %sum52% geq 52 call :start2
  96. ping /n 0 127.1 >nul
  97. cls
  98. goto sum52
  99. :_color
  100. set _color=1234567890ABCDEF
  101. set /a _random=%random%%%16
  102. set numca=!_color:~%_random%,1!
  103. color 0!numca!
  104. goto :eof
复制代码
来源于网络

TOP

返回列表