以文本方式查看主题

-  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
--  
收到,谢谢!已经打算使用模板消息了