' 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