Private body As String = "coordenadas=%7B%20%20%0A%20%20%20%22imei%22%3A%22354140091389995%22%2C%0A%20%20%20%22cd_usuario%22%3A%22926.800.970-68%22%2C%0A%20%20%20%22coordenadas%22%3A%5B%20%20%0A%20%20%20%20%20%20%7B%20%20%0A%20%20%20%20%20%20%20%20%20%22cpf%22%3A%22926.800.970-68%22%2C%0A%20%20%20%20%20%20%20%20%20%22guid%22%3A%22guid0%22%2C%0A%20%20%20%20%20%20%20%20%20%22data_hora%22%3A%222019-02-13%2013%3A26%3A02%22%2C%0A%20%20%20%20%20%20%20%20%20%22latitude%22%3A%22-29.9254565%22%2C%0A%20%20%20%20%20%20%20%20%20%22longitude%22%3A%22-51.1448786%22%2C%0A%20%20%20%20%20%20%20%20%20%22bateria%22%3A%220%22%2C%0A%20%20%20%20%20%20%20%20%20%22velocidade%22%3A%220%22%0A%20%20%20%20%20%20%7D%0A%20%20%20%5D%0A%7D&undefined="
Dim j As HttpJob
j.Initialize("", Me)
j.PostString("http://www.modular.com.br/desenvolvimento/entregarwebservice/v4/posicao/",body)
j.GetRequest.SetContentType("Content-Type", "application/x-www-form-urlencoded")
j.GetRequest.SetHeader("Content-Type", "application/x-www-form-urlencoded")
j.GetRequest.SetHeader("Authorization", "Basic OTI2LjgwMC45NzAtNjg6MDEwMQ==")
j.GetRequest.SetHeader("cache-control", "no-cache")
j.GetRequest.SetHeader("Postman-Token", "ff13a900-c990-48b3-84ee-a55bd86d9258")
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Log(j.GetString)
Else
Log(j.ErrorMessage)
End If
j.Release