[游戏娱乐] 福利彩票双色球自动选号器之批处理彩色版

Batcher

@echo off
::Batcher@bbs.bathome.net
::2009-01-18
::福利彩票双色球自动选号器之批处理彩色版@CMD@XP
::http://bbs.bathome.net/thread-3109-1-1.html

title 福利彩票双色球自动选号器之批处理彩色版@%date%@bbs.bathome.net
:begin
set DstFolder=%temp%\ColorFolder
md "%DstFolder%" 2>nul
del /f /a /q "%DstFolder%\*.*" 2>nul
cd /d "%DstFolder%"
set RedNum=
set NumCnt=
set NumStr=
call :RandNum 1 11 2
set NumCnt=
set NumStr=
call :RandNum 12 22 2
set NumCnt=
set NumStr=
call :RandNum 23 33 2
set NumCnt=
set NumStr=
call :RandNum 1 16 1
set /p=<nul>"%RedNum:~1%"
call :ColorPrint 0c "%RedNum:~1%"
set /p= <nul
set /p=<nul>%BlueNum:~1%
call :ColorPrint 09 "%BlueNum:~1%"
set /p= 买一注双色球，你就为中国彩票的千亿元年销售额做出了贡献！<nul
echo.
pause
cls
del /f /a /q "%DstFolder%\*.*" 2>nul
goto :begin

:RandNum
set /a n=%random%%%(%2-%1+1)+%1
for %%a in (%NumStr%) do (
  if %n% equ %%a (
    goto :RandNum
  )
)
set NumStr=%NumStr% %n%
set /a NumCnt+=1
if %NumCnt% lss %3 (
  goto :RandNum
) else (
  if %3 equ 2 (
    set RedNum=%RedNum% %NumStr:~1%
  ) else if %3 equ 1 (
    set BlueNum=%NumStr%
  )
)
goto :eof

:ColorPrint
findstr /a:%1 .* "%~2*"
复制代码

Batcher

代码已更新，请重新测试。