¿Cómo utilizar WebClient en VB.NET?

Importa System.IO

Prueba de clase pública Public Shared Sub Main(args() As String)

Si args no es nada o si no args .Longitud = 0 Entonces

Lanzar nueva excepción de aplicación ("Especifique el URI del recurso a recuperar").

Finalizar si

Dim client As New WebClient( )

' Agregar encabezado User-Agent en caso

' El URI solicitado contiene una consulta.

client.Headers.Add("user-agent ", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR 1.0.3705;)")

Dim data As Stream = client.Dim data As Stream = client.OpenRead(args(0))

Dim lector Como New StreamReader(data)

Dim s As String = lector. ReadToEnd()

Console.WriteLine(s)

data.Close()

lector.p>

End Sub 'Principal

Finalizar prueba de clase