Static CreateTime As Date '记录最近一次生成access_token的时间
Static AccessTocken As String '记录最近一次生成的access_token
Dim AppId As String = "71ADE2AB6552C541F28B363051B0EBCF" '开发者ID
Dim AppSecret As String = "ZjIzZDExYzUtNzBhOC00N2Y4LWJhMjctMDU4MWM0OGFlNDkz" '开发者密匙
Dim tp As TimeSpan = Date.Now - CreateTime
Dim url As String = "http://192.168.31.117:8022/account/member/getOpenApiToken/v2?Content-Type=application/json&orgCode=" & appid & "&appKey=" & AppSecret
Output.Show(url)
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
此主题相关图片如下:1668900618644.jpg
