中国DOS联盟

@echo off&color 5f&mode con cols=50 lines=8
title 彩票号码选取器
:begin
if exist n.txt del n.txt
cd. >n.txt
cls
set a=35
echo.&echo.&echo.
set /p a=请输入在多少个数中选择（默认回车为35）：
set /a a=a+1
cls
set b=7
echo.&echo.&echo.
set /p b=请输入选择多少个数（默认回车为7）：
for /l %%i in (1,1,%b%) do call :select
cls
set /p namber=<n.txt
find "%namber%" a.txt >nul
if errorlevel 1 goto show
if errorlevel 0 goto begin
:show
echo.&echo.&echo. >n.txt
echo 选择出的号码为:%namber% >>n.txt
type n.txt
pause&del n.txt
cls
echo.&echo.&echo.
echo 　　　　选择完毕，请按任意键退出！
pause >nul&goto :eof
:select
set /p str=<n.txt
set /a n=%random%%%a
if %n% equ 0 goto select
find "%n%" n.txt >nul
if errorlevel 1 echo %str%%n% >n.txt&goto :eof
if errorlevel 0 goto select

@echo off&color 5f&mode con cols=50 lines=8
title 彩票选号器
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>nul
cls
echo.&echo.&echo.
echo 　　　　选择完毕，请按任意键退出！
pause>nul

@echo off&color 5f&mode con cols=50 lines=8
title 彩票号码选取器
if exist a.txt goto run
echo 0 >a.txt
:run
echo.&echo.&echo.
set /p password=请输入进入密码：
if "%password%"=="cn-dos.net" goto begin
set /p a=<a.txt
set /a a+=1
set /a b=5-a
echo %a% >a.txt
if %a% geq 5 goto wrong
cls
echo.&echo.&echo.
echo 由于没正确输入密码，你仅能使用5次，现在还剩%b%次
ping /n 3 127.1 >nul
:begin
if exist n.txt del n.txt
cd. >n.txt
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 :eof