中国DOS联盟

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

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

游客 注册 登录 会员 网志 搜索 命令提示符 上传 统计
中国DOS联盟论坛
现在时间是 2026-06-13 22:37
欢迎新会员 ningbo0319　RSS
共 47,998 篇主题 / 350,063 篇帖子 / 今日 0 篇 / 48,210 位会员
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 再来个彩色的小动画[己更新为调用函数]
1 2 下一页 › 推荐给朋友 分享到 X 分享到 微博 分享到 Telegram 分享到 QQ空间 复制链接 二维码
楼 主 再来个彩色的小动画[己更新为调用函数] 发表于 2008-04-23 19:20　·　 中国 湖南 株洲 电信
bat-zw
金牌会员
★★★★
永远的学习者
积分 3,105
发帖 1,276
注册 2008-03-08 13:00
UID 112398
性别 男
状态 离线
未及细做，先发了：
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
在六楼已更新至调用函数（最大程度上简化化码）
@echo off&color 0c&mode con cols=45 lines=5&title 小动画

set a=●&set b=○&set clo=0123456789abcdef

set "f1=for /l %%i in (1,1,10) do"&set "f2=for /l %%i in (1,1,20) do"

set "f3=for /l %%i in (1,1,40) do"

set "f4=for /l %%i in (1,1,5) do"

set "sp=set /p= <nul"

:begin

set /a m=%random%%%16

call,color 0%%clo:~%m%,1%%

cls&echo.&call,echo       

echo.

call :lp

%f2% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul

%f3% %sp%

call :lp

%f2% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul

%f3% %sp%

call :lp

%f1% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul

call :lp

%f1% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul

%f3% %sp%

call :lp

%f1% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul

call :lp

%f1% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul

%f3% %sp%

call :lp

%f2% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul

%f2% %sp%

call :lp

%f1% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul

%f3% %sp%

call :lp

%f2% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul

%f2% %sp%

call :lp

%f1% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul

%f3% %sp%

goto begin

:lp

set /a n=%random%%%16

call,set c=%%clo:~%n%,1%%


[ Last edited by zw19750516 on 2008-4-24 at 05:32 PM ]
本帖最近评分记录 （共 2 条） 点击查看详情
评分人分数时间
huahua0919 +4 2008-04-23 19:26
523066680 +8 2008-07-30 11:54
批处理之家新域名：www.bathome.net
第 2 楼 发表于 2008-04-23 19:26　·　 中国 江苏 苏州 移动
huahua0919
银牌会员
★★★
积分 1,608
发帖 780
注册 2007-10-07 10:19
UID 99089
性别 男
状态 离线
命令用的好熟悉
第 3 楼 再加一点变化： 发表于 2008-04-23 22:36　·　 中国 湖南 株洲 电信
bat-zw
金牌会员
★★★★
永远的学习者
积分 3,105
发帖 1,276
注册 2008-03-08 13:00
UID 112398
性别 男
状态 离线
@echo off&color 0c&mode con cols=45 lines=5&title 小动画

set a=●&set b=○&set clo=0123456789abcdef

set "f1=for /l %%i in (1,1,10) do"&set "f2=for /l %%i in (1,1,20) do"

set "f3=for /l %%i in (1,1,40) do"

set "sp=set /p= <nul"

:begin

set /a m=%random%%%16

call,color 0%%clo:~%m%,1%%

cls&echo.&echo       

echo.

call :lp

%f2% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul

%f3% %sp%

call :lp

%f2% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul

%f3% %sp%

call :lp

%f1% %sp%>%a%%b%&findstr /a:%c% .* "%a%%b%*" 2>nul

%f3% %sp%

call :lp

%f1% %sp%>%b%%a%&findstr /a:%c% .* "%b%%a%*" 2>nul

%f3% %sp%

call :lp

%f1% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul

call :lp

%f1% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul

%f3% %sp%

call :lp

%f1% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul

call :lp

%f1% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul

%f3% %sp%

call :lp

%f2% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul

%f2% %sp%

call :lp

%f1% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul

%f3% %sp%

call :lp

%f2% %sp%>%a%&findstr /a:%c% .* "%a%*" 2>nul

%f2% %sp%

call :lp

%f1% %sp%>%b%&findstr /a:%c% .* "%b%*" 2>nul

%f3% %sp%

goto begin

:lp

set /a n=%random%%%16

call,set c=%%clo:~%n%,1%%

del /q %a% %b% %a%%b% %b%%a% 2>nul


[ Last edited by zw19750516 on 2008-4-23 at 10:45 PM ]
批处理之家新域名：www.bathome.net
第 4 楼 发表于 2008-04-23 22:43　·　 中国 陕西 西安 电信
plp626
银牌会员
★★★★
钻石会员
积分 2,278
发帖 1,020
注册 2007-11-19 13:34
UID 103127
性别 男
状态 离线
建议兄把代码精简下，这样的代码很重复：
不然那个colstr函数白写了
山外有山，人外有人；低调做人，努力做事。

进入网盘(各种工具)~~ 空间~~cmd学习
第 5 楼 发表于 2008-04-23 22:46　·　 中国 湖南 株洲 电信
bat-zw
金牌会员
★★★★
永远的学习者
积分 3,105
发帖 1,276
注册 2008-03-08 13:00
UID 112398
性别 男
状态 离线
我不要那个函数，不怎么好用，我还是自己来写个吧。
批处理之家新域名：www.bathome.net
第 6 楼 发表于 2008-04-23 22:56　·　 中国 陕西 西安 电信
plp626
银牌会员
★★★★
钻石会员
积分 2,278
发帖 1,020
注册 2007-11-19 13:34
UID 103127
性别 男
状态 离线
哎，无奈......
山外有山，人外有人；低调做人，努力做事。

