以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 发多条图文 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118641) |
-- 作者:fubblyc -- 发布时间:2018/5/7 22:37:00 -- 发多条图文 \'可以一次发送最多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编辑过]
|
-- 作者:有点蓝 -- 发布时间:2018/5/7 22:52:00 -- 不是吧 For i As Integer = 1 To 2 ------------------ For Each dr1 As DataRow = DataTables("表A").Select() 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 |
-- 作者:fubblyc -- 发布时间:2018/5/8 0:18:00 -- 恩恩,蓝老师,不好意思,搞定了 |