Try
Path = "/test"
Link = $"${URL}${Path}"$
http.Initialize("", Me)
http.Download2(Link, Array As String("key1", "value1", "key2", "value2"))
Wait For (http) JobDone (j As HttpJob)
If j.Success Then
Dim parser As JSONParser
jSONstring = j.GetString
parser.Initialize(jSONstring)
Dim root As Map = parser.NextObject
Dim message As String = root.Get("message")
Dim status As Int = root.Get("status")
Select Case status
Case 200
ToastMessageShow($"Status: ${status}${CRLF}Message: ${message}"$, True)
Case 400
ToastMessageShow($"Status: ${status}${CRLF}Message: ${message}"$, True)
Case 422
ToastMessageShow($"Status: ${status}${CRLF}Message: ${message}"$, True)
End Select
Result = True
Else
Log(j.ErrorMessage)
Result = False
End If
Catch
Log(LastException)
End Try