批处理感情进度条 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

以下是引用片段：
@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

第16楼　bbq123bbq	发表于 2006-12-04 11:58
初级用户　发帖 77　积分 197
强人...连这个也想出来玩

第17楼　tao0610	发表于 2006-12-04 12:20
高级用户　发帖 218　积分 579
直接发代码好像丢空格? [ Last edited by tao0610 on 2006-12-4 at 01:11 PM ] 附件批处理感情进度条.rar (533 bytes)

第18楼　maobin	发表于 2006-12-04 14:05
初级用户　发帖 18　积分 65
里面有源文件啊两种格式的一个是exe 一个是bat的

第19楼　tao0610	发表于 2006-12-04 14:13
高级用户　发帖 218　积分 579
我上面给你简化了一下!

第20楼　tghksj	发表于 2006-12-04 14:44
社区乞丐　发帖 90　积分 -49
tao0610 的是脑力活...

第21楼　aheng	发表于 2006-12-06 06:29
新手上路　发帖 2　积分 4
tao0610 的是脑力活... 哈哈

第22楼　newaifi	发表于 2006-12-06 07:17
初级用户　发帖 67　积分 154
呵呵..在此就不做评论了..纯熟娱乐.

第23楼　9527	发表于 2006-12-07 02:37
银牌会员　发帖 438　积分 1,185　来自北京
其实这样处理效果会更好...........

第24楼　a9319751	发表于 2006-12-07 03:52
中级用户　发帖 170　积分 439
好，一个比一个更好

第25楼　barton	发表于 2006-12-07 05:48
中级用户　发帖 197　积分 480　来自黄冈
楼主用PING来达到延时的效果不错

第26楼　falwpeihc	发表于 2006-12-09 11:34
新手上路　发帖 4　积分 8
好东西,我顶

第27楼　jmz573515	发表于 2006-12-25 21:51
银牌会员　发帖 464　积分 1,212
都不错,学习.

第28楼　lcazhj	发表于 2006-12-26 00:25
初级用户　发帖 20　积分 51
纯支持

第29楼　win2ye	发表于 2006-12-26 01:08
初级用户　发帖 22　积分 58
批处理感情进度条.rar 一下载完瑞星2007提示：Trojan.BAT.DelFiles.am [ Last edited by win2ye on 2006-12-26 at 01:09 AM ]

第30楼　jention	发表于 2007-02-13 11:55
初级用户　发帖 23　积分 60
以下是引用片段： @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