Board logo

标题: [原创] VBS双色球中奖查询程序 [打印本页]

作者: ipqfhvk    时间: 2010-12-12 13:56     标题: VBS双色球中奖查询程序

啥都不说了,直接上代码。
本程序分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    时间: 2011-1-31 11:57     标题: 发现一处问题,特来修改

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

[ 本帖最后由 ipqfhvk 于 2011-1-31 11:59 编辑 ]
作者: ywq111    时间: 2012-1-16 15:24

本帖最后由 ywq111 于 2012-1-16 15:35 编辑

配合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 )
复制代码





欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2