Cómo VB.NET captura datos de páginas web

Función pública webCaptureContent(ByVal mWebsiteUrl As String, ByVal mWebsiteType As Boolean) As String

'Inicia la captura de datos específicos y devuelve el contenido HTML capturado. Se requieren datos de dirección completos: //

En caso de error, reanudar siguiente

Dim Str_WebContent As String = "Ingrese la dirección del sitio web que está buscando".

Dim wb As WebClient = New WebClient() '//Crear una instancia de WebClient

Si mWebsiteUrl.IndexOf("://") > 0 Entonces

'//Obtener o configurar las credenciales de red que se utilizarán para autenticar las solicitudes a los recursos de Internet (Opcional)

wb.Credentials = CredentialCache.DefaultCredentials

'//Descargar el. datos en el recurso y devuelve una matriz de bytes. Agregue @, porque hay un símbolo "/" en medio de la URL)

Dim pagedata As Object = wb.DownloadData(mWebsiteUrl)

'//Convierta los caracteres

Si mWebsiteType Entonces

Str_ WebContent = Encoding.Default.GetString(pagedata)

De lo contrario

Str_WebContent = Encoding.UTF8.GetString( datos de página)