'可以一次发送最多8个图文消息,这里只发送了1个
老师,发多条要怎么写呢?比如发2条
是遍历行吗?
Dim joka As New JObject
Dim jaka As New JArray
joka("touser") = xo("FromUserName")
joka("msgtype") = "news"
For i As Integer = 1 To 1 '可以一次发送最多8个图文消息,这里只发送了1个
Dim aoka As New JObject()
aoka("title") = dr1("图文标题").Tostring '图文标题
aoka("description") = dr1("图文简介").Tostring '图文简介
aoka("url") = dr1("图文正文链接").Tostring '单击阅读原文后跳转的连接
aoka("picurl") = dr1("图片链接").Tostring '图片
jaka.Add(aoka)
Next
joka("news") = New JObject()
joka("news")("articles") = jaka
Dim urlka As String = "https://api.weixin.qq.com/cgi-bin/message/custom/send?access_token={0}"
Dim hcka As New HttpClient(CExp(urlka,Functions.Execute("GetAccessToken",zhangtao)))
hcka.Content = joka.ToString()
joka = JObject.Parse(hcka.GetData())
[此贴子已经被作者于2018/5/7 22:38:20编辑过]