呵呵,youxi 给你缩缩水
:- @echo off&setlocal enabledelayedexpansion
- for /l %%i in (1 1 40) do call set ko= %%ko%%
- set "str=%ko%欢迎光临论坛:bbs.bathome.net "
- set bt=右&set "bt2=左"&color 1f
- echo\&echo\&echo\&echo\&echo\&echo\&echo\
- :lis
- set bt=%bt2%&set bt2=%bt%
- title bbs.bathome.net -- 字符正在往!bt!移...
- for /l %%i in (1 1 30) do (
- set /p=!str!<nul
- for /l %%a in (1 1 100) do ver>nul
- for /l %%a in (1 1 100) do set /p=<nul
- if "!bt!"=="左" (set str=!str:~1,-1! ) else (set str= !str!)
- )
- goto lis
复制代码
[ 本帖最后由 随风 于 2007-12-16 04:33 编辑 ] |