Untitled

Imports System.Text
Imports System.Web
Imports System.IO
Imports System.Net

Module Module1

    Sub Main(ByVal sArgs() As String)

        If sArgs.Length = 0 Then                'If there are no arguments
            Console.WriteLine("You need to specify a url")
        Else                                    'We have some arguments
            Dim url As String
            Dim request As HttpWebRequest = Nothing
            Dim response As HttpWebResponse

            url = sArgs(0)

            Try
                request = WebRequest.Create(url)
                request.Timeout = 5000
                request.UserAgent = ""
                response = request.GetResponse()
                Dim stream As Stream = response.GetResponseStream()
                Dim reader As StreamReader = New StreamReader(stream)
                Dim html As String = reader.ReadToEnd
                Console.WriteLine(html)
                'if error occurs then application doesnt crash
            Catch ex0 As WebException
                Console.WriteLine(ex0.Message)
            Catch ex As Exception
                Console.WriteLine(ex.Message)
            End Try

        End If

        Console.ReadLine()

    End Sub

End Module