|
发表于 2014-3-27 13:39
|
显示全部楼层
本楼为最佳答案
这个网站代码以前我写过,详见:http://www.excelpx.com/thread-318557-1-1.html
略微修改一下:- Sub Main()
- Dim arr, brr() As String, str$, my$, i%, l%
- With CreateObject("WinHttp.WinHttpRequest.5.1")
- .Open "GET", "http://data.shishicai.cn/cqssc/haoma/", False
- .send
- .Open "POST", "http://data.shishicai.cn/handler/kuaikai/data.ashx", False
- .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
- .setRequestHeader "Referer", "http://data.shishicai.cn/cqssc/haoma/"
- .send "lottery=4&date=0001-01-01"
- str = .responsetext
- End With
- arr = Split(Split(str, "[""")(1), """,""")
- ReDim brr(1 To UBound(arr), 1 To 3)
- my = Replace(Left(arr(UBound(arr)), 19), ",", "")
- For i = 0 To UBound(arr) - 1
- brr(i + 1, 1) = Split(arr(i), ";")(0)
- For l = 1 To 5
- brr(i + 1, 2) = brr(i + 1, 2) & (InStr(my, Mid(Split(arr(i), ";")(1), l, 1)) - 1)
- Next
- brr(i + 1, 3) = Split(arr(i), ";")(2)
- Next
- Range("a1").Resize(, 3) = Array("开奖期号", "开奖号码", "开奖时间")
- Range("a2").Resize(UBound(brr), 3) = brr
- MsgBox "获取成功!", , "恭喜"
- End Sub
复制代码 |
|