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