专家坐堂-求助：论坛中发送微信卡片信息代码运行提示未知编辑错误Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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