Foxtable(狐表)用户栏目专家坐堂 → 微信公众号如何在本地客户端发送信息?


  共有2483人关注过本帖平板打印复制链接

主题:微信公众号如何在本地客户端发送信息?

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


加好友 发短信
等级:三尾狐 帖子:626 积分:5590 威望:0 精华:0 注册:2012/8/2 19:04:00
微信公众号如何在本地客户端发送信息?  发帖心情 Post By:2020/1/14 9:51:00 [只看该作者]

请问下如何在本地客户端使用公众号信息发送功能?这个在服务器上可以执行,本地客户端会有这个错误提示



图片点击可在新窗口打开查看此主题相关图片如下:cuowu1.png
图片点击可在新窗口打开查看


主动发送文本消息

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

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


 回到顶部