VBA网抓，因为访问频繁，被限IP。求VBA执行完网页打开后抓取的代码。

pier_624

Sub A009_4()
Sheets("A001").Select
    On Error Resume Next
'''澳客网抓取竞彩赔率和购买量
Dim a
    For a = 27 To 27
        If Cells(a, 9) <> "" Then
        Set XML = CreateObject("MSXML2.XMLHTTP")
        a1 = "https://www.okooo.com/soccer/match/" + Cells(a, 9) + "/exchanges/"
        Url = a1
        Excel.Application.ActiveWorkbook.FollowHyperlink "https://www.okooo.com/soccer/match/" + Cells(a, 9) + "/exchanges/"
        With XML
         .Open "get", Url, False
         .SetRequestHeader "if-Modified-Since", "0"
         .send
         strText = .responseText
       End With
       strText = Split(strText, "class=""titlebg borderRight"">")
       t1 = Split(strText(2), "</td>")(5)
       Cells(a, 10) = t1      
End If
Next a
End Sub

这是一段我自己在使用的代码，但是因为访问网页时频率太高，会被网站显示IP访问。


我记得以前看到过一段代码，大概的执行效果是这样的，
1、打开某指定网页；
2、确认网页加载完毕；
3、抓取需要的数据；
4、关闭该页面。
这样就会让网站认为我是正常浏览。
请大神帮助指点解决一下，谢谢了~~

约定的童话

用UiBot机器人抓吧

perfect131

可以搞，协议就是最好的、适当加sleep、别把别人服务器搞垮了

tspliu

隔一段时间重启下光猫吧，我直接加循环200次访问都没问题，你访问的实在太多了估计

onlycxb

这个要使用代理