以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  微信公众号主动发送消息  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191770)
--  作者：YDS
--  发布时间：2024/5/8 19:56:00
--  微信公众号主动发送消息

主动发送文本消息，因为我的是安全模式，请问如何对消息进行加密！

以下是主动发送文本消息的示例代码，你可以在命令窗口运行测试：

Dim jo As New JObject
jo("touser") = "ofjtFwBSZ5cNqTKLSKx2TNEAxfBI"
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
--  作者：YDS
--  发布时间：2024/5/8 20:58:00
--  
现在发送的消息接收到都是：oWePqv_Fds5uwJCyky9NCwdstdbM
--  作者：有点蓝
--  发布时间：2024/5/9 8:35:00
--  
http://www.foxtable.com/mobilehelp/topics/0210.htm
--  作者：YDS
--  发布时间：2024/5/9 8:51:00
--  
以下是引用有点蓝在2024/5/9 8:35:00的发言：
http://www.foxtable.com/mobilehelp/topics/0210.htm
我看到了这个地方，但是主动发送消息的时候还是不会加密。
--  作者：有点蓝
--  发布时间：2024/5/9 8:56:00
--  
是指这个功能是吧？http://www.foxtable.com/mobilehelp/topics/0179.htm，这种本身就没有加解密功能
--  作者：YDS
--  发布时间：2024/5/9 9:21:00
--  
以下是引用有点蓝在2024/5/9 8:56:00的发言：
是指这个功能是吧？http://www.foxtable.com/mobilehelp/topics/0179.htm，这种本身就没有加解密功能
那如果没有加密，我主动发送的消息会什么收到的是乱码？
--  作者：有点蓝
--  发布时间：2024/5/9 9:36:00
--  
看了一下公众号文档，为了避免骚扰用户，貌似已经取消了主动发送消息的功能了，改为客服消息：https://developers.weixin.qq.com/doc/offiaccount/Message_Management/Service_Center_messages.html
--  作者：YDS
--  发布时间：2024/5/9 9:53:00
--  
收到，谢谢！已经打算使用模板消息了