请教钉钉接口调用问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

帮助文档了提供了一个调用微信接口的应用程序。我想仿照着做获取钉钉的access_token

钉钉的获取token的访问格式是：'https://oapi.dingtalk.com/gettoken?corpid=*************=*************

代码如下（只是把帮助文档中的网址改为钉钉的网址，把CopID，和corpsecrtet替换，在钉钉官方开发文档中试过，调用是成功的，不过那里给出的是Java的demo，看不懂。），

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://oapi.dingtalk.com/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

Return AccessTocken

显示错误代码：40089，无效的CorpID或corpsecret

不知能否这样直接替换，如果不能，帮助文档中只介绍了微信，怎么呢？谢谢！

主题：请教钉钉接口调用问题