Imports System.Net
Imports System.IO
Imports System.Text
Public Class Tester
Public Shared Sub Main
Dim myWebClient As New WebClient()
Dim myStream As Stream
Dim myByte() As Byte
Try
myWebClient = New WebClient()
myStream = myWebClient.OpenRead("http://www.java2java.com")
Dim myStreamReader As New StreamReader(myStream)
Console.WriteLine(myStreamReader.ReadToEnd)
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
End Sub
End Class
|