' Get the HTML response from a server Public Shared Function GetUrl(ByVal tcUrl As String) As String Dim lcHTML As String Dim loHTTP As System.Net.WebClient = New System.Net.WebClient Dim loEncoding As System.Text.Encoding Dim loRequestedHTML() As Byte Try loRequestedHTML = loHTTP.DownloadData(tcUrl) lcHTML = loEncoding.Default.GetString(loRequestedHTML) Catch loError As Exception lcHTML = loError.Message End Try Return lcHTML End Function ' Get the HTML response from a server Public Shared Function GetUrl2(ByVal tcUrl As String, Optional ByVal tnTimeout As Integer = 5000) 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.Timeout = tnTimeout 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 lcHTML = loError.Message End Try Return lcHTML End Function