VBS双色球中奖查询程序

ipqfhvk

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

1. title 沈寂 买彩票中奖查询程序，个人版Q312782705
   
2. cls
   
3. @echo off
   
4. echo.连接网络获取中...
   
5. cls
   
6. setlocal enabledelayedexpansion
   
7. set t=0
   
8. set hqgs=0
   
9. set y=0
   
10. set x=0
    
11. set z=0
    
12. set jz=0
    
13. rem  以下是你购买的5注彩票，当然可以更多，需要加H6，H7，H8然后再for /l %%i in (1,1,5)改成相应的数字
    
14. set h1=00 01 02 03 04 05 06
    
15. set h2=00 01 02 03 04 05 06
    
16. set h3=00 01 02 03 04 05 06
    
17. set h4=00 01 02 03 04 05 06
    
18. set h5=00 01 02 03 04 05 06
    
19. for /f %%i in ('"cscript //nologo cp.vbs"') do (set r!t!=%%i  &set /a t=!t!+1)
    
20. echo.********************************第!r1!开奖信息****************************
    
21. echo.!r0!
    
22. echo.
    
23. echo.本期开奖号是:!r2! !r3! !r4! !r5! !r6! !r7!蓝球:!r8!
    
24. set kaijiang=!r2!!r3!!r4!!r5!!r6!!r7!
    
25. echo.################################################################################
    
26. echo.总共购买5注,以下为购买彩票信息
    
27. :main
    
28. for /l %%i in (1,1,5) do (
    
29. set goumai=!h%%i!
    
30. call :hqgs
    
31. call :lqs
    
32. call ::zzzj
    
33. echo.--------------------------------------------------------------------------------
    
34. echo.第%%i注号是:!goumai! 红色球个数是:!x!,蓝色球:!y!,等级是:!z!,金额是:!jz!
    
35. set hqgs=0
    
36. set y=0
    
37. set x=0
    
38. set z=0
    
39. set jz=0
    
40. )
    
41. echo.--------------------------------------------------------------------------------
    
42. pause>nul
    
43. exit
    
44. :hqgs
    
45. for  %%i in (!kaijiang!) do (
    
46. for %%j in (!goumai!) do (
    
47. if "%%i"=="%%j" set /a x=!x!+1))
    
48. goto :eof
    
49. :lqs
    
50. for /f "tokens=7* delims= " %%i in ("!goumai!") do set lanqiu=%%i
    
51. if %lanqiu%==%r8% set y=1
    
52. goto :eof
    
53. :zjts
    
54. echo.msgbox "你有中奖,请注意",64,"注意" >tem.vbs
    
55. tem.vbs
    
56. del tem.vbs
    
57. goto :eof
    
58. :zzzj
    
59. if "%x%" lss "3" (if "%y%"=="1" set z=6 &&set jz=5)
    
60. if "%x%"=="3" (if "%y%"=="1" set z=5 &&set jz=10)
    
61. if "%x%"=="4" (if "%y%"=="0" set z=5 &&set jz=10)
    
62. if "%x%"=="4" (if "%y%"=="1" set z=4 &&set jz=200)
    
63. if "%x%"=="5" (if "%y%"=="0" set z=4 &&set jz=200)
    
64. if "%x%"=="5" (if "%y%"=="1" set z=3 &&set jz=3000)
    
65. if "%x%"=="6" (if "%y%"=="0" set z=2 &&set jz=当前奖金的30%)
    
66. if "%x%"=="6" (if "%y%"=="1" set z=1 &&set jz=中大奖了)
    
67. goto :eof

复制代码

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

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

复制代码

ipqfhvk

1. ::代码说明
   
2. ::之前代码勿把蓝色球算在红色球个数里了，一直没有发现。现在修改
   
3. ::
   
4. ::
   
5. ::
   
6. ::
   
7. ::
   
8. ::
   
9. color 2f
   
10. title 沈寂 买彩票中奖查询程序，今天是%date%
    
11. cls
    
12. @echo off
    
