以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  微信获取图文统计数据 提示错误 是不是get或post方式不对呢？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150156)
--  作者：李孝春
--  发布时间：2020/5/22 10:19:00
--  微信获取图文统计数据 提示错误 是不是get或post方式不对呢？
微信获取图文统计数据   提示错误 是不是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编辑过]
--  作者：有点蓝
--  发布时间：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编辑过]
--  作者：李孝春
--  发布时间：2020/5/22 11:04:00
--  回复：（有点蓝）Dim hc As New HttpClient("https://...
OK 谢谢老师  主要是没有操作过  所以有点不知所措  灰常感谢！
--  作者：goe12345
--  发布时间：2020/5/23 9:35:00
--  以前没接触过，谢谢
以前没接触过，谢谢