Función de descarga de una página web
Esta función te permite descargarte una página web desde una aplicación de escritorio
#Region "DownloadData"
Public Function DownloadData(ByVal Url As String) As String
Try
Dim resultHTML As Byte()
Dim myWebClient As New Net.WebClient
Dim ruta As String = String.Empty
Url = Url.Replace("&", "&")
Url = Url.Replace("href=", "")
myWebClient.Headers.Add("user-agent", "Mozilla/4.0+ (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR 1.0.3705;)")
resultHTML = myWebClient.DownloadData(Url)
Dim utf8Enc As New UTF7Encoding
Dim myResultString As String = utf8Enc.GetString(resultHTML)
Return myResultString.ToLower()
Catch ex As Exception
Return