Italian POST Json

' declarare un map
Dim jsonmap As Map

' fa la stringa a mandare (in forma json)
jsonmap = CreateMap("nome":"bellucci","password":"monica")

' declarare un "generatore" di json
Dim jsong As JSONGenerator
jsong.Initialize(jsonmap)

' declarare la richiesta al server
Dim job As HttpJob
job.Initialize("",Me)

' mandala
job.poststring("https://www.foobar.com/login", jsong.ToString)    '    <<<<<< attenzione!

'nb: e' possibile che il server aspetti altri dati che si ignorano in questo momento.  devi ricercarlo

' aspetta la risposta dal server
wait for (job) jobdone(job As HttpJob)
If job.Success Then
    Log( job.getstring )
Else
    Log( job.ErrorMessage )
End If
job.Release

Sub findJSONkey(JSONResults As String, key As String) As String ' per tirare brutalmente  fuori il valore della key JSON
    Dim Parser As JSONParser
    Parser.Initialize(JSONResults)

    Dim TheRoot As Map = Parser.NextObject
    Return TheRoot.Get(key)
End Sub

Sub JobDone (Job As HttpJob)
    Log("Job = " & Job.JobName & ", OK = " & Job.Success)
    Log(Job.GetString)
    Log("---------------------------------------------")
    
    If Job.Success = True Then
        Select Job.JobName
            Case "Login"
                token = findJSONkey(Job.GetString,"access")
                Log("access: " & token)
                ToastMessageShow("Token memorizzato.", True)
            Case "Test"
                ToastMessageShow("Test eseguito.", True)    
        End Select
    Else
        Log("Error: " & Job.ErrorMessage)
        ToastMessageShow("Error: " & Job.ErrorMessage, True)
    End If
    Job.Release
End Sub


sub jsonCall
    Dim job As HttpJob

    token = ""
    ss = "http://vattelappesca.it/api/token/"
    jj =  $"{"email":"merovingio@xxxxx.com","password":"12345678"}"$

    job.Initialize("Login",Me)
        
    job.PostString(ss,jj)
    job.GetRequest.SetContentType("body/raw")
    job.GetRequest.SetContentType("application/json")
End Sub

    job.Initialize("Test",Me)
    job.Download(ss)
    job.GetRequest.SetHeader("Authorization", "Bearer " & token)