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

老师,钉钉的这个接口要怎么编写?

POST /v1.0/workflow/processes/instanceIds/query HTTP/1.1
Host:api.dingtalk.com
x-acs-dingtalk-access-token:String
Content-Type:application/json

{
  "processCode" : "String",
  "startTime" : Long,
  "endTime" : Long,
  "nextToken" : Long,
  "maxResults" : Long,
  "userIds" : [ "String" ]
}

钉钉对接文档https://open.dingtalk.com/document/orgapp-server/obtain-an-approval-list-of-instance-ids

我这个要怎么修改?

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?access_token={0}"

Dim hc As New HttpClient(Cexp(ur,Functions.Execute("GetaccessToken")))

hc.Co ntent Type = "applica tion/json"

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

jo = JObject.Parse(hc.GetData)

Output.Show(jo.ToString)

[此贴子已经被作者于2022/10/18 15:59:53编辑过]

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)

老师,返回的结果是这个,是我这边的问题,还是钉钉那边的问题?

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2020.4.10.8

错误所在事件：

详细错误信息：

远程服务器返回错误: (403) 已禁止。

[此贴子已经被作者于2022/10/18 16:29:30编辑过]

正常肯定都是您的问题。

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

老师,上面这样是能正常获取到结果的,我下面这个代码返回的结果是错误,这是什么问题?

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

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

Dim hc As New HttpClient(Cexp(ur))

hc.Content Type = "applic ation/json"

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

Dim jo As New JObject

hc.Content = jo.ToString

jo = JObject.Parse(hc.GetData)

Output.Show(jo.ToString)

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)

可以了，谢谢老师

主题：钉钉接口如何编写