曾经有一段时间我用以下VBA程序能访问到这个“http://xueqiu.com/cubes/rebalancing/history.json?cube_symbol=ZH651290&count=20&page=1”网站的数据。代码如下:            
With CreateObject("MSXML2.serverXMLHTTP")
                .Open "post", "http://xueqiu.com/cubes/rebalancing/history.json?cube_symbol=" & ws1.Cells(1, 8) & "&count=20&page=1", False                .Send
                 While .readystate <> 4
                    DoEvents
                Wend
                web_content = .responseText
      End With
//////////////////但是现在访问却只得到“403 Forbidden. Your IP Address: 112.82.160.** .”
而我用浏览器输入网址还是能返回数据“{"count":20,"page":1,"totalCount":813,"list":后面的省略了。”
这是什么情况呢?难道网站能监测出我访问它的方式,阻止我用程序访问,请求高人指点。

解决方案 »

  1.   

    工具、选项、安全性、宏安全性、可靠发行商、信任对于“Visual Basic 项目”的访问。
    试试看。
      

  2.   

    这个是用XMLHTTP的
    他的访问格式是和普通的不一样的
    因为没有一些浏览器信息的
    所以服务器可以很容易的辨别出来
    你可以自己伪造浏览器信息
    或者直接用WEBBROWER来采集
      

  3.   

    我登录了下你这个网页
    发现错误
    {"error_description":"遇到错误,请刷新页面或者重新登录帐号后再试","error_uri":"/cubes/rebalancing/history.json","error_code":"400016"}
    你给个能用的我给你看下
    估计是要模拟浏览器的refer
      

  4.   

    有些网站是不支持非网页访问的,那就要模拟添加一些HEADER,引用页,UA等