Imports System.Net

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Response.Write(ControlChars.Cr + "Please enter a Url(for example, http://www.MSN.com): ")

        Dim remoteUrl As String = "http://www.lefisc.com.br/banco/2010/protocoloICMS1_10.htm"
        ' Create a new WebClient instance.
        Dim myWebClient As New WebClient()
        ' Download the home page data.
        Console.WriteLine(("Downloading " + remoteUrl))
        ' DownloadData() method takes a 'uriRemote.ToString()' and downloads the Web resource and saves it into a data buffer.
        Dim myDatabuffer As Byte() = myWebClient.DownloadData(remoteUrl)

        ' Display the downloaded data.
        Dim download As String = Encoding.Default.GetString(myDatabuffer)
        Response.Write(download)

        Response.Write("Download successful.")

    End Sub
End Class