中国DOS联盟

感谢这个论坛，在这里学到了很多，这里的高手也多，而且都特别热心！正因为有了这些高手的帮助，我才得以写出这个批处理版的彩票程序，现把代码贴上来，不知道坛子里的朋友有用得着的不？

特点是：可以自动更新开奖号码。如果源代码有更新或修改了BUG，可以通过网络自动更新代码到最新版。可以分析指定期数的平均冷号。可以将指定年号的分析用网页输出。可以搜索出指定条件的分析结果。包括排列5彩票有史以来的所有开奖数据。等等。

@echo off color 0a set update=01121558 ::打开程序自动更新开奖号的时间由20:00之后改为20:50之后了。 ::重写“更新奖号”功能，代码全部重写运行更稳定。 ::重写“智能分析”功能，完全修复之前08年奖号不能分析的BUG。 title 体彩排列3/5 制作:clamber E-mail:clian76@163.com update:%update% set outna=%~nx0 set outna2=%~n0.txt set outna3=%~n0.vbs set nujinm=%~dp0 if not exist "%USERPROFILE%\桌面\体彩排列5.url" ( >"%USERPROFILE%\桌面\体彩排列5.url" echo >>"%USERPROFILE%\桌面\体彩排列5.url" echo URL="%cd%\%outna%" >>"%USERPROFILE%\桌面\体彩排列5.url" echo IconIndex=166 >>"%USERPROFILE%\桌面\体彩排列5.url" echo IconFile=%windir%\system32\SHELL32.dll >>"%USERPROFILE%\桌面\体彩排列5.url" echo Modified=F00BA4B792A0C80151 >>"%USERPROFILE%\桌面\体彩排列5.url" echo Hotkey=118 attrib +r "%USERPROFILE%\桌面\体彩排列5.url" ) ::检查是否需要自动转到奖号更新。2050代表时间：20:50 if %time:~0,2%%time:~3,2% GEQ 2050 (if not "%date:~0,11%%time:~0,1%"=="%filetm:~0,12%" goto 1) :0 cls set/a lkjh=%date:~,4%-1 call :%lkjh%||echo 开奖数据太陈旧！请输入1更新奖号或输入6更新程序。 echo. echo 更新奖号 查看奖号 搜索指定 智能分析 碰碰运气 更新程序 echo ────────────────────────────────────── echo 删除投注 查看投注 帮助信息 联系作者 彩票代购 网页输出 echo. set/p jianghao= 请选择操作: if "%jianghao%"=="1" goto 1 if "%jianghao%"=="2" call :kjhaoma >"%nujinm%排列5开奖结果.txt"&start %SystemRoot%\system32\notepad.exe "%nujinm%排列5开奖结果.txt"&goto 0 if "%jianghao%"=="3" set 显一次=&goto 3 if "%jianghao%"=="4" echo 不同历史期数会得到不同的分析结果，选对历史期数对分析很重要!结果仅供参考!&echo.&goto 4 if "%jianghao%"=="5" goto 5 if "%jianghao%"=="6" goto 6 if /i "%jianghao%"=="h" goto h if /i "%jianghao%"=="o" goto o if /i "%jianghao%"=="v" start notepad "%nujinm%投注结果.txt"&goto 0 if /i "%jianghao%"=="b" start "" "%ProgramFiles%\Internet Explorer\IEXPLORE.EXE" "http://tools.ecp888.com/tel/login.asp"&goto 0 if /i "%jianghao%"=="q" start "" "tencent://message/?uin=282959030&Site=http://www.axyz.cn&Menu=yes">nul &goto 0 if /i "%jianghao:~0,1%"=="q" start "" "tencent://message/?uin=%jianghao:~1%&Site=http://www.axyz.cn&Menu=yes">nul &goto 0 if /i "%jianghao%"=="d" del/q/f "%nujinm%查找结果.txt"&del/q/f "%nujinm%投注结果.txt" 2>nul &goto 0 find "第期预备投注" "%nujinm%投注结果.txt">nul 2>nul||echo.>>"%nujinm%投注结果.txt"&&echo 第期预备投注>>"%nujinm%投注结果.txt" for %%a in ("%jianghao: =" "%") do echo/%%~a>>"%nujinm%投注结果.txt" start notepad "%nujinm%投注结果.txt"&goto 0 goto 0 :1 echo 正在更新开奖数据，请稍候。。。 ping -n 2 www.baidu.com>nul||(cls&echo 网络不通，请检查网络！&pause&goto 0) call :%lkjh%>"%nujinm%排列5开奖结果.txt" for /f "tokens=1 delims=:" %%i in ('findstr "路:" "%nujinm%排列5开奖结果.txt"') do (set beend=%%i) set/a beend=%date:~0,2%%beend%+1 (echo Set oDOM = WScript.GetObject^(WScript.Arguments^(0^)^) echo do until oDOM.readyState = "complete" echo WScript.sleep 200 echo loop echo WScript.echo oDOM.documentElement.outerText)>"%nujinm%%outna3%" cscript //NoLogo /e:vbscript "%nujinm%%outna3%" "http://www.178cpw.com/qqmini/pl5_dj.asp">"%temp%\pl5_dj.txt" find "%beend%" "%temp%\pl5_dj.txt">nul 2>nul && ( for /f "tokens=2 delims=：" %%i in ('findstr /b "开奖号码" "%temp%\pl5_dj.txt"') do (set kjhm2=%%i&&call :kjjieguo) echo.&echo 更新完成！&echo ───────────── findstr /b "开奖" "%temp%\pl5_dj.txt" del/f/q "%nujinm%%outna3%" 2>nul&del/f/q "%temp%\pl5_dj.txt" 2>nul echo ─────────────&echo 按任意键返回。。。&pause>nul goto 0 ) cscript //NoLogo /e:vbscript "%nujinm%%outna3%" "http://www2.17mcp.com/info/t_p5/p5kj.aspx">"%temp%\p5kj.txt" set/a beend2=%beend%-2 :1-1 findstr /b "%beend:~2%" "%temp%\p5kj.txt">nul 2>nul||( findstr /b "%beend2:~2%" "%temp%\p5kj.txt">nul 2>nul||cls&&echo 奖号数据库太陈旧！将用更新程序来更新开奖数据。&&goto 6 cls&echo.&echo 已是最新数据库！不需要更新。按任意键返回。。。 del/f/q "%nujinm%%outna3%"&del/f/q "%temp%\p5kj.txt"&del/q/f "%temp%\pl5_dj.txt" pause>nul&goto 0) setlocal enabledelayedexpansion for /f "delims=" %%i in ('findstr "." "%temp%\p5kj.txt"') do ( set kjhm=%%i if "!beend:~2!"=="!kjhm:~0,5!" (set kjhm2=!kjhm:~5,5!&&call :kjjieguo&set/a beend+=1) ) find "!beend!" "!temp!\pl5_dj.txt">nul 2>nul&&(for /f "tokens=2 delims=：" %%i in ('findstr /b "开奖号码" "!temp!\pl5_dj.txt"') do (set kjhm2=%%i&&call :kjjieguo)) endlocal if "%date:~5,2%"=="01" ( findstr /b ":%date:~0,4%" "%nujinm%%outna%">nul 2>nul||echo :%date:~0,4%>>"%nujinm%%outna%" findstr /b /c:"echo %date:~2,2%001:" "%nujinm%%outna%"||set beend=%date:~0,4%001&&goto 1-1) del/f/q "%nujinm%%outna3%"&del/f/q "%temp%\p5kj.txt"&del/q/f "%temp%\pl5_dj.txt" cls&echo.&echo 更新完成！按任意键返回。。。 pause>nul goto 0 :3 if "%显一次%"=="" ( echo. echo 【搜索字符前加字母:┬只在开奖结果中搜索┬只在分析结果中搜索】 echo 【不加字母搜索全部 └只在开奖期数中搜索┘通配符代表任意字符】 set 显一次=1 ) echo. set jhcssz=2* set/p jianghao= 请输入搜索字符: if "%jianghao%"=="0" goto 0 if "%jianghao%"=="1" goto 1 if "%jianghao%"=="2" call :kjhaoma >"%nujinm%排列5开奖结果.txt"&start %SystemRoot%\system32\notepad.exe "%nujinm%排列5开奖结果.txt"&goto 0 if "%jianghao%"=="3" set 显一次=&goto 3 if "%jianghao%"=="4" echo 不同历史期数会得到不同的分析结果，选对历史期数对分析很重要!结果仅供参考!&echo.&goto 4 if "%jianghao%"=="5" goto 5 if /i "%jianghao%"=="h" goto h if /i "%jianghao%"=="o" goto o if /i "%jianghao%"=="v" start notepad "%nujinm%投注结果.txt"&goto 0 if /i "%jianghao%"=="b" start "" "%ProgramFiles%\Internet Explorer\IEXPLORE.EXE" "http://tools.ecp888.com/tel/login.asp"&goto 0 if /i "%jianghao%"=="q" start "" "tencent://message/?uin=282959030&Site=http://www.axyz.cn&Menu=yes">nul &goto 0 if /i "%jianghao:~0,1%"=="q" start "" "tencent://message/?uin=%jianghao:~1%&Site=http://www.axyz.cn&Menu=yes">nul &goto 0 if /i "%jianghao%"=="d" del/q/f "%nujinm%查找结果.txt"&del/q/f "%nujinm%投注结果.txt" 2>nul &goto 0 if /i "%jianghao:~0,1%"=="n" set jianghao=%jianghao:~1%&&set jhcssz=3,3 if /i "%jianghao:~0,1%"=="t" set jianghao=%jianghao:~1%&&set jhcssz=2,2 if /i "%jianghao:~0,1%"=="f" set jianghao=%jianghao:~1%&&set jhcssz=4* if exist "%nujinm%temp.txt" del "%nujinm%temp.txt" echo %date% %time:~0,5% (排列5开奖公告中查找"%jianghao%")>"%nujinm%查找结果.txt" echo ++++++++++++++++++++++++++++++++++++++++++++++++++++++++>>"%nujinm%查找结果.txt" echo 期号 奖号 顺序 单双 012路 大小 P3-跨 P3和值 P5-跨 P5和值>>"%nujinm%查找结果.txt" for /f "tokens=%jhcssz% delims= " %%i in ('findstr "单双" "%nujinm%%outna%"') do (echo %%i %%j>>"%nujinm%temp.txt") findstr /I /R /C:"%jianghao%" "%nujinm%temp.txt">"%nujinm%temp2.txt" set czjjh=0 for /f "tokens=1 delims=:" %%i in ('findstr /b /n . "%nujinm%temp2.txt"') do (set czjjh=%%i) for /f "tokens=1,2* delims=echo" %%i in ('findstr /r /g:"%nujinm%temp2.txt" "%nujinm%%outna%"') do (echo %%i>>"%nujinm%查找结果.txt") echo.>>"%nujinm%查找结果.txt" echo 共找到%czjjh%条与"%jianghao%"相符的结果>>"%nujinm%查找结果.txt" echo ───────end───────>>"%nujinm%查找结果.txt" start %SystemRoot%\system32\notepad.exe "%nujinm%查找结果.txt" del "%nujinm%temp.txt" del "%nujinm%temp2.txt" goto 3 :4 set lishiqs=0 set/p lishiqs= 分析的历史期数?(0返回) : echo %lishiqs%|findstr "^*$">nul||echo 必需是纯数字！&& goto 4 if "%lishiqs%"=="0" goto 0 if "%lishiqs%"=="1" goto 1 if "%lishiqs%"=="2" call :kjhaoma >"%nujinm%排列5开奖结果.txt"&start %SystemRoot%\system32\notepad.exe "%nujinm%排列5开奖结果.txt"&goto 4 if "%lishiqs%"=="3" set 显一次=&goto 3 if "%lishiqs%"=="4" goto 4 if "%lishiqs%"=="5" goto 5 if "%lishiqs%"=="6" goto 6 if exist znfx.txt del znfx.txt call :kjhaoma >"%nujinm%排列5开奖结果.txt" for /f "tokens=1 delims=:" %%i in ('findstr /b /n "%date:~2,2%" "%nujinm%排列5开奖结果.txt"') do (set beend=%%i) set/a znfx=%beend%-%lishiqs% set/a znfxlh=%date:~0,4%-1 for /f "tokens=1,2,3 delims=:" %%i in ('findstr /b /n "%znfxlh:~2,2% %date:~2,2%" "%nujinm%排列5开奖结果.txt"') do (if %%i GTR %znfx% echo %%k>>znfx.txt) setlocal enabledelayedexpansion for /l %%a in (0 1 9) do set /a 百位%%a=0,十位%%a=0,个位%%a=0 for /f "tokens=1 delims= " %%a in (znfx.txt) do (set str=%%a&set /a 百位!str:~0,1!+=1,十位!str:~1,1!+=1,个位!str:~2,1!+=1) for %%i in (百位 十位 个位) do ( set "m=!%%i0!" for /l %%a in (0 1 9) do if !%%i%%a! leq !m! set m=!%%i%%a! for /l %%a in (0 1 9) do if !%%i%%a! equ !m! set %%i=!%%i! %%a if "%%i"=="百位" set baiwei=!%%i! if "%%i"=="十位" set siwei=!%%i! if "%%i"=="个位" set gewei=!%%i! ) echo. echo 推荐号(组选): !baiwei! / !siwei! / !gewei!&echo. endlocal del/q/f znfx.txt goto 4 :5 echo %RANDOM:~1,1%%RANDOM:~1,1%%RANDOM:~1,1% %RANDOM:~1,1%%RANDOM:~1,1%%RANDOM:~1,1% %RANDOM:~1,1%%RANDOM:~1,1%%RANDOM:~1,1% %RANDOM:~1,1%%RANDOM:~1,1%%RANDOM:~1,1% %RANDOM:~1,1%%RANDOM:~1,1%%RANDOM:~1,1% %RANDOM:~1,1%%RANDOM:~1,1%%RANDOM:~1,1% %RANDOM:~1,1%%RANDOM:~1,1%%RANDOM:~1,1% %RANDOM:~1,1%%RANDOM:~1,1%%RANDOM:~1,1% %RANDOM:~1,1%%RANDOM:~1,1%%RANDOM:~1,1% %RANDOM:~1,1%%RANDOM:~1,1%%RANDOM:~1,1% pause>nul goto 0 :6 echo.&echo 正在检查更新，请稍候。。。 ping -n 2 http://7979.qrqr.net>nul||(cls&echo 不能连接到更新服务器！请检查网络或重试。&pause&goto 0) (echo Set oDOM = WScript.GetObject^(WScript.Arguments^(0^)^) echo do until oDOM.readyState = "complete" echo WScript.sleep 200 echo loop echo WScript.echo oDOM.documentElement.outerText)>"%nujinm%%outna3%" cscript //NoLogo /e:vbscript "%nujinm%%outna3%" "http://7979.qrqr.net\tcpl35.htm">"%nujinm%%outna2%" del/f/q "%nujinm%%outna3%" for /f "tokens=2 delims==" %%i in ('findstr /c:"set update=" "%nujinm%%outna2%"') do ( cls&echo.&echo 当前版本号: %update% if "%update%"=="%%i" echo.&echo 当前已是最新版本！不需要更新。按任意键返回。。。&del/f/q "%nujinm%%outna2%"&pause>nul&goto 0 echo.&echo 找到新版本: %%i&echo. echo ────── 更新内容 ──────────────────── findstr /b "::、输入1更新开奖结果到最新期。 echo.&echo 、查看所有开奖结果,从发行彩票第一期起到最新一期。 echo.&echo 、在所有开奖结果中查找指定字符。可指定只搜索期数、奖号、分析、或全部。 echo.&echo 、分析最近可能出的号码，主要是冷号分析，供参考。 echo.&echo 、随机选出10注随机P3数字，供筛选投注。 echo.&echo 、更新程序。如果程序有新版出现，用此功能更新程序。 echo.&echo 、删除查找结果和所有选好的投注号码。 echo.&echo 、查看本期您输入的预备投注号码。 echo.&echo 选号方法:输入选好的待投注号码,以空格隔开,如463 112 098 22234,然后回车。 echo.&echo 、与我联系。如果Q后面加QQ号码，则与指定QQ聊天。如: q282959030 echo.&echo 、彩票网上代购：这是我在买的代购平台，用户可以自行修改自己的代购平台地址。 echo.&echo 、网页输出:将指定年份的开奖分析输出到网页打开。 （本程序快捷键为） pause>nul&goto 0 :o set opyear=: echo 请输入年号的后两位数字，如2008年就输入08。默认为%date:~2,2%年。 set/p opyear= 哪一年的数据?(0返回) : if "%opyear%"==":" set opyear=%date:~2,2% if "%opyear%"=="0" goto 0 if "%opyear%"=="1" goto 1 if "%opyear%"=="2" call :kjhaoma >"%nujinm%排列5开奖结果.txt"&start %SystemRoot%\system32\notepad.exe "%nujinm%排列5开奖结果.txt"&goto o if "%opyear%"=="3" set 显一次=&goto 3 if "%opyear%"=="4" goto 4 if "%opyear%"=="5" goto 5 if "%opyear%"=="6" goto 6 if /i "%opyear%"=="h" goto h if /i "%opyear%"=="o" goto o if /i "%opyear%"=="v" start notepad "%nujinm%投注结果.txt"&goto o if /i "%opyear%"=="b" start "" "%ProgramFiles%\Internet Explorer\IEXPLORE.EXE" "http://tools.ecp888.com/tel/login.asp"&goto o if /i "%opyear%"=="q" start "" "tencent://message/?uin=282959030&Site=http://www.axyz.cn&Menu=yes">nul &goto o if /i "%opyear%"=="d" del/q/f "%nujinm%查找结果.txt"&del/q/f "%nujinm%投注结果.txt" 2>nul &goto o echo.&echo 正在输出到网页，请稍候。。。 call :kjhaoma >"%nujinm%排列5开奖结果.txt" >"%nujinm%开奖结果.hta" ( echo ^<html^> echo ^<head^> echo ^<title^>中国体育彩票体彩排列3排列5中奖号码列表^(%date:~0,2%%opyear%^) by:clamber E-mail:282959030@qq.com^</title^> echo ^</head^> echo ^<link type="text/css" rel="stylesheet" href="http://www.zjlottery.com/resource/css.txt"^> echo ^<body bgcolor="#F5F5F5"^> echo ^<font size=4^>^<center^>^<b^>中国体育彩票体彩排列3排列5中奖号码列表^</b^>^</font^>^</center^> echo ^<tr^>^<td colspan="2"^> echo ^<table border=1 cellspacing=0 cellpadding=0^> echo ^<tr bgcolor='#D0DCE0'^> echo ^<td align="center" rowspan=2 width=80^>期号^</td^> echo ^<td align="center" rowspan=2 width=90^>开奖结果^</td^> echo ^<td align="center" rowspan=2 width=80^>大小^</td^> echo ^<td align="center" rowspan=2 width=80^>单双^</td^> echo ^<td align="center" rowspan=2 width=90^>数字排序^</td^> echo ^<td align="center" colspan=2^>021路^<br^>021趋势^</td^> echo ^<td align="center" colspan=2^>组三/组六^<br^>P5对子数^</td^> echo ^<td align="center" colspan=2^>跨度值^</td^> echo ^<td align="center" colspan=2^>P3和值^</td^> echo ^<td align="center" colspan=2^>P5和值^</td^> echo ^</tr^> echo ^<tr bgcolor='#D0DCE0'^> echo ^<td align="center"^>趋势^</td^>^<td align="center"^>021路^</td^> echo ^<td align="center"^>类型^</td^>^<td align="center"^>对子数^</td^> echo ^<td align="center"^>P3跨^</td^>^<td align="center"^>P5跨^</td^> echo ^<td align="center"^>和尾^</td^>^<td align="center"^>P5和值^</td^> echo ^<td align="center"^>和尾^</td^>^<td align="center"^>P5和值^</td^> echo ^</tr^>) setlocal enabledelayedexpansion for /f "tokens=1-10 delims=:" %%a in ('findstr /b "!opyear!" "!nujinm!排列5开奖结果.txt"') do ( if "!ccolor:~-3,1!"=="2" (set ccolor=^<tr height=20 bgcolor='#D0DCE0'^>) else (set ccolor=^<tr height=20^>) for /f "tokens=1-18 delims= " %%a in ('echo %%a %%b %%c %%d %%e %%f %%g %%h %%i %%j') do ( set nuqs=%%g set kuaz3=%%k if "!kuaz3:~0,1!"=="0" set kuaz3=㈥ if "!kuaz3:~0,1!"=="1" set kuaz3=③ if "!kuaz3:~0,1!"=="A" set kuaz3=豹 set kuaz5=%%o set hzbn=%%n set hzbr=%%r echo !ccolor!^<td align=center^>^<a href="http://result.lottery.gov.cn/pailie5/pl5_%%a.html"^>%%a^</a^>^</td^>^<td align=center bgcolor='#D6DFF7'^>%%b^</td^>^<td align=center^>%%j^</td^>^<td align=center bgcolor='#D6DFF7'^>%%f^</td^>^<td align=center^>%%d^</td^>^<td align=center bgcolor='#D6DFF7'^>!nuqs:~0,1!^</td^>^<td align=center^>%%h^</td^>^<td align=center bgcolor='#D6DFF7'^>!kuaz3!^</td^>^<td align=center^>!kuaz5:~0,1!^</td^>^<td align=center bgcolor='#D6DFF7'^>%%l^</td^>^<td align=center^>%%p^</td^>^<td align=center bgcolor='#D6DFF7'^>!hzbn:~-1,1!^</td^>^<td align=center^>!hzbn!^</td^>^<td align=center bgcolor='#D6DFF7'^>!hzbr:~-1,1!^</td^>^<td align=center^>!hzbr!^</td^>^</tr^>>>"%nujinm%开奖结果.hta" ) ) endlocal echo ^</table^>>>"%nujinm%开奖结果.hta" echo ^</td^>^</tr^>>>"%nujinm%开奖结果.hta" echo ^<a href=tencent://message/?uin=282959030^>^<img border="0" SRC=http://wpa.qq.com/pa?p=1:282959030:6 alt="有问题点这里和我联系"^>^</a^>>>"%nujinm%开奖结果.hta" echo ^<font size="-1"^> E-mail:clian76@163.com by:clamber^</font^>>>"%nujinm%开奖结果.hta" echo ^</body^>>>"%nujinm%开奖结果.hta" echo ^</html^>>>"%nujinm%开奖结果.hta" start "" "%nujinm%开奖结果.hta" goto 0 :kjjieguo set/a hezi=%kjhm2:~0,1%+%kjhm2:~1,1%+%kjhm2:~2,1% set/a hezi5=%kjhm2:~0,1%+%kjhm2:~1,1%+%kjhm2:~2,1%+%kjhm2:~3,1%+%kjhm2:~4,1% set/a mod1=%kjhm2:~0,1%%%2 set/a mod2=%kjhm2:~1,1%%%2 set/a mod3=%kjhm2:~2,1%%%2 set/a nus1=%kjhm2:~0,1%%%3 set/a nus2=%kjhm2:~1,1%%%3 set/a nus3=%kjhm2:~2,1%%%3 if %hezi% LSS 10 set hezi=-%hezi% if %hezi5% LSS 10 set hezi5=-%hezi5% if %kjhm2:~0,1% GEQ 5 (set dx1=D) else (set dx1=X) if %kjhm2:~1,1% GEQ 5 (set dx2=D) else (set dx2=X) if %kjhm2:~2,1% GEQ 5 (set dx3=D) else (set dx3=X) if %mod1% equ 0 (set ds1=S) else (set ds1=D) if %mod2% equ 0 (set ds2=S) else (set ds2=D) if %mod3% equ 0 (set ds3=S) else (set ds3=D) setlocal enabledelayedexpansion set runos=&set nos3=&set nos5= for /f %%k in ('^(echo %kjhm2:~0,1%^&echo.%kjhm2:~1,1%^&echo.%kjhm2:~2,1%^)^|sort') do (set nos3=!nos3!%%k) for /f %%k in ('^(echo %kjhm2:~0,1%^&echo.%kjhm2:~1,1%^&echo.%kjhm2:~2,1%^&echo.%kjhm2:~3,1%^&echo.%kjhm2:~4,1%^)^|sort') do (set nos5=!nos5!%%k) set nos=!nos5! set/a nos3=!nos3:~-1,1!-!nos3:~0,1! set/a nos5=!nos5:~-1,1!-!nos5:~0,1! for %%r in (%nus1%%nus2%%nus3% %kjhm2:~0,3% %kjhm2%) do ( set ru=0&set a= for /l %%r in (0,1,9) do set num%%r=0 call set number=%%%r set v=!number! set nu= for /l %%r in (1,1,20) do (if defined v (call set "a=!v:~0,1!"&call set "v=!v:~1!"&set /a num!a!+=1)) for /l %%r in (0,1,9) do (set /a ru=num%%r/2+ru&if !num%%r! gtr 1 set nu=!nu!%%r) set/a runos+=1 if "!runos!"=="1" set p021=!ru!!nu!&if "!p021:~0,1!"=="0" set p021=0- if "!runos!"=="2" set p3no=!ru!!nu!&if "!kjhm2:~0,3!"=="!kjhm2:~1,2!!kjhm2:~0,1!" set p3no=A if "!runos!"=="3" set p5no=!ru!!nu! ) echo echo %beend:~2%: %kjhm2% 顺序:%nos% 单双:%ds1%%ds2%%ds3% %p021:~1%路:%nus1%%nus2%%nus3% 大小:%dx1%%dx2%%dx3% %p3no:~0,1%跨:%nos3% %hezi:~-1,1%和值:%hezi% %p5no:~0,1%跨:%nos5% %hezi5:~-1,1%和值:%hezi5%>>"%nujinm%%outna%" endlocal goto :eof :kjhaoma echo 期号 奖号 顺序 单双 012路 大小 P3-跨 P3和值 P5-跨 P5和值 echo 04001: 92882 顺序:22889 单双:DSS 2路:022 大小:DXD 0跨:7 9和值:19 2跨:7 9和值:29 echo 04002: 17387 顺序:13778 单双:DDD 1路:110 大小:XDX 0跨:6 1和值:11 1跨:7 6和值:26 echo 04003: 18328 顺序:12388 单双:DSD -路:120 大小:XDX 0跨:7 2和值:12 1跨:7 2和值:22 echo 04004: 43248 顺序:23448 单双:SDS -路:102 大小:XXX 0跨:2 9和值:-9 1跨:6 1和值:21 echo 04005: 54159 顺序:14559 单双:DSD 1路:211 大小:DXX 0跨:4 0和值:10 1跨:8 4和值:24 echo 04006: 26225 顺序:22256 单双:SSS 2路:202 大小:XDX 1跨:4 0和值:10 1跨:4 7和值:17 echo 04007: 30745 顺序:03457 单双:DSD 0路:001 大小:XXD 0跨:7 0和值:10 0跨:7 9和值:19 echo 04008: 22699 顺序:22699 单双:SSS 2路:220 大小:XXD 1跨:4 0和值:10 2跨:7 8和值:28 echo 04009: 41809 顺序:01489 单双:SDS 1路:112 大小:XXD 0跨:7 3和值:13 0跨:9 2和值:22 echo 04010: 27464 顺序:24467 单双:SDS 1路:211 大小:XDX 0跨:5 3和值:13 1跨:5 3和值:23 echo 04011: 36416 顺序:13466 单双:DSS 0路:001 大小:XDX 0跨:3 3和值:13 1跨:5 0和值:20 echo 04012: 30564 顺序:03456 单双:DSD 0路:002 大小:XXD 0跨:5 8和值:-8 0跨:6 8和值:18 echo 04013: 03232 顺序:02233 单双:SDS 0路:002 大小:XXX 0跨:3 5和值:-5 2跨:3 0和值:10 echo 04014: 35919 顺序:13599 单双:DDD 0路:020 大小:XDD 0跨:6 7和值:17 1跨:8 7和值:27 echo 04015: 59872 顺序:25789 单双:DDS 2路:202 大小:DDD 0跨:4 2和值:22 0跨:7 1和值:31 echo 04016: 44517 顺序:14457 单双:SSD 1路:112 大小:XXD 1跨:1 3和值:13 1跨:6 1和值:21 echo 04017: 19318 顺序:11389 单双:DDD 0路:100 大小:XDX 0跨:8 3和值:13 1跨:8 2和值:22 echo 04018: 12998 顺序:12899 单双:DSD -路:120 大小:XXD 0跨:8 2和值:12 1跨:8 9和值:29 echo 04019: 71140 顺序:01147 单双:DDD 1路:111 大小:DXX 1跨:6 9和值:-9 1跨:7 3和值:13 echo 04020: 10931 顺序:01139 单双:DSD 0路:100 大小:XXD 0跨:9 0和值:10 1跨:9 4和值:14 echo 04021: 39386 顺序:33689 单双:DDD 0路:000 大小:XDX 1跨:6 5和值:15 1跨:6 9和值:29 echo 04022: 59190 顺序:01599 单双:DDD -路:201 大小:DDX 0跨:8 5和值:15 1跨:9 4和值:24 echo 04023: 87197 顺序:17789 单双:SDD 1路:211 大小:DDX 0跨:7 6和值:16 1跨:8 2和值:32 echo 04024: 88679 顺序:67889 单双:SSS 2路:220 大小:DDD 1跨:2 2和值:22 1跨:3 8和值:38 echo 04025: 61868 顺序:16688 单双:SDS -路:012 大小:DXD 0跨:7 5和值:15 2跨:7 9和值:29 echo 04026: 62173 顺序:12367 单双:SSD -路:021 大小:DXX 0跨:5 9和值:-9 0跨:6 9和值:19 echo 04027: 36339 顺序:33369 单双:DSD 0路:000 大小:XDX 1跨:3 2和值:12 1跨:6 4和值:24 echo 04028: 07519 顺序:01579 单双:SDD -路:012 大小:XDD 0跨:7 2和值:12 0跨:9 2和值:22 echo 04029: 25615 顺序:12556 单双:SDS 2路:220 大小:XDD 0跨:4 3和值:13 1跨:5 9和值:19 echo 04030: 12060 顺序:00126 单双:DSS -路:120 大小:XXX 0跨:2 3和值:-3 1跨:6 9和值:-9 echo 04031: 36210 顺序:01236 单双:DSS 0路:002 大小:XDX 0跨:4 1和值:11 0跨:6 2和值:12 echo 04032: 37870 顺序:03778 单双:DDS -路:012 大小:XDD 0跨:5 8和值:18 1跨:8 5和值:25 echo 04033: 50502 顺序:00255 单双:DSD 2路:202 大小:DXD 1跨:5 0和值:10 2跨:5 2和值:12 echo 04034: 99528 顺序:25899 单双:DDD 0路:002 大小:DDD 1跨:4 3和值:23 1跨:7 3和值:33 echo 04035: 37480 顺序:03478 单双:DDS 1路:011 大小:XDX 0跨:4 4和值:14 0跨:8 2和值:22 echo 04036: 00904 顺序:00049 单双:SSD 0路:000 大小:XXD 1跨:9 9和值:-9 1跨:9 3和值:13 echo 04037: 32595 顺序:23559 单双:DSD 2路:022 大小:XXD 0跨:3 0和值:10 1跨:7 4和值:24 echo 04038: 42533 顺序:23345 单双:SSD 2路:122 大小:XXD 0跨:3 1和值:11 1跨:3 7和值:17 echo 04039: 80212 顺序:01228 单双:SSS 2路:202 大小:DXX 0跨:8 0和值:10 1跨:8 3和值:13 echo 04040: 56641 顺序:14566 单双:DSS 0路:200 大小:DDD 1跨:1 7和值:17 1跨:5 2和值:22 echo 04041: 81405 顺序:01458 单双:SDS 1路:211 大小:DXX 0跨:7 3和值:13 0跨:8 8和值:18 echo 04042: 78024 顺序:02478 单双:DSS -路:120 大小:DDX 0跨:8 5和值:15 0跨:8 1和值:21 echo 04043: 70432 顺序:02347 单双:DSS 1路:101 大小:DXX 0跨:7 1和值:11 0跨:7 6和值:16 echo 04044: 38212 顺序:12238 单双:DSS 2路:022 大小:XDX 0跨:6 3和值:13 1跨:7 6和值:16 :2005 echo 05001: 05497 顺序:04579 单双:SDS -路:021 大小:XDX 0跨:5 9和值:-9 0跨:9 5和值:25 echo 05002: 36614 顺序:13466 单双:DSS 0路:000 大小:XDD 1跨:3 5和值:15 1跨:5 0和值:20 echo 05003: 43132 顺序:12334 单双:SDD 1路:101 大小:XXX 0跨:3 8和值:-8 1跨:3 3和值:13 echo 05004: 67476 顺序:46677 单双:SDS 1路:011 大小:DDX 0跨:3 7和值:17 2跨:3 0和值:30 echo 05005: 29955 顺序:25599 单双:SDD 0路:200 大小:XDD 1跨:7 0和值:20 2跨:7 0和值:30