进入网盘(各种工具)~~ 空间~~cmd学习
第 7 楼 更新至函数： 发表于 2008-04-24 17:28　·　 中国 湖南 株洲 电信
bat-zw
金牌会员
★★★★
永远的学习者
积分 3,105
发帖 1,276
注册 2008-03-08 13:00
UID 112398
性别 男
状态 离线
@echo off&color 0c&mode con cols=45 lines=5&title 小动画

set a=●&set b=○&set clo=0123456789abcdef

:begin

set /a m=%random%%%16

if "%m%"=="0" goto begin

call,color 0%%clo:~%m%,1%%

cls&echo.&echo       

echo.

call :lp 20 %%a%% 40

call :lp 20 %%b%% 40

call :lp 20 %%a%% 40

call :lp 20 %%b%% 40

call :lp 10 %%a%%%%b%% 40

call :lp 10 %%b%%%%a%% 40

call :lp 10 %%a%%%%b%% 40

call :lp 10 %%b%%%%a%% 40

call :lp 20 %%a%% 20

call :lp 10 %%b%% 40

call :lp 20 %%b%% 20

call :lp 10 %%a%% 40

call :lp 10 %%a%%

call :lp 10 %%b%% 40

call :lp 10 %%a%%

call :lp 10 %%b%% 40  

call :lp 10 %%b%%

call :lp 10 %%a%% 40

call :lp 10 %%b%%

call :lp 10 %%a%% 40

goto begin  

:lp

set /a m=%random%%%16

if "%m%"=="0" goto lp

for /l %%i in (1,1,%1) do set /p= <nul>%2&findstr /a:%m% .* "%2*" 2>nul

for /l %%i in (1,1,%3) do set /p= <nul

del /q %a% %b% %a%%b% %b%%a% 2>nul


[ Last edited by zw19750516 on 2008-4-26 at 12:18 PM ]
批处理之家新域名：www.bathome.net
第 8 楼 什么是牛人？ 发表于 2008-04-24 18:12　·　 中国 陕西 西安 联通
rootkit
初级用户
★
积分 63
发帖 32
注册 2007-12-21 20:57
UID 106402
性别 男
状态 离线
楼上就是！
不过，怎么还在目录下生成 一个怪怪的文件--○●
第 9 楼 发表于 2008-04-25 13:39　·　 中国 广西 百色 中移铁通
moniuming
银牌会员
★★★
永远的菜鸟
积分 1,335
发帖 574
注册 2007-11-27 12:50
UID 103929
性别 男
来自 广西
状态 离线
Originally posted by zw19750516 at 2008-4-24 17:28:
@echo off&color 0c&mode con cols=45 lines=5&title 小动画

set a=●&set b=○&set clo=0123456789abcdef

:begin

set /a m=%random%%%16

call if "%m%"=="0& ...

call if "%m%"=="0" goto begin

[ Last edited by moniuming on 2008-4-25 at 01:44 PM ]
第 10 楼 发表于 2008-04-25 14:03　·　 中国 广东 揭阳 电信
523066680
银牌会员
★★★★
SuperCleaner
积分 2,362
发帖 1,133
注册 2008-02-02 21:36
UID 110072
性别 男
状态 离线
超级酷！~
第 11 楼 发表于 2008-04-25 14:10　·　 中国 江西 赣州 安远县 电信
tireless
银牌会员
★★★★
积分 2,025
发帖 1,122
注册 2007-09-05 20:15
UID 96653
性别 男
状态 离线
CPU飙100
第 12 楼 发表于 2008-04-25 15:19　·　 中国 江西 赣州 安远县 电信
tireless
银牌会员
★★★★
积分 2,025
发帖 1,122
注册 2007-09-05 20:15
UID 96653
性别 男
状态 离线
这个。。。是不是会修改什么东西？在运行完这个脚本后，系统里的字体变了，变得更黑、更浑圆，有点像微软雅黑

可能也只是我的显示器或电脑坏了 :(
第 13 楼 发表于 2008-04-25 15:33　·　 中国 湖南 株洲 电信
bat-zw
金牌会员
★★★★
永远的学习者
积分 3,105
发帖 1,276
注册 2008-03-08 13:00
UID 112398
性别 男
状态 离线
Originally posted by tireless at 2008-4-25 15:19:
这个。。。是不是会修改什么东西？在运行完这个脚本后，系统里的字体变了，变得更黑、更浑圆，有点像微软雅黑

可能也只是我的显示器或电脑坏了 :(

绝对不会，你仔细看下lp函数部分，就是输出显示，你这个问题应该是你系统出了什么毛病。

[ Last edited by zw19750516 on 2008-4-25 at 03:36 PM ]
批处理之家新域名：www.bathome.net
第 14 楼 发表于 2008-04-25 17:03　·　 中国 江西 赣州 电信
tireless
银牌会员
★★★★
积分 2,025
发帖 1,122
注册 2007-09-05 20:15
UID 96653
性别 男
状态 离线
咦！好了。离开了会电脑，再回来就好了。。。按照这个思路推理好像就是我的眼睛的问题了 -_-#
第 15 楼 发表于 2008-04-29 17:43　·　 中国 广东 东莞 电信
jfm034
新手上路
★
积分 16
发帖 8
注册 2006-12-07 00:46
UID 72764
性别 男
状态 离线
新手上路。

看着有点头晕。

看来得好好学习。。
1 2 下一页 ›
可打印版本 | 订阅主题 | 收藏主题
论坛跳转:
[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001–2023