Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(VB.NET UWP/WinRT) Get Tasks for UserDemonstrates how to retrieve a list of plannertask objects assigned to a User. See https://docs.microsoft.com/en-us/graph/api/planneruser-list-tasks?view=graph-rest-1.0 for more information.
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As New Chilkat.Http ' The Microsoft Planner REST API requires an OAuth2 token with the Group.ReadWrite.All scope. ' Use your previously obtained access token as shown here: ' Get Microsoft Graph OAuth2 Access Token with Group.ReadWrite.All scope. Dim jsonToken As New Chilkat.JsonObject Dim success As Boolean = jsonToken.LoadFile("qa_data/tokens/msGraphGroup.json") If (success = False) Then Debug.WriteLine(jsonToken.LastErrorText) Exit Sub End If http.AuthToken = jsonToken.StringOf("access_token") ' Send a GET request to https://graph.microsoft.com/v1.0/me/planner/tasks Dim strResponse As String = Await http.QuickGetStrAsync("https://graph.microsoft.com/v1.0/me/planner/tasks") If (http.LastMethodSuccess = False) Then Debug.WriteLine(http.LastErrorText) Exit Sub End If Dim json As New Chilkat.JsonObject json.Load(strResponse) json.EmitCompact = False If (http.LastStatus <> 200) Then Debug.WriteLine(json.Emit()) Debug.WriteLine("Failed, response status code = " & http.LastStatus) Exit Sub End If Debug.WriteLine(json.Emit()) ' Sample output: ' (See parsing code below..) ' { ' "value": [ ' { ' "createdBy": { ' "user": { ' "id": "6463a5ce-2119-4198-9f2a-628761df4a62" ' } ' }, ' "planId": "xqQg5FS2LkCp935s-FIFm2QAFkHM", ' "bucketId": "gcrYAaAkgU2EQUvpkNNXLGQAGTtu", ' "title": "title-value", ' "orderHint": "9223370609546166567W", ' "assigneePriority": "90057581\"", ' "createdDateTime": "2015-03-25T18:36:49.2407981Z", ' "assignments": { ' "fbab97d0-4932-4511-b675-204639209557": { ' "@odata.type": "#microsoft.graph.plannerAssignment", ' "assignedBy": { ' "user": { ' "id": "1e9955d2-6acd-45bf-86d3-b546fdc795eb" ' } ' }, ' "assignedDateTime": "2015-03-25T18:38:21.956Z", ' "orderHint": "RWk1" ' } ' }, ' "id":"01gzSlKkIUSUl6DF_EilrmQAKDhh" ' } ' ] ' } Dim i As Integer Dim count_i As Integer Dim createdByUserId As String Dim planId As String Dim bucketId As String Dim title As String Dim orderHint As String Dim assigneePriority As String Dim createdDateTime As String Dim assignments_odataType As String Dim assignmentsAssignedByUserId As String Dim assignmentsAssignedDateTime As String Dim assignmentsOrderHint As String Dim id As String i = 0 count_i = json.SizeOfArray("value") While i < count_i json.I = i createdByUserId = json.StringOf("value[i].createdBy.user.id") planId = json.StringOf("value[i].planId") bucketId = json.StringOf("value[i].bucketId") title = json.StringOf("value[i].title") orderHint = json.StringOf("value[i].orderHint") assigneePriority = json.StringOf("value[i].assigneePriority") createdDateTime = json.StringOf("value[i].createdDateTime") Dim jsonA As Chilkat.JsonObject = json.ObjectOf("value[i].assignments") Dim userId As String = jsonA.NameAt(0) Dim jsonUserA As Chilkat.JsonObject = jsonA.ObjectOf(userId) assignments_odataType = jsonUserA.StringOf("""@odata.type""") assignmentsAssignedByUserId = jsonUserA.StringOf("assignedBy.user.id") assignmentsAssignedDateTime = jsonUserA.StringOf("assignedDateTime") assignmentsOrderHint = jsonUserA.StringOf("orderHint") id = json.StringOf("value[i].id") i = i + 1 End While Debug.WriteLine("Success.") |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.