Foxtable(狐表)用户栏目专家坐堂 → 关于获取AccessTocken的参数


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

主题:关于获取AccessTocken的参数

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


加好友 发短信
等级:七尾狐 帖子:1691 积分:16454 威望:0 精华:0 注册:2013/7/31 13:03:00
关于获取AccessTocken的参数  发帖心情 Post By:2020/9/8 15:47:00 [显示全部帖子]

以下代码中,企业号的CorpID 和 管理组的Secret 在企业微信中应该替换为什么? 

Static
 CreateTime As Date '记录最近一次生成access_token的时间
Static
 AccessTocken As String '记录最近一次生成的access_token
Dim
 CorpID As String=  "ww7deed3af842576ed" '企业号的CorpID
Dim
 Secret As String = "sO7RjwoisX82kB_gcRY4isEU8ZC6sJVcGs6CDlz8Nkc" '管理组的Secret
Dim
 tp As TimeSpan = Date.Now - CreateTime
If
 tp.TotalSeconds > 3600 Then
    Dim url As String = "https://qyapi.weixin.qq.com/cgi-bin/gettoken?corpid={0}&corpsecret={1}"
    Dim hc As New HttpClient(CExp(url, CorpID, Secret))
    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("access_token"IsNot Nothing Then
        
AccessTocken = jo("access_token")
    Else
        MessageBox.show("获取access_token失败,原因:" & vbcrlf & jo.ToString)
    End If

End
 If
Return
 AccessTocken

企业号的CorpID 和 管理组的Secret

 回到顶部