' Collection of code snippets by Arne Vajhøj ' posted to eksperten.dk, usenet and other places (2002-now) Imports System Imports System.IO Imports System.Net Imports System.Text Imports System.Threading Class MainClass Public Shared Sub Main(ByVal args As String()) Dim t As Thread = New Thread (AddressOf Download) t.Start While t.IsAlive Console.Write("*") Thread.Sleep(100) End While Console.WriteLine Console.WriteLine("done") End Sub Public Shared Sub Download 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 fs As FileStream = File.Create("C:\ms.htm") Dim c As Integer dim more as boolean = true While (more) c = stm.ReadByte If (c >= 0) Then fs.WriteByte(c) Else more = false End If End While stm.Close resp.Close fs.Close End Sub End Class