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

做人不如猪

老师的帖子反复的看了几遍了，一些简单的网站也能抓下来了，可是我们公司内网网站系统太难搞了。还需要加油练习和摸索，还是非常感谢吴老师的。

wlclw91119

你好，我看了你这个帖子，真心学得是适合不懂网抓的人来实战的帖子，我看完后也进行了一些尝试，但是不懂理论容易遇到坑，我是做亚马逊的，现在想要监控自己产品的排名，想看看一些广告词搜索结果中自己产品的排名，但是发现fillder抓不到亚马逊网站的包，很奇怪不知道为什么
https://www.amazon.de/

chis3

網抓要學的知識真多啊,什至感覺比學全程書中的vba還多
是mark一下好了,很少會用網抓,沒有動力學,還是以為有機會用才來了

赵莲

好的东西必须收藏标记！

twowood2008

留个记号,来学习,咋没找到收藏.

万木青

大师，我想请教一下异步取数不是性能更好？我看你基本都是同步取数

bdggch

坛子里，高手云集，且还这么愿意分享知识，真是我等幸事。

姜你的帅

赞赞赞!谢谢！慢慢消化学习！

xiang_zhou

以下是我看了教程，爬的12306上海到北京的时刻表，供参考

Sub login12306()
  Dim ss
    With CreateObject("winhttp.winhttprequest.5.1")
        .Open "GET", "https://kyfw.12306.cn/otn/leftTicket/query?leftTicketDTO.train_date=2018-04-21&leftTicketDTO.from_station=SHH&leftTicketDTO.to_station=BJP&purpose_codes=ADULT", False
        .setrequestheader "Referer", "https://kyfw.12306.cn/otn/leftTicket/init"
        .setrequestheader "Cookie", "JSESSIONID=A5F10A1E313985CE650C5612569D9637; route=c5c62a339e7744272a54643b3be5bf64; BIGipServerotn=1691943178.24610.0000; current_captcha_type=C; _jc_save_fromStation=%u4E0A%u6D77%2CSHH; _jc_save_toStation=%u5317%u4EAC%2CBJP; _jc_save_fromDate=2018-04-21; _jc_save_toDate=2018-04-20; _jc_save_wfdc_flag=dc"
                                    
        .send
         ss = .responseText
        MsgBox ss

        Sheet3.Cells(1, 1) = ss
    End With
End Sub

Sub reg12306()

       Dim str, matc
       Dim j, i
       Dim regx As Object
          j = 1
         
           Set regx = CreateObject("vbscript.regexp")
               str = Sheet3.Cells(1, 1)
           Dim s
            With regx
              .Global = True
              '.Pattern = "\""" & "1,\S+"
              .Pattern = "预\S\|([^|]*)\S([^|]*)\S([^|]*)\S([^|]*)\S([^|]*)\S([^|]*)\S([^|]*)\S([^|]*)\S([^|]*)"
              'MsgBox "\{""pro\S+ \S+ \S+\""}"
               Set matc = .Execute(str)
                 For Each s In matc
                  For i = 0 To s.SubMatches.Count - 1
                   Sheet3.Cells(j, i + 2) = s.SubMatches.Item(i)
                  Next i
                 j = j + 1
                 Next
            End With
End Sub

xiang_zhou

Sub login12306()
  Dim ss
    With CreateObject("winhttp.winhttprequest.5.1")
        .Open "GET", "https://kyfw.12306.cn/otn/leftTicket/query?leftTicketDTO.train_date=2018-04-21&leftTicketDTO.from_station=SHH&leftTicketDTO.to_station=BJP&purpose_codes=ADULT", False
        .setrequestheader "Referer", "https://kyfw.12306.cn/otn/leftTicket/init"
        .setrequestheader "Cookie", "JSESSIONID=A5F10A1E313985CE650C5612569D9637; route=c5c62a339e7744272a54643b3be5bf64; BIGipServerotn=1691943178.24610.0000; current_captcha_type=C; _jc_save_fromStation=%u4E0A%u6D77%2CSHH; _jc_save_toStation=%u5317%u4EAC%2CBJP; _jc_save_fromDate=2018-04-21; _jc_save_toDate=2018-04-20; _jc_save_wfdc_flag=dc"
                                    
        .send
         ss = .responseText
        MsgBox ss

        Sheet3.Cells(1, 1) = ss
    End With
End Sub

Sub reg12306()

       Dim str, matc
       Dim j, i
       Dim regx As Object
          j = 1
         
           Set regx = CreateObject("vbscript.regexp")
               str = Sheet3.Cells(1, 1)
           Dim s
            With regx
              .Global = True
              '.Pattern = "\""" & "1,\S+"
              .Pattern = "预\S\|([^|]*)\S([^|]*)\S([^|]*)\S([^|]*)\S([^|]*)\S([^|]*)\S([^|]*)\S([^|]*)\S([^|]*)"
              'MsgBox "\{""pro\S+ \S+ \S+\""}"
               Set matc = .Execute(str)
                 For Each s In matc
                  For i = 0 To s.SubMatches.Count - 1
                   Sheet3.Cells(j, i + 2) = s.SubMatches.Item(i)
                  Next i
                 j = j + 1
                 Next
            End With
End Sub