Сохранение из WebBrowser

[Whityjim]

Как сохранить содержимое элемента WebBrowser без диалога
"Save As"

Пробовал:

WB.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DONTPROMPTUSER

запрашивает гад....в нете копал вопрос все задают а ответа никто не знает.....

может здесь кто знает сию тайну.....????

[Amed]

Выковыриваем Document.InnerHtml и ручками сохраняем

[GSerg]

А в чём тайна-то? Откуда он узнает, куда сохранять?

[Whityjim]

Надо чтоб совсем без ручек.....

[Konst_One]

offline-браузер что-ли пишешь?

[Konst_One]

Код: Выделить всё

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
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
    'example by Matthew Gates (Puff0rz@hotmail.com)
    DownloadFile "http://www.allapi.net", "c:\allapi.htm"
End Sub

[_Мика_]

Код: Выделить всё

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
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
    'example by Matthew Gates (Puff0rz@hotmail.com)
    DownloadFile "http://www.allapi.net", "c:\allapi.htm"
End Sub

Но картинки то не будут сохраняться

[Konst_One]

а я и не говорил про картинки

[_Мика_]

А ты не понял что автару нужно!

[Konst_One]

Как сохранить содержимое элемента WebBrowser без диалога

да вроде бы понял я все как надо - ему содержимое надо сохранить, а содержимое webbrowser, как известно, это html чистый

[Whityjim]

Konst_One Сенкс...... я так пробовал этот путь меня не устраивает ........Мине треба чтоб из самого WB сохранялось ......то что вижу то и сохраняю......без подключения к нету..... тока чтоб одну кнопку Save нажал и усе.....