Inviare dati in POST in VB.NET

Il codice che vedremo oggi 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
Imports System.Text

Module Module1

    Sub Main()
        Try
            Dim request As WebRequest = WebRequest.Create("https://www.url.com/test.php")
            Dim postData As String = "nome=matteo"
            Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)

            request.Method = "POST"
            request.ContentType = "application/x-www-form-urlencoded"
            request.ContentLength = byteArray.Length

            Using outStream As Stream = request.GetRequestStream()
                outStream.Write(byteArray, 0, byteArray.Length)
            End Using

            Dim response As WebResponse = request.GetResponse()
            Using inStream As Stream = response.GetResponseStream()
                Dim reader As New StreamReader(inStream)
                Dim responseFromServer As String = reader.ReadToEnd()
                Console.WriteLine(responseFromServer)
            End Using
            response.Close()
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub

End Module

Abbiamo usato un oggetto WebRequest per inviare la risposta, e WebResponse per leggerla.

Enjoy!