联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
@echo off&mode con: cols=100 lines=30 echo.&color 1f&title 天佑中华 set var=abcdef set /p= <nul>● setlocal enabledelayedexpansion for /f "skip=22 delims=" %%a in ('type "%~0"') do ( set /a m+=1 call :loop %%a echo. if !m! equ 11 echo.&echo.&echo. ) pause>nul&exit :loop if "%1"=="" goto :eof set /a w=%random%%%5+1 set h=!var:~%w%,1! for /f "tokens=1,2 delims=-" %%a in ("%~1") do ( for /l %%l in (1 1 %%a) do set /p= <nul for /l %%l in (1 1 %%b) do findstr /a:%h% . ●* ) shift goto loop 7-1 4-1 14-1 6-4 6-9 12-1 4-1 7-1 4-1 2-1 6-5 2-1 4-1 14-1 12-11 5-1 6-1 4-1 6-1 8-4 14-1 18-1 6-1 5-9 4-1 8-1 4-1 14-1 16-1 2-1 2-1 4-1 3-2 6-1 12-4 2-1 2-2 4-11 4-3 4-3 1-1 2-1 6-1 20-1 21-1 16-1 2-1 4-1 2-1 5-1 6-2 10-9 12-1 2-1 12-4 2-5 5-1 4-1 4-1 16-1 20-1 2-1 5-1 4-1 4-1 10-7 12-1 6-1 10-1 2-1 2-1 4-2 5-1 2-1 8-1 14-1 16-1 10-1 8-1 2-1 4-1 2-1 2-1 5-2 12-1 2-11 2-2 14-2 2-1 4-6 2-1 5-1 6-1 18-1 2-1 2-1 16-1 18-1 4-1 5-1 6-1 10-4 4-1 4-1 14-1 16-1 6-1 4-1 5-9 8-1 4-1 12-9 6-2 6-1 2-1 3-2 6-1 10-11 4-1 6-1 6-1 4-1 2-1 4-3 4-1 3-2 4-1 18-1 4-1 12-1 6-1 6-1 8-3 2-1 6-1 1-1 2-1 4-5 10-1 2-2 4-1 6-1 6-1 6-1 8-1 6-1 0-4 5-1 2-2 6-1 8-3 2-1 2-1 8-9 14-1 5-2 2-1 6-1 4-2 2-1 6-1 18-1 12-11 5-1 4-1 6-1 10-1 4-2 4-1 12-1 22-1 5-1 4-1 6-1 10-3 4-1 2-1 12-1 22-1 5-1 4-5 6-3 10-2 12-1 22-1