有点蓝老师，这样做代码也只显示第一个图文，请帮忙看一下哪儿没写对
Dim so As New Foxtable.XObject()
Dim ja As New JArray
so("ToUserName") = xo("FromUserName")
so("FromUserName") = xo("ToUserName")
so("CreateTime") = (Date.Now - st).TotalSeconds()
so("MsgType") = "news"
so("ArticleCount") = 1 '图文数量
For cnt As Integer = 1 To 2 '可以回最多8条图文,这里只回1条
Dim ao As New JObject
ao("Title") = "欢迎进入宁波开浦公众号" '图文标题
ao("Description") = "我司是一家集桁架机器人生产,关节机器人集成,及物联网" '图文简介
ao("PicUrl") = "http://mmbiz.qpic.cn/mmbiz_jpg/wuPWPibiadqhzgaYEicGoRLcrfickNK1jGzCEu0hrAtzC91icQcgK3arRZeJz0zDy3eot5AuiazAib07e6yGdXszZmSdg/0?wx_fmt=jpeg" '图片
ao("Url") = "http://kplai.com.cn/product/277820953" '单击阅读原文后跳转的连接
ja.Add(ao)
ao = New JObject
ao("Title") = "欢迎进入" '图文标题
ao("Description") = "我司是一" '图文简介
ao("PicUrl") = "https://ss1.baidu.com/6ONXsjip0QIZ8tyhnq/it/u=1632653074,1222564348&fm=80&w=179&h=119&img.JPEG" '图片
ao("Url") = "https://www.kaipu.top/index.html" '单击阅读原文后跳转的连接
ja.Add(ao)
Next
so("Articles") = New JObject()
so("Articles")("item") = ja
e.WriteString(so.ToXML)
加好友 
发短信
Post By：2020/2/18 12:30:00 [显示全部帖子]
此主题相关图片如下：图文.png