Her er det:
Imports System
Imports System.IO
Imports System.Net
Imports System.Text
Class MainClass
Public Shared Sub Main(ByVal args As String())
Dim req As HttpWebRequest = CType(WebRequest.Create("
http://www.microsoft.com/"), HttpWebRequest)
Dim resp As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
Dim stm As Stream = resp.GetResponseStream
Dim size As Long = resp.ContentLength
Dim c As Integer
Dim res As StringBuilder = New StringBuilder
dim more as boolean = true
While (more)
c = stm.ReadByte
If (c >= 0) Then
res.Append(Convert.ToChar(c))
If (res.Length Mod 1000) = 0 Then
Console.WriteLine("we have " & res.Length & " of " & size)
End If
Else
more = false
End If
End While
stm.Close
resp.Close
End Sub
End Class