Rubrik: HTML/Internet/Netzwerk · Internet / Browser / IE | VB-Versionen: VB5, VB6 | 20.09.06 |
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: | Views: 13.306 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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...".