微信企业号发送信息出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 微信企业号发送信息出错

共有2136人关注过本帖树形打印复制链接主题：微信企业号发送信息出错

baoxyang

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐精帖子：3313 积分：23146 威望：0 精华：1 注册：2009/3/31 11:25:00

微信企业号发送信息出错 发帖心情

Post By：2017/10/17 15:00:00 [只看该作者]

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

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：111419 积分：567171 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/10/17 16:19:00 [只看该作者]

检查“GetAccessToken”函数使用的开发者ID和Secret是agentid为1 的Secret。

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