Dim stm As IO.Stream
        Dim str As IO.StreamReader
        Dim request As System.Net.WebRequest, response As System.Net.WebResponse
        Dim buffer(0 To 999) As Char
        Dim readCount As Integer
 
        request = System.Net.WebRequest.Create(url)
        response = request.GetResponse()
        stm = response.GetResponseStream()
        str = New IO.StreamReader(stm, System.Text.Encoding.GetEncoding(( _
          "iso-8859-15")))
        Console.WriteLine("Length: " + response.ContentLength.ToString())
        While Not str.EndOfStream
            readCount = str.Read(buffer, 0, buffer.Length)
            Console.WriteLine("Read " + readCount.ToString() + " bytes")
        End While
        Console.ReadKey()

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.