Dim s2 As String
dim lst as new List(of string)
For i2 As Integer = 0 To rsp2.Department.count -1
s2= rsp2.Department.Item(I2).id
Dim client As DingTalk.Api.IDingTalkClient = New DingTalk.Api.DefaultDingTalkClient("https://oapi.dingtalk.com/user/getDeptMember")
Dim req As DingTalk.Api.Request.OapiUserGetDeptMemberRequest = New DingTalk.Api.Request.OapiUserGetDeptMemberRequest()
req.DeptId = s2
req.SetHttpMethod("GET")
Dim rsp As DingTalk.Api.Response.OapiUserGetDeptMemberResponse = client.Execute(req, access_token)
Dim s As String
If rsp.UserIDs IsNot Nothing Then
For i As Integer = 0 To rsp.UserIDs.count -1
if lst.contains(rsp.UserIDs(i)) = false
s+ = rsp.UserIDs(i) & "|"
lst.add(rsp.UserIDs(i))
end if
Next
End If
MessageBox.Show(s)
MessageBox.Show(s2)
Next