(AutoIt) OneNote - List Pages

Retrieve a list of OneNote page objects.

For more information, see https://docs.microsoft.com/en-us/graph/api/onenote-list-pages?view=graph-rest-1.0

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

; This example assumes the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.

$oHttp = ObjCreate("Chilkat.Http")
Local $bSuccess

; Implements the following CURL command:

; curl -X GET https://graph.microsoft.com/v1.0/me/onenote/pages \
;   -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.
$oHttp.AuthToken = "ACCESS_TOKEN"

$oSbResponseBody = ObjCreate("Chilkat.StringBuilder")
$bSuccess = $oHttp.QuickGetSb("https://graph.microsoft.com/v1.0/me/onenote/pages",$oSbResponseBody)
If ($bSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

$oJResp = ObjCreate("Chilkat.JsonObject")
$oJResp.LoadSb($oSbResponseBody)
$oJResp.EmitCompact = False

ConsoleWrite("Response Body:" & @CRLF)
ConsoleWrite($oJResp.Emit() & @CRLF)

Local $iRespStatusCode = $oHttp.LastStatus
ConsoleWrite("Response Status Code = " & $iRespStatusCode & @CRLF)
If ($iRespStatusCode >= 400) Then
    ConsoleWrite("Response Header:" & @CRLF)
    ConsoleWrite($oHttp.LastHeader & @CRLF)
    ConsoleWrite("Failed." & @CRLF)
    Exit
EndIf

; Sample JSON response:
; (Sample code for parsing the JSON response is shown below)

; {
;   "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users('admin%40chilkat.io')/onenote/pages",
;   "value": [
;     {
;       "id": "0-dbd4707e211744b29e3f1ba975c33e27!100-3A33FCEB9B74CC15!20349",
;       "self": "https://graph.microsoft.com/v1.0/users/admin@chilkat.io/onenote/pages/0-dbd4707e211744b29e3f1ba975c33e27!100-3A33FCEB9B74CC15!20349",
;       "createdDateTime": "2020-10-22T22:40:11Z",
;       "title": "",
;       "createdByAppId": "",
;       "contentUrl": "https://graph.microsoft.com/v1.0/users/admin@chilkat.io/onenote/pages/0-dbd4707e211744b29e3f1ba975c33e27!100-3A33FCEB9B74CC15!20349/content",
;       "lastModifiedDateTime": "2020-10-22T22:40:11Z",
;       "links": {
;         "oneNoteClientUrl": {
;           "href": "onenote:https://d.docs.live.net/3a33fceb9b74cc15/Documents/Testing%20Notebook/Ccc.one#&section-id=8529f2bb-4c5b-45eb-a076-0fd20ae34f96&page-id=3920f5fa-0cb6-4329-a9d7-956447af44c1&end"
;         },
;         "oneNoteWebUrl": {
;           "href": "https://onedrive.live.com/redir.aspx?cid=3a33fceb9b74cc15&page=edit&resid=3A33FCEB9B74CC15!20344&parId=3A33FCEB9B74CC15!187&wd=target%28Ccc.one%7C8529f2bb-4c5b-45eb-a076-0fd20ae34f96%2F%7C3920f5fa-0cb6-4329-a9d7-956447af44c1%2F%29"
;         }
;       },
;       "parentSection@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users('admin%40chilkat.io')/onenote/pages('0-dbd4707e211744b29e3f1ba975c33e27%21100-3A33FCEB9B74CC15%2120349')/parentSection/$entity",
;       "parentSection": {
;         "id": "0-3A33FCEB9B74CC15!20349",
;         "displayName": "Ccc",
;         "self": "https://graph.microsoft.com/v1.0/users/admin@chilkat.io/onenote/sections/0-3A33FCEB9B74CC15!20349"
;       }
;     },
;     {
;       "id": "0-dbd4707e211744b29e3f1ba975c33e27!14-3A33FCEB9B74CC15!20347",
;       "self": "https://graph.microsoft.com/v1.0/users/admin@chilkat.io/onenote/pages/0-dbd4707e211744b29e3f1ba975c33e27!14-3A33FCEB9B74CC15!20347",
;       "createdDateTime": "2020-10-22T22:39:57Z",
;       "title": "",
;       "createdByAppId": "",
;       "contentUrl": "https://graph.microsoft.com/v1.0/users/admin@chilkat.io/onenote/pages/0-dbd4707e211744b29e3f1ba975c33e27!14-3A33FCEB9B74CC15!20347/content",
;       "lastModifiedDateTime": "2020-10-22T22:39:57Z",
;       "links": {
;         "oneNoteClientUrl": {
;           "href": "onenote:https://d.docs.live.net/3a33fceb9b74cc15/Documents/Testing%20Notebook/Aaa.one#&section-id=21a7fa55-d7bb-4465-830e-5a1249daa2a9&page-id=534625c2-a982-4a72-a2f3-1032aa191d18&end"
;         },
;         "oneNoteWebUrl": {
;           "href": "https://onedrive.live.com/redir.aspx?cid=3a33fceb9b74cc15&page=edit&resid=3A33FCEB9B74CC15!20344&parId=3A33FCEB9B74CC15!187&wd=target%28Aaa.one%7C21a7fa55-d7bb-4465-830e-5a1249daa2a9%2F%7C534625c2-a982-4a72-a2f3-1032aa191d18%2F%29"
;         }
;       },
;       "parentSection@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users('admin%40chilkat.io')/onenote/pages('0-dbd4707e211744b29e3f1ba975c33e27%2114-3A33FCEB9B74CC15%2120347')/parentSection/$entity",
;       "parentSection": {
;         "id": "0-3A33FCEB9B74CC15!20347",
;         "displayName": "Aaa",
;         "self": "https://graph.microsoft.com/v1.0/users/admin@chilkat.io/onenote/sections/0-3A33FCEB9B74CC15!20347"
;       }
;     }
;   ]
; }

; Sample code for parsing the JSON response...
; Use the following online tool to generate parsing code from sample JSON:
; Generate Parsing Code from JSON

Local $sId
Local $self
Local $sCreatedDateTime
Local $sTitle
Local $sCreatedByAppId
Local $sContentUrl
Local $sLastModifiedDateTime
Local $sLinksOneNoteClientUrlHref
Local $sLinksOneNoteWebUrlHref
Local $sParentSectionodata_context
Local $sParentSectionId
Local $sParentSectionDisplayName
Local $sParentSectionSelf

Local $sOdata_context = $oJResp.StringOf("""@odata.context""")
Local $i = 0
Local $iCount_i = $oJResp.SizeOfArray("value")
While $i < $iCount_i
    $oJResp.I = $i
    $sId = $oJResp.StringOf("value[i].id")
    $self = $oJResp.StringOf("value[i].self")
    $sCreatedDateTime = $oJResp.StringOf("value[i].createdDateTime")
    $sTitle = $oJResp.StringOf("value[i].title")
    $sCreatedByAppId = $oJResp.StringOf("value[i].createdByAppId")
    $sContentUrl = $oJResp.StringOf("value[i].contentUrl")
    $sLastModifiedDateTime = $oJResp.StringOf("value[i].lastModifiedDateTime")
    $sLinksOneNoteClientUrlHref = $oJResp.StringOf("value[i].links.oneNoteClientUrl.href")
    $sLinksOneNoteWebUrlHref = $oJResp.StringOf("value[i].links.oneNoteWebUrl.href")
    $sParentSectionodata_context = $oJResp.StringOf("value[i].""parentSection@odata.context""")
    $sParentSectionId = $oJResp.StringOf("value[i].parentSection.id")
    $sParentSectionDisplayName = $oJResp.StringOf("value[i].parentSection.displayName")
    $sParentSectionSelf = $oJResp.StringOf("value[i].parentSection.self")
    $i = $i + 1
Wend