曾经有一段时间我用以下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":后面的省略了。”
这是什么情况呢?难道网站能监测出我访问它的方式,阻止我用程序访问,请求高人指点。
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":后面的省略了。”
这是什么情况呢?难道网站能监测出我访问它的方式,阻止我用程序访问,请求高人指点。
解决方案 »
- 数据库句柄丢失
- VB项目开发中的客户要求(需要帮助)
- 求:VB 编写一个 启用/禁用屏幕保护 的程序。
- 请问怎么设置 SetUp factory 7.0 安装完成后重新启动系统?
- 请问如何获得整个硬盘的序列号?
- 怎样实现点击下载,自动识别下载结束,并自动安装(像下载service pack)一样。急!
- 如何解决win98不登录网络也可以访问win2000共享目录的问题??
- 请问在SQL Server中有没有类似VB的ON Error错误处理语句。
- 用过Axtree控件的讨论一下
- 数据库问题
- 斑马打印机(ZEBRA)打印二维码
- 【用笔记本的都进来吧】看看我弄的散热神器!全开源,可以自己DIY!编程之人不打诳语啊!
试试看。
他的访问格式是和普通的不一样的
因为没有一些浏览器信息的
所以服务器可以很容易的辨别出来
你可以自己伪造浏览器信息
或者直接用WEBBROWER来采集
发现错误
{"error_description":"遇到错误,请刷新页面或者重新登录帐号后再试","error_uri":"/cubes/rebalancing/history.json","error_code":"400016"}
你给个能用的我给你看下
估计是要模拟浏览器的refer