Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Dim urlSms As String = "http://api.smsfactor.com"
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=""100"">" & gsm & "</gsm></recipients></sms>"
 
Dim Buffer As Byte() = System.Text.Encoding.UTF8.GetBytes(data)
 
Dim request As HttpWebRequest = HttpWebRequest.Create(uri)
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 As HttpWebResponse = request.GetResponse()
Dim reader As New StreamReader(Response.GetResponseStream())
Dim tmp As String = reader.ReadToEnd()
Response.Close()
Response.Write(tmp)
Je suis entré en contact avec l'opérateur et voilà le code qu'il m'a fourni.
Le problème, c'est la dernière ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Response.Write(tmp)
qui ramène l'erreur suivante
Code : Sélectionner tout - Visualiser dans une fenêtre à part
'write' n'est pas un membre de 'System.Net.HttpWebResponse'
Si quelqu'un peut m'aider, je serai ravi