Foxtable(狐表)用户栏目专家坐堂 → 微信获取图文统计数据 提示错误 是不是get或post方式不对呢?


  共有3498人关注过本帖树形打印复制链接

主题:微信获取图文统计数据 提示错误 是不是get或post方式不对呢?

帅哥哟,离线,有人找我吗?
李孝春
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
微信获取图文统计数据 提示错误 是不是get或post方式不对呢?  发帖心情 Post By:2020/5/22 10:19:00 [只看该作者]

微信获取图文统计数据   提示错误 是不是get或post方式不对呢?
获取图文统计数据(getuserread)

代码如下:
Dim hc As New HttpClient("https://api.weixin.qq.com/datacube/getuserread?access_token=33_YNQWBgI624ndBbYXLdsGK5NPsD8m6L2xb3cPV0_Ow7xeN-5DcGGZf2xnukHPCHlzAt5n3PudXYy_hvbFqfy38JUmOeFl_kqWpNFda5n1lCem2WTSqnz8m8fKd1_iMec_fzoXGipwbAX52SNMOOJbAHACCX")
Dim dt As String = hc.GetData()
output.Show(dt)
运行结果如下:
{"errcode":43002,"errmsg":"require POST method hint: [FemvPa07161556]"}

代码post:
Dim url As String
Dim http As Object
url = "https://api.weixin.qq.com/datacube/getuserread?access_token=33_YNQWBgI624ndBbYXLdsGK5NPsD8m6L2xb3cPV0_Ow7xeN-5DcGGZf2xnukHPCHlzAt5n3PudXYy_hvbFqfy38JUmOeFl_kqWpNFda5n1lCem2WTSqnz8m8fKd1_iMec_fzoXGipwbAX52SNMOOJbAHACCX"
http = CreateObject("MSXML2.XMLHTTP")
http.Open("post", url, False)
http.send()
output.Show("返回信息:" & http.responseText)
运行结果:
返回信息:{"errcode":44002,"errmsg":"empty post data hint: [lIt02701504]"}


代码get:
Dim url As String
Dim http As Object
url = "https://api.weixin.qq.com/datacube/getuserread?access_token=33_YNQWBgI624ndBbYXLdsGK5NPsD8m6L2xb3cPV0_Ow7xeN-5DcGGZf2xnukHPCHlzAt5n3PudXYy_hvbFqfy38JUmOeFl_kqWpNFda5n1lCem2WTSqnz8m8fKd1_iMec_fzoXGipwbAX52SNMOOJbAHACCX"
http = CreateObject("MSXML2.XMLHTTP")
http.Open("get", url, False)
http.send()
output.Show("返回信息:" & http.responseText)
运行结果:
返回信息:{"errcode":43002,"errmsg":"require POST method hint: [6tQ_7a01171487]"}
[此贴子已经被作者于2020/5/22 10:25:58编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109736 积分:558396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/5/22 10:31:00 [只看该作者]

Dim hc As New HttpClient("https://api.weixin.qq.com/datacube/getuserread?access_token=33_YNQWBgI624ndBbYXLdsGK5NPsD8m6L2xb3cPV0_Ow7xeN-5DcGGZf2xnukHPCHlzAt5n3PudXYy_hvbFqfy38JUmOeFl_kqWpNFda5n1lCem2WTSqnz8m8fKd1_iMec_fzoXGipwbAX52SNMOOJbAHACCX")
hc.ContentType = "application/json"
hc.Content = "{ ""begin_date"": ""2014-12-08"", ""end_date"": ""2014-12-08""}"
Dim dt As String = hc.GetData()
output.Show(dt)

文档自己发出来的,都不仔细看看?!

接口调用请求说明

图文分析数据接口(包括接口列表中的所有接口)需要向相应接口调用地址POST以下示例数据包:

{ 
    "begin_date": "2014-12-08", 
    "end_date": "2014-12-08"
}

调用参数说明

参数是否必须说明
access_token调用接口凭证
begin_date获取数据的起始日期,begin_date和end_date的差值需小于“最大时间跨度”(比如最大时间跨度为1时,begin_date和end_date的差值只能为0,才能小于1),否则会报错
end_date获取数据的结束日期,end_date允许设置的最大值为昨日
[此贴子已经被作者于2020/5/22 10:31:43编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点蓝)Dim hc As New HttpClient("https://...  发帖心情 Post By:2020/5/22 11:04:00 [只看该作者]

OK 谢谢老师  主要是没有操作过  所以有点不知所措  灰常感谢!

 回到顶部
帅哥哟,离线,有人找我吗?
goe12345
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:381 积分:2931 威望:0 精华:0 注册:2015/5/15 20:56:00
以前没接触过,谢谢  发帖心情 Post By:2020/5/23 9:35:00 [只看该作者]

以前没接触过,谢谢

 回到顶部