13. echo.连接网络获取中...
    
14. 
    
15. setlocal enabledelayedexpansion
    
16. set t=0
    
17. set hqgs=0
    
18. set y=0
    
19. set x=0
    
20. set z=0
    
21. set jz=0
    
22. set h1=07 16 28 31 32 33 6
    
23. set h2=08 12 13 14 16 18 5
    
24. set h3=06 11 16 27 30 32 8
    
25. set h4=02 08 11 15 23 25 13
    
26. set h5=02 04 08 16 24 31 5
    
27. for /f %%i in ('"cscript //nologo cp.vbs"') do (set r!t!=%%i  &set /a t=!t!+1)
    
28. cls
    
29. echo.********************************第!r1!开奖信息****************************
    
30. echo.!r0!
    
31. echo.
    
32. echo.本期开奖号是:!r2! !r3! !r4! !r5! !r6! !r7!蓝球:!r8!
    
33. set kaijiang=!r2!!r3!!r4!!r5!!r6!!r7!
    
34. echo.################################################################################
    
35. echo.总共购买5注,以下为购买彩票信息
    
36. :main
    
37. for /l %%i in (1,1,5) do (
    
38. set goumai=!h%%i!
    
39. call :hqgs  ::计算红色球中奖
    
40. call :lqs   ::计算蓝色球中奖
    
41. if "!y!"=="1" (if "!x!" GTR "0" set /a x=!x!-1)
    
42. call ::zzzj
    
43. set /a qbjz=!qbjz!+!jz!
    
44. echo.--------------------------------------------------------------------------------
    
45. echo.第%%i注号是:!goumai! 红色球个数是:!x!,蓝色球:!y!,等级是:!z!,金额是:!jz!
    
46. set hqgs=0
    
47. set y=0
    
48. set x=0
    
49. set z=0
    
50. set jz=0
    
51. )
    
52. echo.--------------------------------------------------------------------------------
    
53. set /p tt=$$$$$$$$$$$$$$$$$$$$$$$统计,本次开奖攻击中奖金额是:!qbjz!元$$$$$$$$$$$$$$$$$$$$$$$$$<nul
    
54. if "!qbjz!" neq "0" call :zjts
    
55. pause>nul
    
56. exit
    
57. :hqgs
    
58. for  %%i in (!kaijiang!) do (
    
59. for %%j in (!goumai!) do (
    
60. if "%%i"=="%%j" set /a x=!x!+1))
    
61. goto :eof
    
62. :lqs
    
63. for /f "tokens=7* delims= " %%i in ("!goumai!") do set lanqiu=%%i
    
64. if %lanqiu%==%r8% set y=1
    
65. goto :eof
    
66. :zjts
    
67. echo.Set WshSHell = WScript.CreateObject("WScript.Shell") >tem.vbs
    
68. echo.WshSHell.popup "你有中奖%qbjz%元哦,请注意兑换。该提示在5秒后自动关闭",5,"提示" >>tem.vbs
    
69. 
    
70. tem.vbs
    
71. del tem.vbs
    
72. goto :eof
    
73. :zzzj
    
74. if "%x%" lss "3" (if "%y%"=="1" set z=6 &&set jz=5)
    
75. if "%x%"=="3" (if "%y%"=="1" set z=5 &&set jz=10)
    
76. if "%x%"=="4" (if "%y%"=="0" set z=5 &&set jz=10)
    
77. if "%x%"=="4" (if "%y%"=="1" set z=4 &&set jz=200)
    
78. if "%x%"=="5" (if "%y%"=="0" set z=4 &&set jz=200)
    
79. if "%x%"=="5" (if "%y%"=="1" set z=3 &&set jz=3000)
    
80. if "%x%"=="6" (if "%y%"=="0" set z=2 &&set jz=当前奖金的30%)
    
81. if "%x%"=="6" (if "%y%"=="1" set z=1 &&set jz=中大奖了)
    
82. goto :eof

复制代码

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

ywq111

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

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

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

复制代码