以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助:狐表怎么处理POST微信公众号API提交数据,并分析反馈得到的JSON文件呢?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91352)

--  作者:李孝春
--  发布时间:2016/10/9 0:38:00
--  求助:狐表怎么处理POST微信公众号API提交数据,并分析反馈得到的JSON文件呢?
这代码是论坛上的 但是没有达到效果,不熟悉使用,请各位多多指教  谢谢!
代码1:【运行直接提示成功,但是却没有得到数据】
Dim msg As String = ""
Dim req = System.Net.WebRequest.Create("https://api.weixin.qq.com/datacube/getarticlesummary?access_token=access_token")
req.Method = "POST"
req.C
req.ContentLength = msg.Length
Dim pos = req.GetResponse
Dim stm As System.IO.Stream = pos.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm)
Dim str As String = reader.ReadToEnd
pos.Close
stm.Close
reader.close
msgbox("成功")

代码2:【运行直接报错】
Dim XMLH As Object
XMLH = CreateObject("Microsoft.XMLHTTP")
Dim begin_date As Date
begin_date="2014-12-08"
Dim end_date As Date
end_date="2015-12-08"
XMLH.open("Post", begin_date, True)
xmlH.setRequestHeader("CONTENT-TYPE","application/x-www-form-urlencoded; charset=UTF-8")
XMLH.send("url=https://api.weixin.qq.com/datacube/getarticlesummary?access_token=JHVbdayaUOJBbir4sV8xpHz8HoNfg8CgFt20xzXeRK8xAEbLaTYaITql4mrZuWEtCI3m0sYhiAPFIJ3utUw5sR-")
Do While XMLH.readyState <> 4
    Application.DoEvents
Loop
Output.Show( XMLH.responseText)


下面是帮助文档,敬请各位老师多多指导  谢谢!


接口名称最大时间跨度接口调用地址(必须使用https)
获取图文群发每日数据(getarticlesummary)1https://api.weixin.qq.com/datacube/getarticlesummary?access_token=ACCESS_TOKEN



最大时间跨度是指一次接口调用时最大可获取数据的时间范围,如最大时间跨度为7是指最多一次性获取7天的数据。access_token的实际值请通过“获取access_token”来获取。


接口调用请求说明

图文分析数据接口(包括接口列表中的所有接口)需要向相应接口调用地址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允许设置的最大值为昨日

返回说明

正常情况下,获取图文群发每日数据接口的返回JSON数据包如下:

{ 
    "list": [ 
        { 
            "ref_date": "2014-12-08", 
            "msgid": "10000050_1", 
            "title": "12月27日 DiLi日报", 
            "int_page_read_user": 23676, 
            "int_page_read_count": 25615, 
            "ori_page_read_user": 29, 
            "ori_page_read_count": 34, 
            "share_user": 122, 
            "share_count": 994, 
            "add_to_fav_user": 1, 
            "add_to_fav_count": 3
        } 
 	 //后续会列出该日期内所有被阅读过的文章(仅包括群发的文章)在当天的阅读次数等数据
    ]
}
[此贴子已经被作者于2016/10/9 1:13:33编辑过]

--  作者:有点蓝
--  发布时间:2016/10/9 9:38:00
--  
等狐表的下个版本吧,已经有包装好的函数了,直接调用就可以
--  作者:李孝春
--  发布时间:2016/10/9 9:49:00
--  回复:(有点蓝)等狐表的下个版本吧,已经有包装好的...
问题是现在有没有变通实现的办法呢?烦请多多指导 谢谢
--  作者:有点蓝
--  发布时间:2016/10/9 10:25:00
--  
参考:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77195&replyID=&skin=1