老师 这个单独命令窗口提示未知编辑错误 是不是还有什么前提
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
加好友 
发短信
Post By：2018/11/9 14:00:00 [只看该作者]
