主题：微信发送卡片信息无法发送

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

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

没有对应的接口。无法做到。

1、微信没有这种接口；

2、嵌入，参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=109672&replyID=748271&skin=1

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=130991&skin=0