[已解决]【求助】网页提数据？？

caipiaofans

妖狐 发表于 2014-3-23 13:14

没能获取奖号列

xpw6061

caipiaofans 发表于 2014-3-23 16:51
没能获取奖号列

好复杂,学习了

xdwy

妖狐 发表于 2014-3-23 13:14

非常感谢赐教代码，可代码下载得到的开奖号码不对，开奖号码在arr里面

如附件，请赐教下怎么改正得到正确的开奖号码

谢谢大侠

xz-ssc.rar (121.81 KB, 下载次数: 3)

2014-3-23 20:52 上传

点击文件名下载附件

xdwy

期待大神解决呀，顶顶顶

妖狐

我生病在家你也不来看我，还催代码。唉

雪舞子

这个网站代码以前我写过,详见:http://www.excelpx.com/thread-318557-1-1.html
略微修改一下:

1. Sub Main()
   
2.     Dim arr, brr() As String, str$, my$, i%, l%
   
3.     With CreateObject("WinHttp.WinHttpRequest.5.1")
   
4.         .Open "GET", "http://data.shishicai.cn/cqssc/haoma/", False
   
5.         .send
   
6.         .Open "POST", "http://data.shishicai.cn/handler/kuaikai/data.ashx", False
   
7.         .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
   
8.         .setRequestHeader "Referer", "http://data.shishicai.cn/cqssc/haoma/"
   
9.         .send "lottery=4&date=0001-01-01"
   
10.         str = .responsetext
    
11.     End With
    
12.     arr = Split(Split(str, "[""")(1), """,""")
    
13.     ReDim brr(1 To UBound(arr), 1 To 3)
    
14.     my = Replace(Left(arr(UBound(arr)), 19), ",", "")
    
15.     For i = 0 To UBound(arr) - 1
    
16.         brr(i + 1, 1) = Split(arr(i), ";")(0)
    
17.         For l = 1 To 5
    
18.             brr(i + 1, 2) = brr(i + 1, 2) & (InStr(my, Mid(Split(arr(i), ";")(1), l, 1)) - 1)
    
19.         Next
    
20.         brr(i + 1, 3) = Split(arr(i), ";")(2)
    
21.     Next
    
22.     Range("a1").Resize(, 3) = Array("开奖期号", "开奖号码", "开奖时间")
    
23.     Range("a2").Resize(UBound(brr), 3) = brr
    
24.     MsgBox "获取成功!", , "恭喜"
    
25. End Sub

复制代码

雪舞子

运行代码后可以获取最新120期开奖数据

xdwy

妖狐 发表于 2014-3-27 11:49
我生病在家你也不来看我，还催代码。唉

在哪里呀，我不知道，如果告诉，一定来探望
：）

ghostjiao

雪舞子 发表于 2014-3-27 13:39
这个网站代码以前我写过,详见:http://www.excelpx.com/thread-318557-1-1.html
略微修改一下:

{:1212:}没看懂呢，学委 为什么我用fiddler一个数据没找到呢，你那发送请求那一部分怎么怎么弄出来的呢