[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
来参与啦。
  1. @echo off &setlocal enabledelayedexpansion
  2. color 17 &mode con cols=60 lines=30
  3. for /l %%a in (1,1,60) do (set space= !space!)
  4. set /a La=14,Lb=28,Ca=29,Cb=56,r=1,r2=2
  5. :loop
  6. if %La% lss 28 (set /a La+=r2,line=La) else (set /a Lb-=r2,line=Lb)
  7. if %Lb% leq 1 (set /a La=-1,Lb=29,r=%random%%%3+2,r2=r%%2+1)
  8. if %Ca% lss 55 (set /a Ca+=r,col=Ca) else (set /a Cb-=r,col=Cb)
  9. if %Cb% leq 4 (set /a Ca=0,Cb=56,r=%random%%%3+1)
  10.     cls
  11.     for /l %%a in (1,1,%line%) do echo,
  12.     echo,!space:~0,%col%!●
  13.     ping -n 1 127.1>nul
  14. goto :loop
复制代码
[url=][/url]

TOP

返回列表