[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[原创] 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
复制代码
1

评分人数

发现一处问题,特来修改

  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 编辑 ]

TOP

本帖最后由 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 )
复制代码

TOP

返回列表