不懂html也来学网抓（xmlhttp/winhttp+fiddler）

wcymiss

吐槽：
卡死我了，是EH慢还是我的网速慢？一下午就写了这点帖子！每次都要刷新好多次才能成功发帖！我的网速昨天下载速度还上了8M/s的。。。

bluexuemei

wcymiss 发表于 2014-10-21 16:52
吐槽：
卡死我了，是EH慢还是我的网速慢？一下午就写了这点帖子！每次都要刷新好多次才能成功发帖！我的网 ...

吴姐，好久不见你了，终于重出江湖了，江湖有你才叫江湖。你才一下午就写了这么多，太牛，只能仰望！你的网速下载速度竟能达到8M，羡慕嫉妒恨啊！

onlycxb

wcymiss 发表于 2014-10-21 14:13
新手作业：
1、网站：http://data.bank.hexun.com/lccp/jrxp.aspx
     操作：点击“今日在售产品”，获取 ...

1. DongYu作业1.rar (18.29 KB, 下载次数: 791)
   2014-10-21 17:05 上传

   点击文件名下载附件
   
   
2. Sub HomerWork1_1()
   
3. '新手:DongYu
   
4. '作业：1、网站：http://data.bank.hexun.com/lccp/jrxp.aspx
   
5. '      操作：点击“今日在售产品”，获取今日在售产品第一页的数据。
   
6. 
   
7.     Dim xml As New MSXML2.XMLHTTP, url As String, St As String
   
8.     Dim arr, brr, ar, i, c
   
9.     url = "http://data.bank.hexun.com/lccp/Jrxp.aspx?col=1&tag=desc&date=2014-10-21&page=2"
   
10.     With xml
    
11.         .Open "GET", url, False
    
12.         .send
    
13.         St = .responseText
    
14.     End With
    
15.     St = Split(Split(St, "<div class=""mark"">")(1), "</div>")(0)
    
16.     arr = Split(St, "<tr align='center'>")
    
17.     ReDim brr(1 To UBound(arr), 1 To 9)
    
18.     For i = 1 To UBound(arr)
    
19.         ar = arr(i)
    
20.         brr(i, 1) = Split(Split(ar, "value='")(1), "'")(0) + Split(Split(ar, "<font class='cred'>")(1), "</font>")(0)
    
21.         brr(i, 2) = Split(Split(ar, "</font></td><td class='hl'>")(1), "</td>")(0)
    
22.         brr(i, 3) = Split(Split(ar, "<td  class='on'>")(1), "</td>")(0)
    
23.         brr(i, 4) = Split(Split(ar, "<td  class='hl'>")(1), "</td>")(0)
    
24.         brr(i, 5) = Split(Split(ar, "<td  class='hl'>")(2), "</td>")(0)
    
25.         brr(i, 6) = Split(Split(ar, "<td  class='hl'>")(3), "</td>")(0)
    
26.         brr(i, 7) = Split(Split(ar, "<td  class='hl'>")(4), "</td>")(0)
    
27.         brr(i, 8) = Split(Split(ar, "<td  class='hl'>")(5), "</td>")(0)
    
28.         brr(i, 9) = Split(Split(Split(ar, "<td  class='hl'>")(5), "</td>")(1), ">")(1)
    
29. 
    
30.     Next i
    
31.     With ActiveSheet
    
32.         .Cells.Clear
    
33.         .Columns("D:E").NumberFormatLocal = "yyyy-m-d"
    
34.         .[a1].Resize(1, 10) = [{"对比","产品名称","银行","起售日","停售日","币种","管理期(月)","产品类型","预期收益(%)","收益"}]
    
35.         .[b2].Resize(UBound(brr, 1), 9) = brr
    
36.     End With
    
37. End Sub
    

复制代码

onlycxb

先交半份作业，只提取一页。晚上再交另一份。

VBA万岁

正需要这个，多谢分享！

blanksoul12

真的很多謝妳,IE法略知一二,但面對網頁是表的時候,都希望用XMLHTTP來應對的,但真不知怎做,現在有妳這個,認知多了,但應該還有些技巧吧,能否再說下去呢?

lolmuta

有没有更平易近人的工具啊…?公司的电脑没有安装.net,不能用啊…
我一直都是用chrome来分析网页元素，因为非常的直觉，但是精细到分析post倒是从来没碰过

lexiaoyao8848

感谢wcymiss的精彩教程，期待继续！！！

张雄友

看不懂，但楼主的确很有技术。

onlycxb

wcymiss 发表于 2014-10-21 11:45
fiddler的安装、设置、使用
安装：
下载链接：http://www.telerik.com/download/fiddler

在fiddler界面中，点击左下方的"Capturing"按钮停止fiddler抓包。

                                         再次点击继续抓包。！