以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何在微信中回复多条图文  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=146180)
--  作者：YANGYUNLIN
--  发布时间：2020/2/18 12:30:00
--  如何在微信中回复多条图文

图片点击可在新窗口打开查看此主题相关图片如下：图文.png
图片点击可在新窗口打开查看

回复3条图文，能给个例子吗？
--  作者：有点蓝
--  发布时间：2020/2/18 13:43:00
--  
比如

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)
……
--  作者：YANGYUNLIN
--  发布时间：2020/2/20 9:54:00
--  
按这样的程序，还是只能发一条图文
--  作者：有点蓝
--  发布时间：2020/2/20 11:10:00
--  
请贴出自己写的完整代码。
--  作者：YANGYUNLIN
--  发布时间：2020/2/20 11:21:00
--  
有点蓝老师，这样做代码也只显示第一个图文，请帮忙看一下哪儿没写对
                    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)
--  作者：有点蓝
--  发布时间：2020/2/20 11:53:00
--  
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)