中国DOS联盟

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

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

中国DOS联盟论坛
现在时间是 2026-07-22 02:15
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » 批处理感情进度条 查看 24,193 回复 207
16 发表于 2006-12-04 11:58 ·  中国 广东 广州 花都区 电信
初级用户
★★
积分 197
发帖 77
注册 2006-09-19 14:02
19年会员
UID 63074
性别 男
状态 离线
强人...连这个也想出来玩
17 发表于 2006-12-04 12:20 ·  中国 北京 朝阳区 联通
高级用户
★★
朦胧的世界
积分 579
发帖 218
注册 2006-10-24 04:29
19年会员
UID 67972
状态 离线
直接发代码好像丢空格?

[ Last edited by tao0610 on 2006-12-4 at 01:11 PM ]
本帖最近评分记录 (共 4 条) 点击查看详情
评分人分数时间
redtek +3 2006-12-04 22:02
cxdgtgqqqf +1 2006-12-17 20:38
axi +2 2007-03-21 10:59
byxyk +2 2007-06-28 22:15
附件
批处理感情进度条.rar (533 bytes, 下载附件所需积分 1 点, 下载次数: 187)

认识自己,降伏自己,改变自己
,才能改变别人!
18 发表于 2006-12-04 14:05 ·  中国 上海 奉贤区 电信
初级用户
积分 65
发帖 18
注册 2006-10-01 13:03
19年会员
UID 64244
状态 离线
里面有源文件啊 两种格式的
一个是exe
一个是bat的
19 发表于 2006-12-04 14:13 ·  中国 北京 朝阳区 联通
高级用户
★★
朦胧的世界
积分 579
发帖 218
注册 2006-10-24 04:29
19年会员
UID 67972
状态 离线
我上面给你简化了一下!

认识自己,降伏自己,改变自己
,才能改变别人!
20 发表于 2006-12-04 14:44 ·  中国 山东 济南 电信
社区乞丐
★★
此图片另存后死机
积分 -49
发帖 90
注册 2006-12-02 13:00
19年会员
UID 72412
性别 男
状态 离线
tao0610

的是脑力活...
21 发表于 2006-12-06 06:29 ·  中国 北京 联通数据上网公共出口
新手上路
积分 4
发帖 2
注册 2006-12-06 05:34
19年会员
UID 72706
性别 男
状态 离线
tao0610

的是脑力活...
哈哈
22 发表于 2006-12-06 07:17 ·  中国 浙江 温州 电信
初级用户
★★
积分 154
发帖 67
注册 2006-10-31 00:50
19年会员
UID 68933
性别 男
状态 离线
呵呵..在此就不做评论了..纯熟娱乐.
23 发表于 2006-12-07 02:37 ·  中国 北京 联通
银牌会员
★★★
努力做坏人
积分 1,185
发帖 438
注册 2006-08-28 12:00
19年会员
UID 61449
来自 北京
状态 离线
其实这样处理效果会更好...........
我今后在论坛的目标就是做个超级坏人!!!
24 发表于 2006-12-07 03:52 ·  中国 河南 郑州 电信
中级用户
★★
积分 439
发帖 170
注册 2006-01-09 20:29
20年会员
UID 48707
状态 离线
好,一个比一个更好
bat c c++
25 发表于 2006-12-07 05:48 ·  中国 福建 厦门 电信
中级用户
★★
积分 480
发帖 197
注册 2006-09-20 00:40
19年会员
UID 63115
来自 黄冈
状态 离线
楼主用PING来达到延时的效果

不错
26 发表于 2006-12-09 11:34 ·  中国 江苏 常州 溧阳市 电信
新手上路
积分 8
发帖 4
注册 2006-12-07 10:27
19年会员
UID 72823
性别 男
状态 离线
好东西,我顶
27 发表于 2006-12-25 21:51 ·  中国 辽宁 联通
银牌会员
★★★
积分 1,212
发帖 464
注册 2006-12-13 21:11
19年会员
UID 73417
性别 男
状态 离线
都不错,学习.
28 发表于 2006-12-26 00:25 ·  中国 山西 太原 联通
初级用户
积分 51
发帖 20
注册 2006-12-07 01:09
19年会员
UID 72766
性别 男
状态 离线
纯支持
29 发表于 2006-12-26 01:08 ·  中国 福建 福州 连江县 电信
初级用户
积分 58
发帖 22
注册 2005-12-15 13:29
20年会员
UID 47187
状态 离线
批处理感情进度条.rar

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

[ Last edited by win2ye on 2006-12-26 at 01:09 AM ]
30 发表于 2007-02-13 11:55 ·  中国 广东 东莞 电信
初级用户
积分 60
发帖 23
注册 2007-02-12 12:58
19年会员
UID 79310
性别 男
状态 离线
以下是引用片段:
@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
论坛跳转: