Option Explicit
 
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
 
Dim internetseite As String
 
Private Sub Command1_Click()
    Dim i As Integer
    Dim bilderzahl As Integer
    Dim bildname As String
 
    internetseite = "http://www.vbarchiv.net/home/willkommen.php"
    WebBrowser1.Navigate internetseite
    Do While WebBrowser1.Tag <> "fertig"
        DoEvents
    Loop
    WebBrowser1.Tag = ""
    bilderzahl = WebBrowser1.Document.All.tags("img").length
    For i = 0 To bilderzahl - 1
        If WebBrowser1.Document.All.tags("img")(i).getAttribute("src", 0) <> _
          "" Then
            bildname = Right(WebBrowser1.Document.All.tags("img")(i).src, Len( _
            WebBrowser1.Document.All.tags("img")(i).src) - InStrRev( _
            WebBrowser1.Document.All.tags("img")(i).src, "/"))
            URLDownloadToFile 0, WebBrowser1.Document.All.tags("img")(i).src, _
            "c:\temp\" & bildname, 0, 0
        End If
    Next
End Sub
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    If Left(URL, Len(internetseite)) = internetseite Then WebBrowser1.Tag = _
      "fertig"
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...