在AfterOpenProject设置好自己的AppId和AppSecret
Dim postdata As String = "{ ""begin_date"": ""2014-12-07"", ""end_date"": ""2014-12-07""}"
Dim accesstoken = Functions.Execute("GetAccessToken") '获取AccessToken
'定义接口url
Dim url = String.Format("https://api.weixin.qq.com/datacube/getarticlesummary?access_token={0}", accesstoken.access_token)
Using ms As New System.IO.MemoryStream()
Dim bytes = ConvertHelper.EncodingToBytes(postdata, System.Text.Encoding.UTF8)
ms.Write(bytes, 0, bytes.Length)
ms.Seek(0, System.IO.SeekOrigin.Begin)
Dim jsonString = Functions.Execute("HttpPost",url, ms) '通过POST向接口传输菜单数据,并取得返回结果
msgbox(jsonString )
End Using
加好友 
发短信
Post By：2016/10/10 9:15:00 [显示全部帖子]
