中国DOS联盟

@echo off&color 5f&mode con cols=50 lines=8
title 彩票选号器
if not "%~1"=="" goto loop
set /a a=35,b=7
setlocal EnableDelayedExpansion
set /p a=请输入在多少个数中选择（默认回车为35）：
set /p b=请输入选择多少个数（默认回车为7）：&cls
:loop
if not "%~1"=="" (
  for /l %%a in (1 1 %a%) do call echo %%random%% %%a
  goto :eof
) else (
    for /f "tokens=2" %%i in ('"%~0" n^|sort /r') do (
      set /a b-=1
      if !b! geq 0 set str=!str! %%i
    )
)
echo\&echo 选择出的号码为: %str%
echo\&echo 按任意键重选。。。
pause>nul

@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