[原创] VBS双色球中奖查询程序

ipqfhvk

啥都不说了，直接上代码。
本程序分2部分一部分是VBS,一部分为BAT，其实也可以合在一起

title 沈寂 买彩票中奖查询程序，个人版Q312782705
cls
@echo off
echo.连接网络获取中...
cls
setlocal enabledelayedexpansion
set t=0
set hqgs=0
set y=0
set x=0
set z=0
set jz=0
rem  以下是你购买的5注彩票，当然可以更多，需要加H6，H7，H8然后再for /l %%i in (1,1,5)改成相应的数字
set h1=00 01 02 03 04 05 06
set h2=00 01 02 03 04 05 06
set h3=00 01 02 03 04 05 06
set h4=00 01 02 03 04 05 06
set h5=00 01 02 03 04 05 06
for /f %%i in ('"cscript //nologo cp.vbs"') do (set r!t!=%%i  &set /a t=!t!+1)
echo.********************************第!r1!开奖信息****************************
echo.!r0!
echo.
echo.本期开奖号是:!r2! !r3! !r4! !r5! !r6! !r7!蓝球:!r8!
set kaijiang=!r2!!r3!!r4!!r5!!r6!!r7!
echo.################################################################################
echo.总共购买5注,以下为购买彩票信息
:main
for /l %%i in (1,1,5) do (
set goumai=!h%%i!
call :hqgs
call :lqs
call ::zzzj
echo.--------------------------------------------------------------------------------
echo.第%%i注号是:!goumai! 红色球个数是:!x!,蓝色球:!y!,等级是:!z!,金额是:!jz!
set hqgs=0
set y=0
set x=0
set z=0
set jz=0
)
echo.--------------------------------------------------------------------------------
pause>nul
exit
:hqgs
for  %%i in (!kaijiang!) do (
for %%j in (!goumai!) do (
if "%%i"=="%%j" set /a x=!x!+1))
goto :eof
:lqs
for /f "tokens=7* delims= " %%i in ("!goumai!") do set lanqiu=%%i
if %lanqiu%==%r8% set y=1
goto :eof
:zjts
echo.msgbox "你有中奖,请注意",64,"注意" >tem.vbs
tem.vbs
del tem.vbs
goto :eof
:zzzj
if "%x%" lss "3" (if "%y%"=="1" set z=6 &&set jz=5)
if "%x%"=="3" (if "%y%"=="1" set z=5 &&set jz=10)
if "%x%"=="4" (if "%y%"=="0" set z=5 &&set jz=10)
if "%x%"=="4" (if "%y%"=="1" set z=4 &&set jz=200)
if "%x%"=="5" (if "%y%"=="0" set z=4 &&set jz=200)
if "%x%"=="5" (if "%y%"=="1" set z=3 &&set jz=3000)
if "%x%"=="6" (if "%y%"=="0" set z=2 &&set jz=当前奖金的30%)
if "%x%"=="6" (if "%y%"=="1" set z=1 &&set jz=中大奖了)
goto :eof
复制代码

第二部分VBS部分是网络获取开奖用的，文件名CP.VBS

Set objExplorer = WScript.CreateObject("InternetExplorer.Application")
objExplorer.Navigate "http://lottery.titan24.com/kaijiang/ssq.html"   
Do
    Wscript.Sleep 200
    If objExplorer.Busy = False Then Exit Do
Loop    
'strDoc = objExplorer.Document.Body.InnerHTML
WScript.Echo objExplorer.Document.all(126).innerText '开奖日期，截止时间
WScript.Echo objExplorer.Document.all(71).innerText &"期" '期数
WScript.Echo objExplorer.Document.all(74).innerText '1
WScript.Echo objExplorer.Document.all(75).innerText '2
WScript.Echo objExplorer.Document.all(76).innerText '3
WScript.Echo objExplorer.Document.all(77).innerText '4
WScript.Echo objExplorer.Document.all(78).innerText '5
WScript.Echo objExplorer.Document.all(79).innerText '6
WScript.Echo cint(objExplorer.Document.all(80).innerText) '蓝色
objExplorer.Quit
复制代码

ipqfhvk

