✔ Aktuelle Webseite auslesen

[D@nger]

Hallo,
ja, du verfügst nicht über die Lizenz, hm ichg gucke mal nach.
Ok, ich habs:

' Benötigt wird nur folgende API-Funktion
Private Declare Function URLDownloadToFile Lib "urlmon" _
  Alias "URLDownloadToFileA" ( _
  ByVal pCaller As Long, _
  ByVal szURL As String, _
  ByVal szFileName As String, _
  ByVal dwReserved As Long, _
  ByVal lpfnCB As Long) As Long

Private Sub Command1_click()
Dim lResult As Long
Dim sURL As String
Dim sLocalFile As String

' URL-Link der Datei, die heruntergeladen werden soll
sURL = "http://www.tools4vb.de/download/sevTrayIcon.zip"

' Dateiname auf dem lokalen System
sLocalFile = "C:\Eigene Dateien\sevTrayIcon.zip"

' Download ausführen
Screen.MousePointer = vbHourglass
lResult = URLDownloadToFile(0, sURL, sLocalFile, 0, 0)
Screen.MousePointer = vbNormal

' Rückgabewert auswerten
If lResult = 0 Then
  MsgBox "Download erfolgreich ausgeführt!"
Else
  MsgBox "Fehler beim Download: " & _
   "Entweder existiert die URL nicht, oder Sie haben " & _
   "einen ungültigen Dateinamen angegeben!", vbCritical
End If
End sub