注：存为b.bat
@echo off&color 5f&mode con cols=50 lines=8
title 彩票号码选取器
echo.&echo.&echo.
set /p password=请输入进入密码：
if "%password%"=="cn-dos.net" goto begin
for /f "tokens=2" %%i in (b.bat) do (
set a=%%i
)
set /a a+=1
set /a b=5-a
if %a% geq 5 goto wrong
echo goto %a% ^>nul 2^>nul >>b.bat
cls
echo.&echo.&echo.
echo 由于没正确输入密码，你仅能使用5次，现在还剩%b%次
ping /n 3 127.1 >nul
:begin
cls
set a=35
echo.&echo.&echo.
set /p a=请输入在多少个数中选择（默认回车为35）：
cls
set b=7
echo.&echo.&echo.
set /p b=请输入选择多少个数（默认回车为7）：
:loop
set /a n=%random%%%a+1
for %%i in (%str%) do if "%n%" == "%%i" goto loop
set str=%str% %n%
set /a m+=1
if %m% lss %b% goto loop
cls
echo.&echo.&echo.
echo 选择出的号码为: %str%
pause
cls
echo.&echo.&echo.
echo 选择完毕，请按任意键退出！
pause >nul&goto :eof
:wrong
cls
echo.&echo.&echo.
echo 对不起，你无权再使用本软件!
ping /n 3 127.1 >nul
goto 0 >nul 2>nul&goto :eof
Last edited by zw19750516 on 2008-3-29 at 03:29 AM ]
