Datei-Download im WebBrowser-Control abfangen Hier wird gezeigt, wie man einen Datei-Download im WebBrowser-Control abfangen kann.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  8.390
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Beim Einsatz des WebBrowser-Controls in der eigenen Anwendung lässt sich beim Klick auf einen Download-Link der Datei-Download wie folgt abfangen. Man könnte dann bspw. den Download über eine eigene Download-Funktion starten oder das Downloaden bestimmter Dateien einfach unterbinden.

Klickt der Anwender auf einen Link innerhalb der angezeigten Webseite wird das BeforeNavigate2-Ereignis ausgelöst. Über den Parameter "URL" lässt sich der Link ermitteln und durch Setzen des zusätzlichen Parameters "Cancel" auf True der Download sogar abbrechen:

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, _
  URL As Variant, Flags As Variant, TargetFrameName As Variant, _
  PostData As Variant, Headers As Variant, Cancel As Boolean)
 
  Dim sExt As String
 
  ' Datei-Extension ermitteln
  If InStr(URL, ".") > 0 Then
    sExt = LCase$(Mid$(URL, InStrRev(URL, ".")))
  End If
 
  ' Je nach Dateityp verschiedene Aktionen ausführen  
  Select Case sExt
    Case ".zip"
      ' zusätzliche MsgBox anzeigen
      If MsgBox("Datei wirklich downloaden?", vbQuestion + vbYesNo) = vbNo Then
        ' Abbrechen
        Cancel = True
      End If
 
    Case ".exe"
      ' Download von EXE-Dateien blocken
      MsgBox "Der Download von ausführbaren Dateien ist gesperrt!", vbCritical + vbOKOnly
      Cancel = True
 
    Case Else
      ' alle anderen Links zulassen
  End Select
End Sub