Public Class JSON_Post
Public Property [to] As String
Public Property message As String
End Class
Sub SendSMS41()
'traccar sms gateway 4.1
Dim resp As String
Dim json As String
Dim NewData As New JSON_Post
NewData.to = "791XXXXX"
NewData.message = "MENSAJE"
json = JsonConvert.SerializeObject(NewData)
Dim jsonDataBytes = Encoding.UTF8.GetBytes(json)
Dim req As WebRequest = WebRequest.Create("http://192.168.1.106:8082")
req.ContentType = "application/json"
req.Method = "POST"
req.ContentLength = jsonDataBytes.Length
req.Headers.Add("authorization", "afe2XXXX")
Dim stream = req.GetRequestStream()
stream.Write(jsonDataBytes, 0, jsonDataBytes.Length)
stream.Close()
Dim response = req.GetResponse().GetResponseStream()
Dim reader As New StreamReader(response)
resp = reader.ReadToEnd()
reader.Close()
response.Close()
End Sub