Private Sub addNewUser
Dim j As HttpJob
j.Initialize("", Me)
Dim json As JSONGenerator
json.Initialize(CreateMap("name":"ilan","adress":"israel","phone":"0501234567"))
j.PostString($"${api_url}/add-user-quiz"$,json.ToPrettyString(0))
j.GetRequest.SetHeader("api-key",api_key)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Log(j.GetString)
End If
j.Release
End Sub