VBA抓取双色球、大乐透开奖数据
Sub wzssqkj() Dim myHTTP As Object, s As String Set 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 .
原创
2021-06-19 20:51:36 ·
2208 阅读 ·
0 评论