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
|