' Liest eine Internetwebsite aus
    Public Function GetWebFile(ByVal URL As String, ByVal Path As String) As _
      String
        ' Besteht eine Internetverbindung?
        If OpenFTP("ikworldmap.de", "upone", "xfwldo") = False Then
            Return "Keine verfügbare Internetverbindung gefunden."
        Else
            CloseFTP()
        End If
        ' WebRequest erstellen
        Dim MyRequest As Net.WebRequest = Net.WebRequest.Create(URL)
        ' Eventuelle Proxyserver deaktivieren
        MyRequest.Proxy = Net.GlobalProxySelection.GetEmptyWebProxy
        ' GET-Methode zuweisen
        MyRequest.Method = "GET"
        ' StreamWriter zum Schreiben in Datei öffnen
        Dim MyStreamWriter As New IO.StreamWriter(Path)
        ' falls Internetdatei nicht empfangen werden kann
        Try
            ' StreamReader mit Internetdatei öffnen
            Dim MyStreamReader As New IO.StreamReader( _
              MyRequest.GetResponse.GetResponseStream)
            ' Internetdatei in Datei schreiben
            MyStreamWriter.Write(MyStreamReader.ReadToEnd)
            ' StreamReader schließen
            MyStreamReader.Close()
            ' StreamWriter schließen
            MyStreamWriter.Close()
        Catch ex As Exception
            Return ex.Message
        End Try
    End Function

Meine Homepage: www.dartrax.de