(AutoIt) OneNote - Create Notebook

Creates a new notebook in Microsoft OneNote

For more information, see https://docs.microsoft.com/en-us/graph/api/onenote-post-notebooks?view=graph-rest-1.0&tabs=http

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 POST https://graph.microsoft.com/v1.0/me/onenote/notebooks \
;   -H 'authorization: Bearer ACCESS_TOKEN' 
;   -H "Content-type: application/json" \
;   -d '{
;   "displayName": "Notebook name"
; }'

; Use the following online tool to generate HTTP code from a CURL command
; Convert a cURL Command to HTTP Source Code

; Use this online tool to generate code from sample JSON:
; Generate Code to Create JSON

; The following JSON is sent in the request body.

; {
;   "displayName": "Testing Notebook"
; }

$oJson = ObjCreate("Chilkat.JsonObject")
$oJson.UpdateString("displayName","Testing Notebook")

$oHttp.SetRequestHeader "Content-type","application/json"
; Adds the "Authorization: Bearer ACCESS_TOKEN" header.
$oHttp.AuthToken = "ACCESS_TOKEN"

Local $oResp = $oHttp.PostJson3("https://graph.microsoft.com/v1.0/me/onenote/notebooks","application/json",$oJson)
If ($oHttp.LastMethodSuccess = False) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

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

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

Local $iRespStatusCode = $oResp.StatusCode
ConsoleWrite("Response Status Code = " & $iRespStatusCode & @CRLF)
If ($iRespStatusCode >= 400) Then
    ConsoleWrite("Response Header:" & @CRLF)
    ConsoleWrite($oResp.Header & @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/notebooks/$entity",
;   "id": "0-3A33FCEB9B74CC15!20344",
;   "self": "https://graph.microsoft.com/v1.0/users/admin@chilkat.io/onenote/notebooks/0-3A33FCEB9B74CC15!20344",
;   "createdDateTime": "2020-10-22T21:59:03.137Z",
;   "displayName": "Testing Notebook",
;   "lastModifiedDateTime": "2020-10-22T21:59:03.137Z",
;   "isDefault": false,
;   "userRole": "Owner",
;   "isShared": false,
;   "sectionsUrl": "https://graph.microsoft.com/v1.0/users/admin@chilkat.io/onenote/notebooks/0-3A33FCEB9B74CC15!20344/sections",
;   "sectionGroupsUrl": "https://graph.microsoft.com/v1.0/users/admin@chilkat.io/onenote/notebooks/0-3A33FCEB9B74CC15!20344/sectionGroups",
;   "createdBy": {
;     "user": {
;       "id": "4193973766868700757",
;       "displayName": "Joe Smith"
;     }
;   },
;   "lastModifiedBy": {
;     "user": {
;       "id": "4193973766868700757",
;       "displayName": "Joe Smith"
;     }
;   },
;   "links": {
;     "oneNoteClientUrl": {
;       "href": "onenote:https://d.docs.live.net/3a33fceb9b74cc15/Documents/Testing%20Notebook"
;     },
;     "oneNoteWebUrl": {
;       "href": "https://onedrive.live.com/redir.aspx?cid=3a33fceb9b74cc15&page=edit&resid=3A33FCEB9B74CC15!20344"
;     }
;   }
; }

; 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 $sOdata_context = $oJResp.StringOf("""@odata.context""")
Local $sId = $oJResp.StringOf("id")
Local $self = $oJResp.StringOf("self")
Local $sCreatedDateTime = $oJResp.StringOf("createdDateTime")
Local $sDisplayName = $oJResp.StringOf("displayName")
Local $sLastModifiedDateTime = $oJResp.StringOf("lastModifiedDateTime")
Local $bIsDefault = $oJResp.BoolOf("isDefault")
Local $sUserRole = $oJResp.StringOf("userRole")
Local $bIsShared = $oJResp.BoolOf("isShared")
Local $sectionsUrl = $oJResp.StringOf("sectionsUrl")
Local $sectionGroupsUrl = $oJResp.StringOf("sectionGroupsUrl")
Local $sCreatedByUserId = $oJResp.StringOf("createdBy.user.id")
Local $sCreatedByUserDisplayName = $oJResp.StringOf("createdBy.user.displayName")
Local $sLastModifiedByUserId = $oJResp.StringOf("lastModifiedBy.user.id")
Local $sLastModifiedByUserDisplayName = $oJResp.StringOf("lastModifiedBy.user.displayName")
Local $sLinksOneNoteClientUrlHref = $oJResp.StringOf("links.oneNoteClientUrl.href")
Local $sLinksOneNoteWebUrlHref = $oJResp.StringOf("links.oneNoteWebUrl.href")