如何在微信中回复多条图文 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

比如

Dim ao As New JObject

ao("Title") = "图文标题1" '图文标题

ao("Description") = "图文简介1" '图文简介

ao("PicUrl") = "https://ss1.baidu.com/6ONXsjip0QIZ8tyhnq/it/u=1632653074,1222564348&fm=80&w=179&h=119&img.JPEG" '图片

ao("Url") = "http://news.ifeng.com/a/20170201/50640529_0.shtml" '单击阅读原文后跳转的连接

ja.Add(ao)

ao = New JObject

ao("Title") = "图文标题2" '图文标题

ao("Description") = "图文简介2" '图文简介

ao("PicUrl") = "https://ss1.baidu.com/6ONXsjip0QIZ8tyhnq/it/u=1632653074,1222564348&fm=80&w=179&h=119&img.JPEG" '图片

ao("Url") = "http://news.ifeng.com/a/20170201/50640529_0.shtml" '单击阅读原文后跳转的连接

ja.Add(ao)

……

请贴出自己写的完整代码。

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 '图文数量

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)

so("Articles") = New JObject()

so("Articles")("item") = ja

e.WriteString(so.ToXML)

主题：如何在微信中回复多条图文