![]() |
中国DOS联盟-- 联合DOS 推动DOS 发展DOS --联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum |
| 游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟 |
|
中国DOS联盟论坛 现在时间是 2026-08-07 05:35 |
共 48,040 主题排行 / 350,125 发帖 / 今日 1 篇 / 48,252 会员排行 |
| DOS批处理 & 脚本技术(批处理室) » 转贴------光棍节 特效 |
| 可打印版本 829 / 2 |
| 第1楼 mayu2004 | 发表于 2007-12-22 17:03 |
| 初级用户 发帖 40 积分 109 | |
|
转贴------光棍节 特效 特效 转的 很好 玩
可以自己修改 str 可 接着 增加 数目 for /l %%i in (1 1 8) do call :ShowStr "!str%%i!" 那个 8 要 改成 你改后的数目 ::code by youxi01@bbs.bathome.cn ::光棍节无聊,没人陪玩...... ::动画雏形,待完善.... @echo off setlocal enabledelayedexpansion title 放弃... color 0a echo. echo. 一个人的生活... echo. for /l %%i in (1 1 70) do set /p=^|<nul for /l %%i in (1 1 70) do set /p=<nul set "str1=TO You" set "str2=或许是上天的安排,给了我一个转身的机会" set "str3=而就在那转身的瞬间我爱上了你..." set "str4=而就在那转身的瞬间你也爱上了我..." set "str5=也许是上天的注定" set "str6=也许是痛苦的开始" set "str7=但爱了你就不后悔..." set "str8=END...→→→→→→" for /l %%i in (1 1 8) do call :ShowStr "!str%%i!" pause>nul :TimeDelay 次数 for /l %%i in (1 1 %1) do ver>nul goto :eof :GetBytes OBJ set "var=%~1" set /a bytes=0,strlen=0 for /l %%i in (0 1 200) do ( set "var_=!var:~%%i,1!" if "!var_!"=="" goto :eof if !var_! gtr Z (set /a bytes+=2) else set /a bytes+=1 set /a strlen+=1 ) goto :eof :ShowStr str set "str=%~1" call :GetBytes "!str!" for /l %%i in (0 1 !strlen!) do set /p=!str:~%%i,1!<nul& call :TimeDelay 150 ping 127.255.255.255 -n 1 -w 1000 >nul for /l %%i in (0 1 70) do set /p=<nul for /l %%i in (0 1 !strlen!) do ( set test1=!str:~0,-%%i! set test2=!str:~-%%i! if !test2! gtr Z (set "test1=!test1!^|^|") else set "test1=!test1!^|" set /p=!test1!<nul& call :TimeDelay 50 for /l %%i in (1 1 70) do set /p=<nul ) |
|
| 第2楼 JIANHUILAI | 发表于 2008-01-13 19:43 |
| 初级用户 发帖 51 积分 116 | |
|
VERY GOOD
|
|
| 第3楼 qzwqzw | 发表于 2008-01-13 23:01 |
| 银牌会员 发帖 636 积分 2,343 | |
|
[ 联系联盟系统管理团队 -
中国DOS联盟 -
标准版 ] Sponsored by ifanr Inc | © 2001–2023 |