Imports System.Net
Imports System.IO

Public Class HTTPconnect
    Public Sub New()
        Dim encoding As New System.Text.ASCIIEncoding
        Dim requestStream As System.IO.Stream
        Dim objURI As New Uri("http://www.page.be/") ' URL

        ' Webrequest maken
        Dim objWebRequest As WebRequest = Webrequest.Create(objURI)
        ' Zet Webrequest opties
        With objWebRequest
            .ContentType = "application/x-www-form-urlencoded"
            .Method = "POST"
        End With

        Dim body() As Byte ' Variable die de POST gegevens gaat bevatten
        ' POST data in de variable laden
        body = encoding.GetBytes("username=test&password=pass&submit=login")

        objWebRequest.ContentLength = body.Length ' Zet de contentLength
        requestStream = objWebRequest.GetRequestStream ' Haal requestStream op

        ' Stuur POST gegevens naar de pagina
        requestStream.Write(body, 0, body.Length)

        ' Haal de response van de pagina op en laad deze in een stream
        Dim objWebResponse As WebResponse = objWebRequest.GetResponse()
        Dim objStream As Stream = objWebResponse.GetResponseStream()

        ' Declareer een StreamReader om de responsestream te lezen
        Dim objStreamReader As StreamReader = New StreamReader(objStream)

        ' Laad alle tekst uit de stream in een string
        Dim strHTML As String = objStreamReader.ReadToEnd

    End Sub
End Class