Foxtable(狐表)用户栏目专家坐堂 → [求助]access_token写在什么位置


  共有1524人关注过本帖树形打印复制链接

主题:[求助]access_token写在什么位置

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


加好友 发短信
等级:幼狐 帖子:131 积分:910 威望:0 精华:0 注册:2019/5/19 21:50:00
[求助]access_token写在什么位置  发帖心情 Post By:2019/6/13 14:51:00 [只看该作者]

微信接口那里access_token的代码写在哪里啊?
Static CreateTime As Date '记录最近一次生成access_token的时间
Static
AccessTocken As String '记录最近一次生成的access_token
Dim
AppId As String= "wx8acdb7df5beb68fd" '开发者ID
Dim
AppSecret As String = "a5a3b06a790d4200a151e6b13c3dc263" '开发者密匙
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
AccessTocken


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/13 16:25:00 [只看该作者]


 回到顶部