Foxtable(狐表)用户栏目专家坐堂 → 公众号 主动发送消息报错


  共有3352人关注过本帖树形打印复制链接

主题:公众号 主动发送消息报错

帅哥哟,离线,有人找我吗?
夜点蚊香
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:641 积分:4920 威望:0 精华:0 注册:2020/4/15 19:53:00
公众号 主动发送消息报错  发帖心情 Post By:2021/10/18 23:00:00 [显示全部帖子]

窗口执行代码如下
Dim jo As New JObject
jo("touser") = "oFBEw53TwwRaD8cldWrWZS8qFDT8"
jo("msgtype") = "text"
jo("text") =  New JObject
jo("text")("content") = "您好,我是Foxtable"
Dim URL As String = "https://api.weixin.qq.com/cgi-bin/message/custom/send?access_token={0}" 
Dim hc As New HttpClient(CExp(URL, Functions.Execute("GetAccessToken")))
hc.Content = jo.ToString()
jo = JObject.Parse(hc.GetData())
If jo("errcode") = "0" Then
    MessageBox.Show("消息发送成功")
Else
    MessageBox.show("消息发送失败,原因:" & vbcrlf  & jo("errmsg").ToString)
End If
报错代码

图片点击可在新窗口打开查看此主题相关图片如下:1634569168(1).jpg
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
夜点蚊香
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:641 积分:4920 威望:0 精华:0 注册:2020/4/15 19:53:00
  发帖心情 Post By:2021/10/18 23:23:00 [显示全部帖子]

谢谢,我先用测试账号吧

 回到顶部