高手用批处理做的进度条(强烈推荐看看)

weiq1

高手用批处理做的进度条(强烈推荐看看)

@echo %dbg% off
mode con cols=113 lines=15 &color 9f
:starthome
cls
set a=^set /p=■%b%^<nul^&ping/n 0 127.1^>nul^&
echo.
echo  程序正在初始化. . .
echo.
echo  ┌──────────────────────────────────────┐
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%
echo   100%%
echo  └──────────────────────────────────────┘


set b=
set a=■
set /a z=100
:start
cls
set a=%a%■■
set /a b+=5
set /a z-=5
echo.
@echo 剩余进度 %z%%%
@echo  ┌──────────────────────────────────────────┐
@echo    %a% %b%%%
@echo  └──────────────────────────────────────────┘
if %b% geq 100 goto num2
ping /n 0 127.1 >nul

set /a sum =5
goto start

:_exit
set /a sum-=1
set/p=%sum% 秒后退出! <nul
echo.
if %sum% EQU 0 exit
ping /n 2 127.1 >nul
goto _exit

rem 冲到一半再缩，冲到一半再加
:num2
setlocal EnableDelayedexpansion
set sum=
Set z=
set a=■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
set /a z1=52
set /a z2=52
:start2
cls
set sum52=
set /a z2=52
set /a sum+=1
set /a z1-=1
set b=!a:~%sum%!
set c=!a:~-%sum%!
call :_color
echo.
echo.
echo 剩余进度:%z1%%%
echo ┌──────────────────────────────────────────────────────┐
echo   %b%  %z1%%%
echo └──────────────────────────────────────────────────────┘
echo             当前颜色代码: COLOR 0!numca!
echo.
echo.
echo 当前进度:%sum%%%
echo ┌──────────────────────────────────────────────────────┐
echo   %c% %sum%%%
echo └──────────────────────────────────────────────────────┘
echo             当前颜色代码: COLOR 0!numca!
if %sum% geq 52 call :sum52
ping /n 0 127.1 >nul
goto start2
:sum52
cls
set sum=
set /a z1=52
set /a sum52+=1
set /a z2-=1
set c=!a:~%sum52%!
set b=!a:~-%sum52%!
call :_color
echo.
echo.
echo 当前进度:%sum52%%%
echo ┌──────────────────────────────────────────────────────┐
echo   %b%  %sum52%%%
echo └──────────────────────────────────────────────────────┘
echo             当前颜色代码: COLOR 0!numca!
echo.
echo.
echo 剩余进度:%z2%%%
echo ┌──────────────────────────────────────────────────────┐
echo   %c% %z2%%%
echo └──────────────────────────────────────────────────────┘
echo             当前颜色代码: COLOR 0!numca!
if %sum52% geq 52 call :start2
ping /n 0 127.1 >nul
cls
goto sum52

:_color
set _color=1234567890ABCDEF
set /a _random=%random%%%16
set numca=!_color:~%_random%,1!
color 0!numca!
goto :eof

haiou327

似曾相识，楼主否从DOS联盟转帖吧。

[ 本帖最后由 haiou327 于 2007-6-2 04:30 PM 编辑 ]

lym0451

呵呵!
进度条=电影胶片的真

jm6275680

我也觉得在哪看过！:)

q8q8feng

很不错的 学习一下:)

sjrw

多谢了。。学习啦

qkl12345

很棒挖  呵呵  收藏起来 标记

华昕

收藏起来，以后有可以用的上的时候。

wxcwm2

:em02 太绚烂了~都眼花了

vbnewer

不错，谢谢分享～～～～～

peak8

确实不错！谢谢分享～～～～～

logoer

同意2楼兄弟意见~
MS见过滴~

lzys

看看，，，不错．．．呵呵:) :)

bile_liang

似乎一直都不停下去吧

ybsice_123

学习一下。谢谢/

其它用其它工具也可以做到。不过自已动手丰衣足食嘛

独孤一鸿

疯狂的占用cpu啊！！！

d590520

学习一下，不知有什么用处？

Halloween

如此的经典就是要顶！！！！！！！！！！！！！！

hcjdx

真是高高手！！！！！！！！！！！！

loony

的确不错，非常感谢啊！

wuzuhai

好啊。这样的啊在解压缩的时候就有进度条啊。

古友

真是高！  证明转贴的人也是高手。

pchome2000

不错的 学习一下      :)

瑶哥

不错的说~~~`i~

zthgg

强啊，编程真是门艺术

xiaodi

以前看过 很好看 一闪闪的 看了眼睛不怎么舒服:) :)

水啊水

学习了,批处理的最高境界有了啊!

aohch

正好学习学习,支持一下!

laulaya

DOS研究必学

CMD

很不错，但，得花点时间来学学！！！！！！！！