' Create a 'WebRequest' with the specified url. 	
Dim myWebRequest As WebRequest = WebRequest.Create("www.contoso.com")

' Send the 'WebRequest' and wait for response.
Dim myWebResponse As WebResponse = myWebRequest.GetResponse()

' The ContentLength and ContentType received as headers in the response object are also exposed as properties.
   ' These provide information about the length and type of the entity body in the response.
Console.WriteLine(ControlChars.Cr + "Content length :{0}, Content Type : {1}", myWebResponse.ContentLength, myWebResponse.ContentType)
myWebResponse.Close()

' 导入命名空间
Imports System.IO
Imports System.Net
Imports System.Text

public class MainClass
   Shared Sub Main()
        Dim uri As New Uri("http://www.java2s.com/index.htm")

        Dim request As WebRequest = WebRequest.Create(uri)
        Dim response As WebResponse = request.GetResponse()

        Console.WriteLine("Request type: " & request.GetType().ToString() )
        Console.WriteLine("Response type: " & response.GetType().ToString() )
        Console.WriteLine("Content length: " & response.ContentLength & " bytes" )
        Console.WriteLine("Content type: " & response.ContentType )
   End Sub
End Class