Imports System
Imports System.Console
Imports System.Net
Imports System.IO
 
Class App
 
    Shared Sub Main()
 
Dim req As Net.HttpWebRequest
            Dim resp As Net.HttpWebResponse
            Dim stm As IO.Stream
            Dim url$
            Dim sizeBuffer% = 1024
            Dim intRead%
            Dim i As Integer
 
           For i = 100 To 1700
 
          Try
 
            url = "http://www.myfont.de/index.php?down=" & i
            req = Net.WebRequest.Create(url)
            resp = req.GetResponse
 
          Catch
           Url = "http://www.myfont.de/index.php?down=" & (i+1)
           req = Net.WebRequest.Create(url)
           resp = req.GetResponse
 
          End Try
 
            stm = resp.GetResponseStream
 
            Dim buff(sizeBuffer - 1) As Byte
            Dim fs As New IO.FileStream("C:\NewFonts\" & i & ".zip", _
              IO.FileMode.Create, IO.FileAccess.Write)
 
            Do
             intRead = stm.Read(buff, 0, buff.Length)
              If intRead > 0 Then
               fs.Write(buff, 0, intRead)
              End If
            Loop While intRead > 0
 
            stm.Close()
            resp.Close()
            fs.Close()
 
          Next
 
     End Sub
 
End Class