Sub add_event
oauth2.GetAccessToken
Wait For OAuth2_AccessTokenAvailable (Success As Boolean, Token As String)
If Success = False Then
Log("Error accessing account.")
Return
End If
Dim Summary, StartDateTime, EndDateTime As String
Dim BaseURL As String = "https://www.googleapis.com/calendar/v3/calendars/primary/events"
Summary="My Summary"
StartDateTime = "2019-04-18T16:00:00-00:00" 'Europe/Athens
EndDateTime = "2019-04-18T17:00:00-00:00" 'Europe/Athens
Dim m As Map
m.Initialize
m.Put("summary":Summary)
m.Put("start": CreateMap("dateTime":StartDateTime))
m.Put("end": CreateMap("dateTime":EndDateTime))
Dim jgen As JSONGenerator
jgen.Initialize(m)
Dim j As HttpJob
j.Initialize("", Me)
'j.PostString($"${BaseURL}/?access_token=${Token}"$ & " &summary='" & Summary & "'&start.dateTime='" & StartDateTime & "'&end.dateTime='" & EndDateTime & "'", "")
j.PostString($"${BaseURL}/?access_token=${Token}"$,jgen.ToString )
j.GetRequest.SetHeader ("Accept", "application/json")
j.GetRequest.SetContentType("application/json")
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Log(j.GetString)
Else
Log(j.ErrorMessage)
Log("Online data not available.")
End If
j.Release
End Sub