Sub GetTokenAndSavetoPhone As ResumableSub
Dim job As HttpJob
Dim url As String = "https://tel.com/auth/realms/eis/protocol/openid-connect/token"
job.Initialize("", Me)
job.PostString(url, "grant_type=client_credentials")
job.GetRequest.SetHeader("Authorization", "Basic " & passbasekey)
job.GetRequest.SetContentType("application/x-www-form-urlencoded")
job.GetRequest.SetHeader("Host","")
Wait For (job) JobDone(job As HttpJob)
If job.Success Then
Log(job.GetString)
'Parse
Dim JSON As JSONParser
Dim Map1 As Map
JSON.Initialize(job.GetString)
Map1 = JSON.NextObject
Dim access_token As String = Map1.Get("access_token")
Log(access_token)
'Writer Text
File.WriteString(File.DirInternal, "l7token.txt", access_token)
job.Release
Return True
Else
job.Release
Return False
End If
End Sub