' Create a new WebRequest Object to the mentioned URL.
   Dim myWebRequest As WebRequest = WebRequest.Create("http://www.contoso.com")
   Console.WriteLine(ControlChars.Cr + "The Timeout time of the request before setting is : {0} milliseconds", myWebRequest.Timeout)

   ' Set the 'Timeout' property in Milliseconds.
myWebRequest.Timeout = 10000

  ' 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