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
Dim seitenname As String
Dim zielpfad 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"
    seitenname = "vbarchiv"
    zielpfad = "c:\temp\offline\" & seitenname
    On Error Resume Next
    MkDir zielpfad
    MkDir zielpfad & "\bilder"
    On Error GoTo 0
    WebBrowser1.Tag = "laden"
    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, _
            zielpfad & "\bilder\" & bildname, 0, 0
            [color=green]'im Quelltext die URL austauschen
            [color=green]'Pfad zum Bild ändern
            WebBrowser1.Document.All.tags("img")(i).src = "bilder/" & bildname
        End If
    Next
    [color=green]'veränderten Quelltext speichern
    Open zielpfad & "\" & seitenname & ".html" For Output As #1
    Print #1, WebBrowser1.Document.All.tags("html")(0).outerhtml
    Close
End Sub
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    If Left(URL, Len(internetseite)) = internetseite And WebBrowser1.Tag = _
      "laden" Then WebBrowser1.Tag = "fertig"
End Sub

mfg
brave@heart

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