Option Explicit On
Option Strict On
 
Imports System.IO
Imports System.Net
Imports System.Text
 
Public Class Form1
 
    Dim zaehler As Integer = 10   ' Startwert festlegen
 
    Private Sub InitializeTimer()
        ' Timer-Intervall auf eine Sekunde festlegen
        Timer1.Interval = 1000
    End Sub
 
    Public Sub New()
        Me.InitializeComponent()
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles MyBase.Load
        If My.Computer.Network.IsAvailable = False Then
            MsgBox("Keine Verbindung zum Internet vorhanden.")
            Me.Close()
        Else
            ' Startwert im Label ausgeben
            Label2.Text = CStr(zaehler)
 
            ' Timer aktivieren
            Timer1.Start()
        End If
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles Timer1.Tick
        ' Zählvariable um 1 verringern
        zaehler -= 1
 
        If zaehler = -1 Then
            ' Timer anhalten
            Timer1.Stop()
 
            Dim Url As String = "http://server.de/datei.xls"
            Dim SavedFilename As String = "datei.xls"
            Dim Result As String = Download(Url, SavedFilename)
 
            Try
            Catch ex As Exception
                Throw New Exception(ex.Message.ToString())
            End Try
        End If
    End Sub
 
    Private Function Download(ByVal Url As String, ByVal Filename As String) As _
      String
        Try
            Dim wc As WebClient = New WebClient()
            wc.DownloadFile(Url, Filename)
        Catch ex As WebException
            MessageBox.Show(ex.Message.ToString(), "Info")
        Catch ex As UriFormatException
            MessageBox.Show(ex.Message.ToString(), "Info")
        End Try
        Return String.Empty
 
        tools.Close()
        userverzeichnis.Show()
        Me.Close()
    End Function
 
End Class