中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
« [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... [14] »
作者:
标题: 批处理感情进度条 上一主题 | 下一主题
bbq123bbq
初级用户




积分 197
发帖 77
注册 2006-9-19
状态 离线
『第 16 楼』:  

强人...连这个也想出来玩

2006-12-4 11:58
查看资料  发送邮件  发短消息 网志   编辑帖子
tao0610
高级用户

朦胧的世界


积分 579
发帖 218
注册 2006-10-24
状态 离线
『第 17 楼』:  

直接发代码好像丢空格?

[ Last edited by tao0610 on 2006-12-4 at 01:11 PM ]

   此帖被 +8 点积分       点击查看详情   
评分人:【 redtek 分数: +3  时间:2006-12-4 22:02
评分人:【 cxdgtgqqqf 分数: +1  时间:2006-12-17 20:38
评分人:【 axi 分数: +2  时间:2007-3-21 10:59
评分人:【 byxyk 分数: +2  时间:2007-6-28 22:15


附件 1: 批处理感情进度条.rar (2006-12-4 13:11, 533 bytes, 下载附件所需积分 1 点 ,下载次数: 187)



认识自己,降伏自己,改变自己
,才能改变别人!
2006-12-4 12:20
查看资料  发短消息 网志   编辑帖子
maobin
初级用户





积分 65
发帖 18
注册 2006-10-1
状态 离线
『第 18 楼』:  

里面有源文件啊 两种格式的
一个是exe
一个是bat的

2006-12-4 14:05
查看资料  发送邮件  发短消息 网志   编辑帖子
tao0610
高级用户

朦胧的世界


积分 579
发帖 218
注册 2006-10-24
状态 离线
『第 19 楼』:  

我上面给你简化了一下!




认识自己,降伏自己,改变自己
,才能改变别人!
2006-12-4 14:13
查看资料  发短消息 网志   编辑帖子
tghksj
社区乞丐

此图片另存后死机



积分 -49
发帖 90
注册 2006-12-2
状态 离线
『第 20 楼』:  

tao0610

的是脑力活...

2006-12-4 14:44
查看资料  发送邮件  发短消息 网志   编辑帖子
aheng
新手上路





积分 4
发帖 2
注册 2006-12-6
状态 离线
『第 21 楼』:  

tao0610

的是脑力活...
  哈哈

2006-12-6 06:29
查看资料  发送邮件  发短消息 网志   编辑帖子
newaifi
初级用户





积分 154
发帖 67
注册 2006-10-31
状态 离线
『第 22 楼』:  

呵呵..在此就不做评论了..纯熟娱乐.

2006-12-6 07:17
查看资料  发短消息 网志   编辑帖子
9527
银牌会员

努力做坏人


积分 1185
发帖 438
注册 2006-8-28
来自 北京
状态 离线
『第 23 楼』:  

其实这样处理效果会更好...........



我今后在论坛的目标就是做个超级坏人!!!
2006-12-7 02:37
查看资料  发短消息 网志  OICQ (329429)  编辑帖子
a9319751
中级用户





积分 439
发帖 170
注册 2006-1-9
状态 离线
『第 24 楼』:  

好,一个比一个更好



bat c c++
2006-12-7 03:52
查看资料  发送邮件  发短消息 网志  OICQ (5040366)  编辑帖子
barton
中级用户





积分 480
发帖 197
注册 2006-9-20
来自 黄冈
状态 离线
『第 25 楼』:  

楼主用PING来达到延时的效果

不错

2006-12-7 05:48
查看资料  发短消息 网志   编辑帖子
falwpeihc
新手上路





积分 8
发帖 4
注册 2006-12-7
状态 离线
『第 26 楼』:  

好东西,我顶

2006-12-9 11:34
查看资料  发送邮件  发短消息 网志   编辑帖子
jmz573515
银牌会员




积分 1212
发帖 464
注册 2006-12-13
状态 离线
『第 27 楼』:  

都不错,学习.

2006-12-25 21:51
查看资料  发送邮件  发短消息 网志   编辑帖子
lcazhj
初级用户





积分 51
发帖 20
注册 2006-12-7
状态 离线
『第 28 楼』:  

纯支持

2006-12-26 00:25
查看资料  发送邮件  发短消息 网志   编辑帖子
win2ye
初级用户





积分 58
发帖 22
注册 2005-12-15
状态 离线
『第 29 楼』:  

批处理感情进度条.rar

一下载完瑞星2007提示:Trojan.BAT.DelFiles.am

[ Last edited by win2ye on 2006-12-26 at 01:09 AM ]

2006-12-26 01:08
查看资料  发短消息 网志   编辑帖子
jention
初级用户





积分 60
发帖 23
注册 2007-2-12
状态 离线
『第 30 楼』:  

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

2007-2-13 11:55
查看资料  发送邮件  发短消息 网志   编辑帖子
« [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... [14] »
请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: