代码如下
Dim postdata As String ="{""type"":""news"",""offset"":""0"",""count"":""1""}"
Dim url = String.Format("https://api.weixin.qq.com/cgi-bin/material/batchget_material?access_token=MsxFpyXCWH1Qp5R57uqxChsa6MYvkjyUYkADKWDBjnZNMsARiOdhMsdvXlpnQ0sTa2JNJnnH12CyaXHtBf49uVwrX781Ms4fjYLaAUwJZ5KA-169hn2fyncNnC2T4U5RIQVeAEAPXC")
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向接口传输菜单数据,并取得返回结果
output.show(jsonString )
End Using
(在命令窗体运行)错误如下:
此主题相关图片如下:11.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2016-11/20161131635932760.png)
相关说明https://mp.weixin.qq.com/wiki?t=resource/res_main&id=mp1444738734&token=&lang=zh_CN