(Visual Basic 6.0) Get all Tasks on a List

Demonstrates how to get all the tasks in a Google task list.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

' 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 New CkFileAccess
Dim accessToken As String
accessToken = fac.ReadEntireTextFile("qa_data/tokens/googleTasks.txt","utf-8")
If (fac.LastMethodSuccess <> 1) Then
    Debug.Print fac.LastErrorText
    Exit Sub
End If

Dim http As New ChilkatHttp

http.AuthToken = accessToken

' Get the tasks from the task list w/ id = MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NzAwOTA4MDA1NzU2ODYwMzow
success = http.SetUrlVar("tasklist","MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NzAwOTA4MDA1NzU2ODYwMzow")

Dim resp As ChilkatHttpResponse
Set resp = http.QuickGetObj("https://www.googleapis.com/tasks/v1/lists/{$tasklist}/tasks")
If (http.LastMethodSuccess = 0) 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 kind As String
Dim etag As String
Dim i As Long
Dim count_i As Long
Dim id As String
Dim title As String
Dim updated As String
Dim selfLink As String
Dim position As String
Dim notes As String
Dim status As String
Dim due As String

Dim json As New ChilkatJsonObject
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")
    etag = json.StringOf("items[i].etag")
    title = json.StringOf("items[i].title")
    updated = json.StringOf("items[i].updated")
    selfLink = json.StringOf("items[i].selfLink")
    position = json.StringOf("items[i].position")
    notes = json.StringOf("items[i].notes")
    status = json.StringOf("items[i].status")
    due = json.StringOf("items[i].due")
    i = i + 1
Loop

' Sample response:

' {
'  "kind": "tasks#tasks",
'  "etag": "\"84_7Cubo3y98GMV9bE3zQclHxhc/LTM3Njg4MjgyNA\"",
'  "items": [
'   {
'    "kind": "tasks#task",
'    "id": "MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NzAwOTA4MDA1NzU2ODYwMzoyMDg3OTcyMDA1MTQ5NTA0",
'    "etag": "\"84_7Cubo3y98GMV9bE3zQclHxhc/NjcyMTU4Mg\"",
'    "title": "Get haircut",
'    "updated": "2019-04-04T18:07:58.000Z",
'    "selfLink": "https://www.googleapis.com/tasks/v1/lists/MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NzAwOTA4MDA1NzU2ODYwMzow/tasks/MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NzAwOTA4MDA1NzU2ODYwMzoyMDg3OTcyMDA1MTQ5NTA0",
'    "position": "00000000001610612734",
'    "notes": "Check in online first.",
'    "status": "needsAction",
'    "due": "2019-04-07T00:00:00.000Z"
'   },
'   {
'    "kind": "tasks#task",
'    "id": "MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NzAwOTA4MDA1NzU2ODYwMzoxMTg0MzQxMTkzMjM2MDY1",
'    "etag": "\"84_7Cubo3y98GMV9bE3zQclHxhc/MTU1MjQzNDIwMQ\"",
'    "title": "Go to grocery store",
'    "updated": "2019-04-04T17:59:15.000Z",
'    "selfLink": "https://www.googleapis.com/tasks/v1/lists/MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NzAwOTA4MDA1NzU2ODYwMzow/tasks/MDM4MzQ4NTA3NDQwMDUxMzQ2OTQ6NzAwOTA4MDA1NzU2ODYwMzoxMTg0MzQxMTkzMjM2MDY1",
'    "position": "00000000002147483647",
'    "notes": "Don't forget to buy apples.",
'    "status": "needsAction",
'    "due": "2019-04-07T00:00:00.000Z"
'   }
'  ]
' }
' 
' response status code: 200