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={0}&secret={1}"
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
End If
Return Nothing
使用的是正式公众号
在命令窗口运行
Dim access_token As
String = Functions.Execute("GetAccessToken")
Output.Show(access_token)
报错代码
获取accecc_token失败，原因：
invalid ip 27.211.118.55 ipv6 :ffff:27.211.118.55,not in whitelist rid: 616d3e77-704b8e3b-229f0765
[此贴子已经被作者于2021/10/18 17:32:48编辑过]
加好友 
发短信
Post By：2021/10/18 17:32:00 [只看该作者]
此主题相关图片如下：1634551716(1).jpg