微信企业号发送信息出错 - 专家坐堂 - 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("GetAccessToken")))

Dim jo As New JObject

jo("touser") = "WangGaoPing"

jo("msgtype") = "text"

jo("agentid") = 1

jo("text") = New JObject

jo("text")("content") = "测试微信开发"

hc.Content = jo.ToString

jo = JObject.Parse(hc.GetData)

If jo("errcode") = "0" Then

MessageBox.show("消息发送成功!")

Else

MessageBox.show(jo.ToString)

End If

会出现如下提示，请指点！
图片点击可在新窗口打开查看

此主题相关图片如下：qq图片20171017145842.png

主题：微信企业号发送信息出错