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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 钉钉接口如何编写

共有7910人关注过本帖树形打印复制链接主题：钉钉接口如何编写

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：112380 积分：572162 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/10/18 16:06:00 [显示全部帖子]

Dim cxsj As Date = "2022/9/28"

Dim st As New Date(1970, 1, 1, 8, 0, 0)

Dim ur As String = "https://api.dingtalk.com/v1.0/workflow/processes/instanceIds/query"

Dim hc As New HttpClient(ur)

hc.ContentType = "application/json"

hc.Headers.Add("x-acs-dingtalk-access-token", "接口的访问凭证")

Dim jo As New JObject

jo("processCode") = "PROC-84B762FB-D00F-4768-87BE-0D3805460000"

jo("startTime") = CLng((cxsj - st).TotalMilliseconds())

jo("endTime") = CLng((cxsj.AddDays(1).AddSeconds( - 1) - st).TotalMilliseconds())

jo("maxResults") = "20"

Output.Show(jo.ToString)

hc.Content = jo.ToString

Dim ret As String = hc.GetData

Output.Show(ret)

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：112380 积分：572162 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/10/18 16:32:00 [显示全部帖子]

正常肯定都是您的问题。

建议尽量使用sdk：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=179566&skin=0

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：112380 积分：572162 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/10/18 16:58:00 [显示全部帖子]

Dim ur As String = "https://api.dingtalk.com/v1.0/workflow/processInstances?processInstanceId=YGjpOvcSTW-oJi33r0Xc1g06901666010860"

Dim hc As New HttpClient(Cexp(ur))

hc.Headers.Add("x-acs-dingtalk-access-token",Functions.Execute("GetaccessToken_ding"))

jo = JObject.Parse(hc.GetData)

Output.Show(jo.ToString)

主题：钉钉接口如何编写