1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
|
Dim urlSms As String = "https://secure.smsfactor.com/API/apiV2.php"
Dim user As String = "login"
Dim password As String = "motdepasse"
Dim Msender As String = "test"
Dim smstext As String = "Message de test"
Dim gsm As String = "33600000000"
Dim uri As New Uri(urlSms)
Dim data As String = "XML=<sms><authentification><username>" & user & "</username><password>" & password & "</password></authentification><message><sender>" & Msender & "</sender><text>" & smstext & "</text></message><recipients><gsm gsmsmsid="""">" & gsm & "</gsm></recipients></sms>"
Dim Buffer As Byte() = System.Text.Encoding.UTF8.GetBytes(data)
Dim request As HttpWebRequest = DirectCast(HttpWebRequest.Create(uri), HttpWebRequest)
request.Method = WebRequestMethods.Http.Post
request.ContentLength = Buffer.Length
request.ContentType = "application/x-www-form-urlencoded"
Using writer As Stream = request.GetRequestStream()
writer.Write(Buffer, 0, Buffer.Length)
writer.Flush()
writer.Close()
End Using
Dim response__1 As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
Dim reader As New StreamReader(response__1.GetResponseStream())
Dim tmp As String = reader.ReadToEnd()
response__1.Close()
Response.Write(tmp) |
Partager