1 2 3 4 5 6 7 8 9 10 11 12
| Dim request As HttpWebRequest = WebRequest.Create("http://serveur/service1")
request.Method = "POST"
Dim str3 As String = "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?><fdd><nom>CLIENT_1</nom></fdd>"
Dim postData As String = "source=APPLICATION_TFT&fdd=" & str3
Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
request.ContentType = "application/x-www-form-urlencoded"
request.ContentLength = byteArray.Length
Dim dataStream As Stream = request.GetRequestStream()
dataStream.Write(byteArray, 0, byteArray.Length)
dataStream.Close()
Dim response As HttpWebResponse = request.GetResponse() |