Dim ourUri As New Uri(url)
' Create a 'WebRequest' object with the specified url. 

Dim myWebRequest As WebRequest = WebRequest.Create(url)

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

' "ResponseUri" property is used to get the actual Uri from where the response was attained.
If ourUri.Equals(myWebResponse.ResponseUri) Then
    Console.WriteLine(ControlChars.Cr + "Request Url : {0} was not redirected", url)
Else
    Console.WriteLine(ControlChars.Cr + "Request Url : {0} was redirected to {1}", url, myWebResponse.ResponseUri)
End If 

' Release resources of response object.
myWebResponse.Close()

' Create a new 'Uri' object with the specified string.
Dim myUri As New Uri("http://www.contoso.com")
' Create a new request to the above mentioned URL.	
Dim myWebRequest As WebRequest = WebRequest.Create(myUri)
'  Assign the response object of 'WebRequest' to a 'WebResponse' variable.
Dim myWebResponse As WebResponse = myWebRequest.GetResponse()

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

Public Class MainClass

    Public Shared Sub Main()
        Try
          Dim theURL As New Uri("http://www.amazon.com/exec/obidos/ASIN/1893115992")
          Dim theRequest As WebRequest
          theRequest = WebRequest.Create(theURL)
          Dim theResponse As WebResponse
          theResponse = theRequest.GetResponse
          Dim aReader As New StreamReader(theResponse.GetResponseStream())
          Dim theData As String
          theData = aReader.ReadToEnd
    
          Console.WriteLine("Getting Amazon rank for ISBN # 1893115992")
    
          Console.WriteLine(theData)
    
        Catch E As Exception
          Console.WriteLine(E.StackTrace)
        End Try

    End Sub
End Class