' Get the HTML response from a server for a basic authentication Public Shared Function GetUrlBasicAuthentication(ByVal tcUrl As String, ByVal tcUsername As String, ByVal tcPassword As String) As String Dim lcHTML As String Dim lcUrl As New System.Uri(tcUrl) Dim loHTTP As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(lcUrl) loHTTP.Credentials = New System.Net.NetworkCredential(tcUsername, tcPassword) lError = False cError = "" Try Dim loWebResponse As System.Net.WebResponse = loHTTP.GetResponse() Dim loStream As System.IO.Stream = loWebResponse.GetResponseStream() Dim loString As New System.IO.StreamReader(loStream) lcHTML = loString.ReadToEnd() Catch loError As Exception cError = loError.Message lError = True lcHTML = loError.Message End Try Return lcHTML End Function