以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  公众号 主动发送消息报错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=172547)

--  作者：夜点蚊香 --  发布时间：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

--  作者：有点蓝 --  发布时间：2021/10/18 23:08:00 --   提示没有权限调用接口：https://developers.weixin.qq.com/doc/offiaccount/Getting_Started/Explanation_of_interface_privileges.html

--  作者：夜点蚊香 --  发布时间：2021/10/18 23:23:00 --   谢谢，我先用测试账号吧