::代码说明
::之前代码勿把蓝色球算在红色球个数里了，一直没有发现。现在修改
::
::
::
::
::
::
color 2f
title 沈寂 买彩票中奖查询程序，今天是%date%
cls
@echo off
echo.连接网络获取中...

setlocal enabledelayedexpansion
set t=0
set hqgs=0
set y=0
set x=0
set z=0
set jz=0
set h1=07 16 28 31 32 33 6
set h2=08 12 13 14 16 18 5
set h3=06 11 16 27 30 32 8
set h4=02 08 11 15 23 25 13
set h5=02 04 08 16 24 31 5
for /f %%i in ('"cscript //nologo cp.vbs"') do (set r!t!=%%i  &set /a t=!t!+1)
cls
echo.********************************第!r1!开奖信息****************************
echo.!r0!
echo.
echo.本期开奖号是:!r2! !r3! !r4! !r5! !r6! !r7!蓝球:!r8!
set kaijiang=!r2!!r3!!r4!!r5!!r6!!r7!
echo.################################################################################
echo.总共购买5注,以下为购买彩票信息
:main
for /l %%i in (1,1,5) do (
set goumai=!h%%i!
call :hqgs  ::计算红色球中奖
call :lqs   ::计算蓝色球中奖
if "!y!"=="1" (if "!x!" GTR "0" set /a x=!x!-1)
call ::zzzj
set /a qbjz=!qbjz!+!jz!
echo.--------------------------------------------------------------------------------
echo.第%%i注号是:!goumai! 红色球个数是:!x!,蓝色球:!y!,等级是:!z!,金额是:!jz!
set hqgs=0
set y=0
set x=0
set z=0
set jz=0
)
echo.--------------------------------------------------------------------------------
set /p tt=$$$$$$$$$$$$$$$$$$$$$$$统计,本次开奖攻击中奖金额是:!qbjz!元$$$$$$$$$$$$$$$$$$$$$$$$$<nul
if "!qbjz!" neq "0" call :zjts
pause>nul
exit
:hqgs
for  %%i in (!kaijiang!) do (
for %%j in (!goumai!) do (
if "%%i"=="%%j" set /a x=!x!+1))
goto :eof
:lqs
for /f "tokens=7* delims= " %%i in ("!goumai!") do set lanqiu=%%i
if %lanqiu%==%r8% set y=1
goto :eof
:zjts
echo.Set WshSHell = WScript.CreateObject("WScript.Shell") >tem.vbs
echo.WshSHell.popup "你有中奖%qbjz%元哦,请注意兑换。该提示在5秒后自动关闭",5,"提示" >>tem.vbs

tem.vbs
del tem.vbs
goto :eof
:zzzj
if "%x%" lss "3" (if "%y%"=="1" set z=6 &&set jz=5)
if "%x%"=="3" (if "%y%"=="1" set z=5 &&set jz=10)
if "%x%"=="4" (if "%y%"=="0" set z=5 &&set jz=10)
if "%x%"=="4" (if "%y%"=="1" set z=4 &&set jz=200)
if "%x%"=="5" (if "%y%"=="0" set z=4 &&set jz=200)
if "%x%"=="5" (if "%y%"=="1" set z=3 &&set jz=3000)
if "%x%"=="6" (if "%y%"=="0" set z=2 &&set jz=当前奖金的30%)
if "%x%"=="6" (if "%y%"=="1" set z=1 &&set jz=中大奖了)
goto :eof
复制代码

[ 本帖最后由 ipqfhvk 于 2011-1-31 11:59 编辑 ]

ywq111

配合blat发邮件到139邮箱，配置好139邮箱的邮件到达提醒，设置为“长短信”，可以实现发信息到手机。

下面自用的是部分代码（bat代码），用户名 密码以及邮箱是修改了的，大家需要改成自己的。

>>msg.txt (echo 服务器远程登录通知：&echo.&echo 登录用户：%username%&echo 日期和时间: %date%%time% ) 
blat -install smtp.163.com g@163.com 3 25
blat mail -to h@139.com -s "[%date%]服务器远程登录通知" -bodyF msg.txt -u g@163.com -pw t
if exist msg.txt (del msg.txt )
复制代码