Foxtable(狐表) → 用户栏目 → 专家坐堂 → 微信发送卡片信息无法发送


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

主题：微信发送卡片信息无法发送
帅哥哟，离线，有人找我吗？
xietan417
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：731 积分：6493 威望：0 精华：0 注册：2011/6/26 11:45:00 		微信发送卡片信息无法发送  发帖心情 Post By：2018/7/5 17:08:00 [只看该作者]

Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/message/send?access_token={0}"
Dim hc As new HttpClient(Cexp(ur,Functions.Execute("GetQYAccessToken")))
Dim jo As New JObject
Dim ja As New JArray
jo("touser") = "xt"
jo("msgtype") = "textcard"
jo("agentid") = 1000015
For i As Integer = 1 To 1 '可以一次发送最多8个图文消息,这里只发送了1个
    Dim ao As New JObject()
    ao("title") =  "特朗普" '标题
    ao("description") = "特朗普在白宫提名尼尔·戈萨奇为美国最高法院大法官" '描述
    ao("url") = "http://news.ifeng.com/a/20170201/50640529_0.shtml" '连接
    ao("btntxt") = "更多" '图片
    ja.Add(ao)
Next
jo("textcard") =  New JObject()
jo("textcard")= ja
hc.Content = jo.ToString()
jo = JObject.Parse(hc.GetData)
If jo("errcode") = "0" Then
    MessageBox.show("消息发送成功!")
Else
    MessageBox.show(jo.ToString)
End If

这个代码发不信息！
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110572 积分：562750 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/7/5 17:37:00 [只看该作者]


jo("textcard") =  New JObject()
jo("textcard")= ja
output.show(jo.ToString())，看消息内容是什么，核对微信文档的格式看有什么不同
hc.Content = jo.ToString()
jo = JObject.Parse(hc.GetData)
output.show(jo.ToString())，看返回什么结果
If jo("errcode") = "0" Then
    MessageBox.show("消息发送成功!")
Else
    MessageBox.show(jo.ToString)
End If
 回到顶部
帅哥哟，离线，有人找我吗？
xietan417
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：731 积分：6493 威望：0 精华：0 注册：2011/6/26 11:45:00 		  发帖心情 Post By：2018/7/5 18:59:00 [只看该作者]

{
  "touser": "xt",
  "msgtype": "textcard",
  "agentid": 1000015,
  "textcard": [
    {
      "title": "特朗普",
      "description": "特朗普在白宫提名尼尔·戈萨奇为美国最高法院大法官",
      "url": "http://news.ifeng.com/a/20170201/50640529_0.shtml",
      "btntxt": "更多"
    }
  ]
}
{
  "errcode": 40035,
  "errmsg": "Invalid input"
}

怎么会多了红色那个[？
[此贴子已经被作者于2018/7/5 19:01:22编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/7/5 20:40:00 [只看该作者]

应该是接口变了，代码改成

 

Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/message/send?access_token={0}"
Dim hc As new HttpClient(Cexp(ur,Functions.Execute("GetQYAccessToken")))
Dim jo As New JObject
Dim ja As New JArray
jo("touser") = "xt"
jo("msgtype") = "textcard"
jo("agentid") = 1000015

Dim ao As New JObject()
ao("title") =  "特朗普" '标题
ao("description") = "特朗普在白宫提名尼尔·戈萨奇为美国最高法院大法官" '描述
ao("url") = "http://news.ifeng.com/a/20170201/50640529_0.shtml" '连接
ao("btntxt") = "更多" '图片
jo("textcard")= ao
msgbox(jo.tostring)
hc.Content = jo.ToString()
jo = JObject.Parse(hc.GetData)
If jo("errcode") = "0" Then
    MessageBox.show("消息发送成功!")
Else
    MessageBox.show(jo.ToString)
End If

 
 回到顶部
帅哥哟，离线，有人找我吗？
xietan417
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：731 积分：6493 威望：0 精华：0 注册：2011/6/26 11:45:00 		  发帖心情 Post By：2018/7/5 23:52:00 [只看该作者]

谢谢甜版，还有一个问题就是如何设置字体的颜色？
"description" : "<div class=\"gray\">2016年9月26日</div> <div class=\"normal\">恭喜你抽中iPhone 7一台，领奖码：xxxx</div><div class=\"highlight\">请于2016年10月10日前联系行政同事领取</div>",
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/7/6 9:15:00 [只看该作者]

Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/message/send?access_token={0}"
Dim hc As new HttpClient(Cexp(ur,Functions.Execute("GetQYAccessToken")))
Dim jo As New JObject
Dim ja As New JArray
jo("touser") = "xt"
jo("msgtype") = "textcard"
jo("agentid") = 1000015
Dim ao As New JObject()
ao("title") =  "特朗普" '标题
ao("description") = "<div class=""gray"">2016年9月26日</div> <div class=""normal"">恭喜你抽中iPhone 7一台,领奖码:xxxx</div><div class=""highlight"">请于2016年10月10日前联系行政同事领取</div>"
ao("url") = "http://news.ifeng.com/a/20170201/50640529_0.shtml" '连接
ao("btntxt") = "更多" '图片
jo("textcard")= ao
msgbox(jo.tostring)
hc.Content = jo.ToString()
jo = JObject.Parse(hc.GetData)
If jo("errcode") = "0" Then
    MessageBox.show("消息发送成功!")
Else
    MessageBox.show(jo.ToString)
End If

 回到顶部
帅哥哟，离线，有人找我吗？
xietan417
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：731 积分：6493 威望：0 精华：0 注册：2011/6/26 11:45:00 		  发帖心情 Post By：2018/7/6 10:14:00 [只看该作者]

谢谢甜版！

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2018/7/26 11:37:00 [只看该作者]

Dim proc As new process
proc.file = "Tencent://Message/?uin=" & Tables("供应商档案").Current("联系方式_微信")
proc.start
如果设置按钮 怎么弹出微信对话框呀？感谢 感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/7/26 11:54:00 [只看该作者]

以下是引用yangwenghd在2018/7/26 11:37:00的发言：
Dim proc As new process
proc.file = "Tencent://Message/?uin=" & Tables("供应商档案").Current("联系方式_微信")
proc.start
如果设置按钮 怎么弹出微信对话框呀？感谢 感谢 

 

没有对应的接口。无法做到。
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2018/7/26 11:57:00 [只看该作者]

感谢 嘿嘿，谢谢 

 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08594 秒, 4 次数据查询