这里开奖数据就不用全部拿上来了，很长的。一是放不上来，再说放上来也没什么用处的。如果程序对你有用的话可以输入1或6回车，让程序自动更新到最新版本。

试用了一下，写的确实不错！不过还是有一些bug，再接再厉！

[ Last edited by exzzz on 2009-1-31 at 23:39 ]

把你发现的bug贴出来，不是更加有利于楼主再接再厉吗？

还厉害，值得学习

建议：
1、开奖号码另作数据文件
2、如果可以，建议使用HTA能更好操作（支持鼠标、显示内容更多）

谢谢楼上的建议！
最初是只想有一个文件，因为是想放到QQ群共享里，别人不用下载，直接双击就可以使用，并自动创建本身到C:\Program Files里同时在桌面生成快捷方式（后来这个功能去掉了）。
HTA我不会，只是输出到网页功能是使用的HTA方便打开和查看。

自动更新你是怎么做的，能不能单独拆出来开个帖子教教我们

Originally posted by yishanju at 2009-1-19 07:30 AM:
自动更新你是怎么做的，能不能单独拆出来开个帖子教教我们

是啊，“：6”那一段看的懵懵懂懂的，不过以前我也做过一个可以更新的脚本。

当时是利用公司FTP服务器的，登陆后将服务器存在的版本都列表并输出到本地，版本号都是固定字符+年月日。程序可自动更新，也可手动更新，自动的话是每周一自动登陆判断后下载最新日期的版本，没新的就不下。手动更新的话，会自动联上去获取列表，然后让你手动选择所需要的版本，默认是最新版。

