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
这个代码发不信息！
加好友 
发短信
Post By：2018/7/5 17:08:00 [只看该作者]
