Mega Code Archive

 

Categories / VB.Net by API / System Net

 

WebClient OpenRead

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.rntsoft.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