这代码是论坛上的 但是没有达到效果，不熟悉使用，请各位多多指教 谢谢！
代码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)
下面是帮助文档，敬请各位老师多多指导 谢谢！
最大时间跨度是指一次接口调用时最大可获取数据的时间范围，如最大时间跨度为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编辑过]
加好友 
发短信
Post By：2016/10/9 0:38:00 [显示全部帖子]
