| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 昨天还好好的，今天运行：access_token就会出错。为什么？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101581) |
| -- 作者：ap9709130 -- 发布时间：2017/6/3 10:37:00 -- 昨天还好好的，今天运行：access_token就会出错。为什么？ 结果如下 获取access_token失败,原因: { "errcode": 0, "errmsg": "ok", "access_token": "xS4BDQf0TOw7cWrruzOOZDpvuLZ9D1QxH4zRPSHHZSHJ0AJwFri08DrE3kaMLueluB1Ar1TOoMpdwLUWLZJX3a679Cv64MFDrzQz9VRsHcLgQPfueDfmJK83lXZXxWAqFefenAEqjZ8oDohJz7viSJLpYtZJWsrNBHQYeEfib-0w92tA4JrpN_BVJqubW5y_UAwC9Ps8Tt-uySlN9L_XMtcHMjyTBqGnHL5HFNGCjxvx_i8lMVIuniJRraLtgkRIfX-KirG6OLJL2HpYFjUowTyhFn_Fqfi2QIFcDj62cj0", "expires_in": 7200 }
|
| -- 作者：ap9709130 -- 发布时间：2017/6/3 10:38:00 -- 我是用的官方的函数： Static CreateTime As Date \'记录最近一次生成access_token的时间 Static AccessTocken As String \'记录最近一次生成的access_token Dim CorpID As String= "wxa0*******" \'企业号的CorpID Dim Secret As String = "07xBNooq*********" \'管理组的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("errcode") Is Nothing Then AccessTocken = jo("access_token") Else Dim tr As DataRow = DataTables("MAIN").AddNew tr("第一列") = "获取access_token失败,原因:" & vbcrlf & jo.ToString End If End If Return AccessTocken |
| -- 作者：ap9709130 -- 发布时间：2017/6/3 10:47:00 -- 官方要改一下函数了， If jo("errcode") = “0” Then
|
| -- 作者：有点蓝 -- 发布时间：2017/6/3 10:49:00 -- 嗯，帮助用法确实有点不对 [此贴子已经被作者于2017/6/3 10:49:54编辑过]
|
| -- 作者：chen3728060 -- 发布时间：2017/6/3 11:38:00 -- mark |