Appli vbnet et envoi de SMS
Bonjour,
Je lisais un article concernant l'envoi de sms via une appli vb.net
A priori il faut utiliser l'API d'i, site qui propose l'envoi de sms. Dans le genre, je connais un peu sms factor qui propose de genre de code :
Code:
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) |
qu'en pensez vous ? Quelqu'un utilise t'il ce genre de fonctionnalité et si oui connait il un prestataire d'envoi ?
merci beaucoup
