- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 钉钉接口如何编写 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=180858)
-- 发布时间：2022/10/18 15:59:00
-- 钉钉接口如何编写
老师,钉钉的这个接口要怎么编写?
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编辑过]
-- 发布时间：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)
-- 发布时间：2022/10/18 16:29:00
--
老师,返回的结果是这个,是我这边的问题,还是钉钉那边的问题?
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.4.10.8
错误所在事件：
详细错误信息：
远程服务器返回错误: (403) 已禁止。
[此贴子已经被作者于2022/10/18 16:29:30编辑过]
-- 发布时间：2022/10/18 16:32:00
--
正常肯定都是您的问题。
建议尽量使用sdk：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=179566&skin=0
-- 发布时间：2022/10/18 16:53:00
--
老师,上面这样是能正常获取到结果的,我下面这个代码返回的结果是错误,这是什么问题?
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)
-- 发布时间：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)
-- 发布时间：2022/10/18 17:57:00
--
可以了，谢谢老师