' Dim endpointUrl As String = "https://serverxxxxx/v3/api" 'the previous url
Dim endpointUrl As String = "https://serverxxxxx/v3.1/api" 'the new url
Dim ok As HttpJob
ok.Initialize("",Me)
ok.PostString(endpointUrl,data)
ok.GetRequest.SetHeader("Authorization", "reg-platform us10")
ok.GetRequest.SetHeader("Cache-Control","no-cache")
ok.GetRequest.SetHeader("APIKey","123456")
ok.GetRequest.SetContentType("application/json")
Wait For (ok) Jobdone(ok As HttpJob)
If ok.Success Then
Log(ok.GetString)
Else
Log(ok.ErrorMessage) 'Just show this in the log:
'ResponseError. Reason: , Response:
End If