Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(VB.NET) Microsoft Teams - List Team MembersGet the members of a team. For more information, see https://docs.microsoft.com/en-us/graph/api/team-list-members?view=graph-rest-1.0
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As New Chilkat.Http Dim success As Boolean ' Implements the following CURL command: ' curl -X GET https://graph.microsoft.com/v1.0/teams/{teamsId}/members \ ' -H 'authorization: Bearer ACCESS_TOKEN' ' Use the following online tool to generate HTTP code from a CURL command ' Convert a cURL Command to HTTP Source Code ' Adds the "Authorization: Bearer ACCESS_TOKEN" header. http.AuthToken = "ACCESS_TOKEN" http.SetUrlVar("teamsId","285c8d65-d8b5-447a-91c7-85593d50c826") Dim sbResponseBody As New Chilkat.StringBuilder success = http.QuickGetSb("https://graph.microsoft.com/v1.0/teams/{$teamsId}/members",sbResponseBody) If (success = False) Then Debug.WriteLine(http.LastErrorText) Exit Sub End If Dim jResp As New Chilkat.JsonObject jResp.LoadSb(sbResponseBody) jResp.EmitCompact = False Debug.WriteLine("Response Body:") Debug.WriteLine(jResp.Emit()) Dim respStatusCode As Integer = http.LastStatus Debug.WriteLine("Response Status Code = " & respStatusCode) If (respStatusCode >= 400) Then Debug.WriteLine("Response Header:") Debug.WriteLine(http.LastHeader) Debug.WriteLine("Failed.") Exit Sub End If ' Sample JSON response: ' (Sample code for parsing the JSON response is shown below) ' { ' "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#teams('285c8d65-d8b5-447a-91c7-85593d50c826')/members", ' "@odata.count": 1, ' "value": [ ' { ' "@odata.type": "#microsoft.graph.aadUserConversationMember", ' "id": "Mjg1YzhkNjUtZDhiNS00NDdhLTkxYzctODU1OTNkNTBjODI2IyM0ZWU3MzJjMz0zMjJlLTRhNmItYjcyOS0yZmQxZWI1YzYwMDQ=", ' "roles": [ ' "owner" ' ], ' "displayName": "Joe Smith", ' "userId": "4ee732c3-322e-4a6b-b729-2fd1eb5c6004", ' "email": "admin@chilkat365.com" ' } ' ] ' } ' Sample code for parsing the JSON response... ' Use the following online tool to generate parsing code from sample JSON: ' Generate Parsing Code from JSON Dim odata_type As String Dim id As String Dim displayName As String Dim userId As String Dim email As String Dim j As Integer Dim count_j As Integer Dim strVal As String Dim odata_context As String = jResp.StringOf("""@odata.context""") Dim odata_count As Integer = jResp.IntOf("""@odata.count""") Dim i As Integer = 0 Dim count_i As Integer = jResp.SizeOfArray("value") While i < count_i jResp.I = i odata_type = jResp.StringOf("value[i].""@odata.type""") id = jResp.StringOf("value[i].id") displayName = jResp.StringOf("value[i].displayName") userId = jResp.StringOf("value[i].userId") email = jResp.StringOf("value[i].email") j = 0 count_j = jResp.SizeOfArray("value[i].roles") While j < count_j jResp.J = j strVal = jResp.StringOf("value[i].roles[j]") j = j + 1 End While i = i + 1 End While |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.