Mega Code Archive

 

Categories / VB.Net by API / System Net

 

HttpWebRequest Create

Imports System Imports System.Net Imports System.IO Imports System.Environment Module GetURL     Sub Main()         Dim sOutput As String         Dim sURL As String = "http://www.rntsoft.com"         Try            Dim objNewRequest As WebRequest = HttpWebRequest.Create(sURL)            Dim objResponse As WebResponse = objNewRequest.GetResponse            Dim objStream As New StreamReader(objResponse.GetResponseStream())            sOutput = objStream.ReadToEnd()         Catch eUFE As UriFormatException             sOutput = "Error in URL Format: [" & sURL & "]" & NewLine() & eUFE.Message         Catch eWEB As WebException             sOutput = "Error With Web Request: " & NewLine() & eWEB.Message         Catch e As Exception             sOutput = e.ToString         Finally             Console.Write(sOutput)         End Try     End Sub End Module