Eigenen Internet Explorer Website speichern

Hallo zusammen,

ich programmiere gerade an einem eigenen Internet Explorer. Ich Benutze folgene Systemdatei.

Microsoft Internet Controls (SHDOCVW.DLL)

Der Explorer funktioniert auch wunderbar. Nur möchte ich jetzt die Website speichern. Dazu verwende ich folgenden Befehl:

WebBrowser1.ExecWB 4, 0

Mein Problem:

Es erscheint ein Fenster in dem ich Dateiname und Verzeichnis und Format auswählen soll. Durch klicken wird die Website gespeichert.
Der Vorgang vom speichern soll komplett im Hintergrund ablaufen.
Wie kann ich das machen???

Ich bräuchte einen Befehl der so aussieht

Call WebsiteSpeichern (Objekt As Objekt, WohinSpeichernPfadUndDatei As String)

Mit freundlichen Grüßen

Sebastian

Hallo zusammen,

Hi,
das was du vorhast funktioniert so leider nicht.
Es sei denn, du möchtest den uneleganten Weg über Sendkey gehen.
Weitere Möglichkeit (allerdings kann man damit nur die direkt aufgerufene HTML-Datei speichern, d.h. keine Frames oder eingebettete Objekte wie z.B. Bilder):

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 


returnValue = URLDownloadToFile(0, "http://www.wer-weiss-was.de/content/start.shtml", "c:\www.htm", 0, 0) 

Kannst das ganze ja auf Webbrowser1.LocationURL aufsetzen.

Gruß.Timo

ich programmiere gerade an einem eigenen Internet Explorer.
Ich Benutze folgene Systemdatei.

Microsoft Internet Controls (SHDOCVW.DLL)

Der Explorer funktioniert auch wunderbar. Nur möchte ich jetzt
die Website speichern. Dazu verwende ich folgenden Befehl:

WebBrowser1.ExecWB 4, 0

Mein Problem:

Es erscheint ein Fenster in dem ich Dateiname und Verzeichnis
und Format auswählen soll. Durch klicken wird die Website
gespeichert.
Der Vorgang vom speichern soll komplett im Hintergrund
ablaufen.
Wie kann ich das machen???

Ich bräuchte einen Befehl der so aussieht

Call WebsiteSpeichern (Objekt As Objekt,
WohinSpeichernPfadUndDatei As String)

Mit freundlichen Grüßen

Sebastian