HTTP-Download aus geschütztem Bereich Sie möchten eine Datei aus einem geschützten Bereich einer Homepage downloaden? Kein Problem - mit diesem Einzeiler.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  6.118
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 12 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Sie möchten eine Datei aus einem geschützten Bereich einer Homepage downloaden? Kein Problem - mit diesem Einzeiler.
Der Benutzername und das Kennwort für den Zugriff auf das geschützte Verzeichnis des Webspace wird hierbei direkt in der URL mit angegeben:

http://benutzername:kennwort@domain.de/verzeichnis/datei

Für den Download selbst verwenden wir die URLDownloadToFile-Funktion aus dem Windows-API:

Option Explicit
 
' Benötigte API-Deklarationen
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

Beispiel für den Aufruf:
Es soll die Datei "xyz.zip" aus dem Verzeichnis "files" der Domain "http://www.test.de/" heruntergeladen werden. Der Benutzername für das geschützte Verzeichnis lautet "public", das dazugehörige Kennwort "geheim".

Dim sURL As String
Dim sUser As String
Dim sPwd As String
Dim sLocalFile As STring
 
' Benutzername und Kennwort für den geschützten Bereich
sUser = "public"
sPwd = "geheim"
 
' URL "zusammenbauen"
sURL = "http://" & sUserName & ":" & sPwd & "@test.de/files/xyz.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

Hinweis
Diese Variante des Datei-Downloads eignet sich nur für kleinere Dateien, da Ihr Programm während des Download-Vorgangs die Kontrolle an die DLL-Funktion abgibt. Erst nach dem Download arbeitet Ihr Programm weiter. Es empfiehlt sich daher auch vor dem Starten des Downloads einen Hinweis anzuzeigen - z.B. ein Status-Label mit "Bitte warten...".