' Create a 'WebRequest' object with the specified url 
Dim myWebRequest As WebRequest = WebRequest.Create("www.contoso.com")

' Send the 'WebRequest' and wait for response.
Dim myWebResponse As WebResponse = myWebRequest.GetResponse()

' Call method 'GetResponseStream' to obtain stream associated with the response object
Dim ReceiveStream As Stream = myWebResponse.GetResponseStream()

Dim encode As Encoding = System.Text.Encoding.GetEncoding("utf-8")

' Pipe the stream to a higher level stream reader with the required encoding format.
Dim readStream As New StreamReader(ReceiveStream, encode)
Console.WriteLine(ControlChars.Cr + "Response stream received")
Dim read(256) As [Char]

' Read 256 charcters at a time    .
Dim count As Integer = readStream.Read(read, 0, 256)
Console.WriteLine("HTML..." + ControlChars.Lf + ControlChars.Cr)
While count > 0

    ' Dump the 256 characters on a string and display the string onto the console.
    Dim str As New [String](read, 0, count)
    Console.Write(str)
    count = readStream.Read(read, 0, 256)

End While
Console.WriteLine("")

' Release the resources of stream object.
 readStream.Close()

 ' Release the resources of response object.
myWebResponse.Close()

' Cryptography/GetWeb.vb
Imports System
Imports System.IO
Imports System.Net
Imports System.Text

Public Class GetWeb
    Dim MaxContentLength As Integer = 16384 ' 16k

    Public Shared Sub Main(ByVal CmdArgs() As String)
        If CmdArgs.Length <> 1 Then
            Console.WriteLine("usage: GetWeb url")
            Console.WriteLine("example: GetWeb https://www.java2s.com")
            End
        End If
        Dim ms As String = ""
        Try
            Dim req As WebRequest = WebRequest.Create(CmdArgs(0))
            Dim result As WebResponse = req.GetResponse()
            Dim ReceiveStream As Stream = result.GetResponseStream()
            Dim enc As Encoding = System.Text.Encoding.GetEncoding("utf-8")
            Dim sr As StreamReader = New StreamReader(ReceiveStream, enc)
            ms = sr.ReadToEnd()

        Catch x As Exception
            Console.WriteLine(x.StackTrace)
            Console.WriteLine("Bad URL: {0}", CmdArgs(0))
        End Try
        Console.WriteLine(ms)
    End Sub

End Class