Foxtable(狐表)用户栏目专家坐堂 → 如何在微信中回复多条图文


  共有1753人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
YANGYUNLIN
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:119 积分:1012 威望:0 精华:0 注册:2017/11/2 8:16:00
如何在微信中回复多条图文  发帖心情 Post By:2020/2/18 12:30:00 [只看该作者]


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

回复3条图文,能给个例子吗?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:119 积分:1012 威望:0 精华:0 注册:2017/11/2 8:16:00
  发帖心情 Post By:2020/2/20 9:54:00 [只看该作者]

按这样的程序,还是只能发一条图文

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/20 11:10:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
YANGYUNLIN
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:119 积分:1012 威望:0 精华:0 注册:2017/11/2 8:16:00
  发帖心情 Post By: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)


 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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)


 回到顶部