VBA抓取双色球、大乐透开奖数据

Sub wzssqkj()Dim myHTTP As Object, s As StringSet myHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") 'json网页With myHTTP.Open "GET", "http://www.cwl.gov.cn/cwl_admin/kjxx/findDrawNotice?name=ssq&issueCount=30", False.setRequestHeader "Host", "www.cwl.gov.cn".setRequestHeader "Connection", "keep-alive".setRequestHeader "Upgrade-Insecure-Requests", "1".setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/70.0.3538.25 Safari/537.36 Core/1.70.3861.400 QQBrowser/10.7.4313.400".setRequestHeader "Content-Type", "application/x-www-form-urlencoded".setRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8".setRequestHeader "Referer", "http://club.excelhome.net/thread-1575009-1-1.html".setRequestHeader "Accept-Encoding", "gzip, deflate".setRequestHeader "Accept-Language", "zh-CN,zh;q=0.9".setRequestHeader "Cookie", "_ga=GA1.3.1058570018.1612955503; _gid=GA1.3.1852979334.1612955503; 21_vq=26".sendEnd With'Do While myHTTP.ReadyState <> 4'DoEvents'Loops = myHTTP.responsetextDim regex As Object, mches As Object, mch As Object, i&, j&Set regex = CreateObject("VBScript.Regexp")regex.Global = Trueregex.Pattern = "code"":""(\d+).*?date"":""(.*?)"".*?(\d\d),(\d\d),(\d\d),(\d\d),(\d\d),(\d\d)"".*?(\d\d).*?typemoney"":""(\d+).*?typemoney"":""(\d+)"Set mches = regex.Execute(s)i = 2For Each mch In mchesFor j = 0 To 10Sheet7.Cells(i, j + 1) = mch.submatches(j)Next ji = i + 1Next mchEnd Sub

Sub wzdltkj()Dim myHTTP As Object, s As StringSet myHTTP = CreateObject("Microsoft.XmlHttp")myHTTP.Open "GET", "https://webapi.sporttery.cn/gateway/lottery/getHistoryPageListV1.qry?gameNo=85&provinceId=0&pageSize=30&isVerify=1&pageNo=1&termLimits=30", FalsemyHTTP.sends = myHTTP.responsetextDim regex As Object, mches As Object, mch As Object, i&, j&Set regex = CreateObject("VBScript.Regexp")regex.Global = Trueregex.Pattern = "lotteryDrawNum"":""(\d+?)"",""lotteryDrawResult"":""(\d\d) (\d\d) (\d\d) (\d\d) (\d\d) (\d\d) (\d\d).*?""lotteryDrawTime"":""(\d+-\d+-\d+).*?""stakeAmount"":""([\d|,]+).*?""stakeAmount"":""([\d|,]+).*?""stakeAmount"":""([\d|,]+).*?""stakeAmount"":""([\d|,]+)"Set mches = regex.Execute(s)i = 2For Each mch In mchesFor j = 0 To 12Sheet3.Cells(i, j + 1) = mch.submatches(j)Next ji = i + 1Next mchEnd Sub

VBA抓取双色球、大乐透开奖数据相关推荐

双色球大乐透开奖查询软件
最近老买lottery,复式兑起来太麻烦了,上网一查还真没有类似软件,于是自己写了一个,这下方便了哈哈,给广大彩民分享一下第一次居然输了点专业词汇被封了,崩溃啊,功能见截图吧,不能多说了由于附件最 ...
Python脚本抓取大乐透开奖结果核对定投号码邮件通知
最近学习了一下Python的基础,想写个东西练练手.正好每次跟号的大乐透还需要手动兑奖或者去彩票站兑奖,自己写一个脚本自动抓取开奖结果,核对开奖金额后邮件通知. 整体思路: 找可抓取开奖结果网站找可 ...
python 爬取大乐透开奖结果
#coding=utf-8 #下面中文注释不支持所以开头加 "#coding=utf-8" # 获取近期大乐透开奖结果, 并给出自己猜中的个数import requests# 这 ...
java获取大乐透开奖_java生成大乐透中奖号码
这段时间吃完饭都会来一两注大乐透! 然后心血来潮的用java写了个简单的随机生成大乐透号码先晒代码: public class RandomUtil { //前区1-35个号码 private st ...
java基础项目-抽奖机-模拟双色球-大乐透
java基础项目-抽奖机-模拟双色球-大乐透: 创建了很多的方法逐个编译的,做的很新手不足之处希望多多交流.谢谢. 需求分析: 欢迎界面欢迎使用超级幸运抽奖机选彩种(1.双色球:2.超级大乐透) ...
JavaDay05.练习4.体彩7位数摇奖+福彩大乐透摇奖
1.体彩7位数摇奖产生一个7个数字,每个数字的取值是0-9的随机数 import java.util.Arrays; public class ArrayExercise {public stati ...
双色球大乐透（python）用列表和集合分别编程生成一期的开奖预测号码
用列表和集合分别编程生成一期的开奖预测号码 ''' 双色球双色球投注区分为红色球号码区和蓝色球号码区红色球号码区由1-33共三十三个号码组成蓝色球号码区由1-16共十六个号码组成投注时选择6个 ...
2019计算机开机号003期,2019年003期大乐透开机号分析（附汇总）
大乐透开机号码:前区:08,13,20,26,30 后区:08,10 参数特征:和值:97 奇偶:偶-奇-偶-偶-偶重点推荐:前区:06-07-08-12-17-19-22-25-32-33 后区: ...
python大乐透2019143_Python实现双色球和大乐透摇奖
# code by kadycui # 模块引用 import random def select(): print('\n') print('请选择彩票种类') print('双色球输入:1') p ...
十行代码写个彩票随机生成器（双色球+大乐透）
前言自己动手丰衣足食,平时买彩票总是不中,回想起来是不是他那个机器机选的就是不中的号??? 那就自己code一个试试吧! 偷偷告诉你,我写完就去买了,结果真就中了! CSDN下载链接:免费的免费的 ...

VBA抓取双色球、大乐透开奖数据

VBA抓取双色球、大乐透开奖数据相关推荐

最新文章

热门文章