公众号主动消息求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

订阅号权限如下

此主题相关图片如下：1646117920(1).jpg

报错代码如下

此主题相关图片如下：1646118008(1).jpg

Dim jo As New JObject

jo("touser") = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"

Dim str22 As String

str22 = jo("touser")

Dim PR1 As DataRow = DataTables("学员管理_学员信息表").Find("微信号 = '" & str22 & "' ")

Dim str23 As String

str23 = PR1("姓名")

MessageBox.Show(str23)

jo("msgtype") = "text"

jo("text") = New JObject

jo("text")("content") = "您好," & str23 & " ,快点去学习."

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

[此贴子已经被作者于2022/3/1 15:02:45编辑过]

提示的很明显你的IP地址没有加入到白名单中

ip 白名单加上了现在报错如下

此主题相关图片如下：1646118898(1).jpg

获取accesstoken失败，检查函数里appid和appscrect是否正确

Dim tr As DataRow = DataTables("系统设置").Find("序号 = '1'")

Static CreateTime As Date '记录最近一次生成access_token的时间

Static AccessTocken As String '记录最近一次生成的access_token

Dim AppId As String= tr("appid") '开发者ID

Dim AppSecret As String = tr("AppSecret") '开发者密匙

Dim tp As TimeSpan = Date.Now - CreateTime

Dim url As String = "https://api.weixin.qq.com/cgi-bin/token?grant_type=client_credential&appid=" & appid & "&secret=" & AppSecret

If tp.TotalSeconds > 3600 Then

Dim hc As New HttpClient(CExp(url,AppId,AppSecret))

Dim ret As String = hc.GetData()

If ret = "" Then '如果失败,再尝试一次

hc.GetData()

End If

CreateTime = Date.Now()

Dim jo As JObject = JObject.Parse(ret)

If jo("errcode") Is Nothing Then

AccessTocken = jo("access_token")

Else

MessageBox.show("获取access_token失败,原因:" & vbcrlf & jo("errmsg").ToString)

End If

Return AccessTocken

都获取最新的了,还是报错.

此主题相关图片如下：1646122585(1).jpg

msgbox(Functions.Execute("GetAccessToken"))显示什么内容？

另外确定开发者ID，开发者密匙填写正确

Dim AppId As String= tr("appid") '开发者ID、

Dim AppSecret As String = tr("AppSecret")

不能使用A公众号的AccessToken给B公众号发消息的

主题：公众号主动消息求助