Javascript是大小写敏感 的,要关闭代码编辑器的着色功能
Dim postdata As String ="{""type"":""news"",""offset"":""0"",""count"":""2000""}"
Dim url = String.Format("https://api.weixin.qq.com/cgi-bin/material/batchget_material?access_token=CQC8IZ77bPftBxnEovxmIbhx3EQ7PdSzDXaPl2ag9W5ky6l3Cis8camkkZVOuvJxurMjfXJH3hALFXBxfQLJiBiFlEJA8-r7hRpBqsIIEitSSORhf22AtVZMBk1oUkGeGWKfAIASIW")
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向接口传输菜单数据,并取得返回结果
Dim json As String = jsonString
Dim ScriptControl As Object, data As Object, JscriptCode As String
JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"
ScriptControl = CreateObject("MSScriptControl.ScriptControl")
With ScriptControl
.Language = "Javascript"
.Timeout = -1
.AddCode(JscriptCode)
data = .Run("toObject", json)
End With
output.Show(json)
Dim dr As DataRow
For Each obj As object In data.item
For Each item As object In obj.content.news_item
dr = DataTables("表A").AddNew
dr("第六列") = obj.media_id
Dim BaseDatetime As New DateTime(1970, 1, 1)
'Output.Show(BaseDatetime.AddSeconds(1476065493).AddHours(8))
dr("第二列") = BaseDatetime.AddSeconds(obj.update_time).AddHours(8)
dr("第一列") = item.title
dr("第三列") = item.url
dr("第四列") = item.content_source_url
dr("第五列") = item.author
Next
Next
End Using
[此贴子已经被作者于2016/11/4 1:40:27编辑过]