@echo off&mode con cols=42 lines=10
title 程序写入中...
set tu=■
set code=123456789abcdef
:begin
set /a num=%random%%%2
call,set str=%str%%num%
set /a n+=1
if %n% lss 40 goto begin
set /a num1=%random%%%15
call,set a=%%code:~%num1%,1%%
set /p= <nul>%str%&findstr /a:%a% .* %str%* 2>nul
set /a m+=1&call :lp
title %x%
set x=
if %m% equ 18 set m=0
echo.
del /q %str%
set str=&set n=0&goto begin
:lp
for /l %%i in (1,1,%m%) do call,set x=%%x%%%tu%
[ Last edited by zw19750516 on 2008-5-24 at 08:13 PM ]
本帖最近评分记录
（共 1 条）
点击查看详情
| 评分人 | 分数 | 时间 |
|---|---|---|
| WANKOILZ | +1 | 2008-05-24 21:14 |
批处理之家新域名：www.bathome.net