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) Create Google Task ListDemonstrates how to create a new task list.
' 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 ' Create a task list named "aaa" Dim json As Chilkat.JsonObject Set json = Chilkat.NewJsonObject success = json.UpdateString("title","aaa") Set resp = http.PostJson("https://www.googleapis.com/tasks/v1/users/@me/lists",json.Emit()) 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 ' Sample response: ' Use this online tool to generate parsing code from sample JSON: ' Generate Parsing Code from JSON ' { ' "kind": "tasks#taskList", ' "id": "MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NzAwOTA4MDA1NzU2ODYwMzow", ' "etag": "\"84_7Cubo3y98GMV9bE3zQclHxhc/tK44F5sk_kx_cfoK27XsUCxCTKE\"", ' "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.