Il codice sotto ci permette di inviare dei dati in POST tramite VB.NET, e leggere la risposta del server.
Invieremo i dati in formato key=value, facendone l’encoding.
E non andremo ad interpretare la risposta, ma solo a leggerla.
Ecco il codice:
Imports System.IO
Imports System.Net
Dim a As String = New StreamReader(Request.InputStream).ReadToEnd() 'Body Arrivato
'Response.Write("Ricevuto: " & a)
Dim url As String = "http://IlTuoIndirizzoWeb.xxx"
Dim Richiesta As WebRequest = WebRequest.Create(url)
Dim postData As String = a
Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
Richiesta.Method = "POST"
Richiesta.ContentType = "application/x-www-form-urlencoded"
Richiesta.ContentLength = byteArray.Length
Using outStream As Stream = Richiesta.GetRequestStream()
outStream.Write(byteArray, 0, byteArray.Length)
End Using
Dim RispostaDalServer As String = ""
Dim Risposta As WebResponse = Richiesta.GetResponse()
Using inStream As Stream = Risposta.GetResponseStream()
Dim reader As New StreamReader(inStream)
RispostaDalServer = reader.ReadToEnd()
End Using
Risposta.Close()
'Console.WriteLine(RispostaDalServer)
Response.Write(RispostaDalServer)Tutto qui!!!!