原创彩票选号器 - 中国DOS联盟论坛 - 中国DOS联盟之联合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

注：存为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 ]

LZ写的不错，就是没有设置循环，每次只能选一次，然后又要重新打开才行。我也写了一个排列5的彩票批处理。http://www.cn-dos.net/forum/viewthread.php?tid=39537&fpage=1&highlight=%E5%BD%A9%E7%A5%A8，

第16楼　26933062	发表于 2008-03-28 22:36
银牌会员　发帖 879　积分 2,268
@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

第17楼　bat-zw	发表于 2008-03-29 03:18
金牌会员　发帖 1,276　积分 3,105
无任何临时文件的完善版（有次数限制和密码认证）注：存为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 ]

第18楼　clian76	发表于 2008-04-29 14:23
中级用户　发帖 162　积分 363
LZ写的不错，就是没有设置循环，每次只能选一次，然后又要重新打开才行。我也写了一个排列5的彩票批处理。http://www.cn-dos.net/forum/viewthread.php?tid=39537&fpage=1&highlight=%E5%BD%A9%E7%A5%A8，