程序另外一个功能就是开机运行后会清除旧任务并创建一个计划任务，任务执行时间是开机的时间到晚上24点间的一个随机时间点，到时间后会自动列表本地所有文件，并对比禁止程序列表，例如QQ，msn之类的，如果对比在本地硬盘发现了，就将列表的TXT文件用winrar打包并按“日期+IP+ADSL账号名”上传到FTP服务器，并记录本机器的IP及ADSL账号。我定期在FTP服务器上巡视，看到新文件就看看这个分行安装了什么不准装的软件，然后根据adsl账号看是哪个分行的，然后提交给行政部门去发布处罚通告。。。。

这样的管理模式运行了半年后，故障率下降的厉害啊，400个分行一个月故障单不到50个，基本都是硬件问题。

Originally posted by tireless at 2009-1-19 11:22 AM:
批处理实现网页下载(260字节)

好东西！多谢！

学习了

好强大,学习.

把更新后的代码保存为HTML文件放在网上，再用VBS得到这个HTML网页的内容，保存为BAT，替换掉旧版文件。

Originally posted by clian76 at 2009-1-16 06:26 PM:
谢谢楼上的建议！
最初是只想有一个文件，因为是想放到QQ群共享里，别人不用下载，直接双击就可以使用，并自动创建本身到C:\Program Files里同时在 ...

把更新后的代码保存为HTML文件放在网上，再用VBS得到这个HTML网页的内容，保存为BAT，替换掉旧版文件。