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
(Excel) Get Task ListsDemonstrates how to download the Google task lists.
' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' Get the previously obtained access token. ' See Get Google Tasks Access Token. Dim fac As Chilkat.FileAccess Set fac = Chilkat.NewFileAccess accessToken = fac.ReadEntireTextFile("qa_data/tokens/googleTasks.txt","utf-8") If (fac.LastMethodSuccess <> True) Then Debug.Print fac.LastErrorText Exit Sub End If Dim http As Chilkat.Http Set http = Chilkat.NewHttp http.AuthToken = accessToken Set resp = http.QuickGetObj("https://www.googleapis.com/tasks/v1/users/@me/lists") If (http.LastMethodSuccess = False) Then Debug.Print http.LastErrorText Exit Sub End If ' Show the response body. Debug.Print resp.BodyStr ' Examine the response status code. Debug.Print "response status code: "; resp.StatusCode ' Use this online tool to generate parsing code from sample JSON: ' Generate Parsing Code from JSON Dim json As Chilkat.JsonObject Set json = Chilkat.NewJsonObject Dim success As Boolean success = json.Load(resp.BodyStr) kind = json.StringOf("kind") etag = json.StringOf("etag") i = 0 count_i = json.SizeOfArray("items") Do While i < count_i json.I = i kind = json.StringOf("items[i].kind") id = json.StringOf("items[i].id") title = json.StringOf("items[i].title") updated = json.StringOf("items[i].updated") selfLink = json.StringOf("items[i].selfLink") i = i + 1 Loop ' Sample response: ' { ' "kind": "tasks#taskLists", ' "etag": "\"84_7Cubo3y98GMV9bE3zQclHxhc/cv_AS-HUP96xJ9bgP8Y2B8WGSpM\"", ' "items": [ ' { ' "kind": "tasks#taskList", ' "id": "MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6MDow", ' "title": "My Tasks", ' "updated": "2019-04-04T17:42:52.000Z", ' "selfLink": "https://www.googleapis.com/tasks/v1/users/@me/lists/MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6MDow" ' }, ' { ' "kind": "tasks#taskList", ' "id": "MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6MzE3OTUxODY4OTU1MTEwMDow", ' "title": "ccc", ' "updated": "2019-04-04T17:15:19.000Z", ' "selfLink": "https://www.googleapis.com/tasks/v1/users/@me/lists/MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6MzE3OTUxODY4OTU1MTEwMDow" ' }, ' { ' "kind": "tasks#taskList", ' "id": "MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NDQ0NTA4MDYyNTY3OTEzMzow", ' "title": "bbb", ' "updated": "2019-04-04T17:15:02.000Z", ' "selfLink": "https://www.googleapis.com/tasks/v1/users/@me/lists/MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NDQ0NTA4MDYyNTY3OTEzMzow" ' }, ' { ' "kind": "tasks#taskList", ' "id": "MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NzAwOTA4MDA1NzU2ODYwMzow", ' "title": "aaa", ' "updated": "2019-04-04T17:13:17.000Z", ' "selfLink": "https://www.googleapis.com/tasks/v1/users/@me/lists/MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NzAwOTA4MDA1NzU2ODYwMzow" ' } ' ] ' } ' ' response status code: 200 |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.