如何对接钉钉API接口

东海扬尘

获取审批实例ID列表

请求示例（HTTP）

1. POST https://oapi.dingtalk.com/topapi/processinstance/listids?access_token=ACCESS_TOKEN

复制代码

森之格VB中请求正文写在哪里呢？

1. Dim dic As New Dictionary(Of String,String)
   
2. dic("access_token")="PROC-FF6Y2xxxx"
   
3. '定义一个网址,Post方法网址中不能包含参数
   
4. Dim strUrl As String="http://oapi.dingtalk.com/topapi/processinstance/listids?"
   
5. '我们可以通过NetHelp的ConvertDictionaryToPostData静态方法，将字典转换成相应的参数
   
6. Dim strPostData As String=NetHelp.ConvertDictionaryToPostData(dic)
   
7. '直接根据已有条件获得返回数据
   
8. Dim json As String =NetHelp.NetPost(strUrl,strPostData,NetHelp.NetContentType.form)
   
9. MsgBox(json)

复制代码

admin

文档地址贴出来，你这对接的不着边际。

缺少参数，HttpContentType

东海扬尘

admin 发表于 2023-4-18 21:32
文档地址贴出来，你这对接的不着边际。

缺少参数，HttpContentType

https://open.dingtalk.com/docume ... -retrieve-a-list-of

admin

'定义一个头部
Dim header As New Dictionary(Of String,String)
header("access_token")="PROC-FF6Y2xxxx"
'定义一个网址,Post方法网址中不能包含参数
Dim strUrl As String="https://oapi.dingtalk.com/topapi/user/getbyunionid"
'定义一个临时对象
Dim post = New With {.unionid = "'Kf44wavBrtYbMmGmZG5IvAiEiE"}
'将临时对象转化为Json文本，作为传输内容
Dim strPostData As String=JObject.FromObject(post).ToString()

'直接根据已有条件获得返回数据
Dim json As String =NetHelp.NetPost(strUrl,strPostData,NetHelp.NetContentType.json,header)
MsgBox(json)
复制代码

希望你能看得懂。

admin

'定义一个网址,Post方法网址中不能包含参数
Dim strUrl As String="https://oapi.dingtalk.com/topapi/processinstance/listids?access_token=6d1bxxxx"
'定义一个临时对象
Dim post = New With {.process_code = "'process_code",.start_time=1496678400000,.end_time=1496678400000,.size=10,.cursor=0,.userid_list="manager1,manager2"}
'将临时对象转化为Json文本，作为传输内容
Dim strPostData As String=JObject.FromObject(post).ToString()
Proj.MsgDebug.Add(strPostData)
'直接根据已有条件获得返回数据
Dim json As String =NetHelp.NetPost(strUrl,strPostData,NetHelp.NetContentType.json)
MsgBox(json)
复制代码

东海扬尘

admin 发表于 2023-4-18 21:55

可以了，原来还可以这么用，多谢