Сохранение веб страницы полностью

[dr-vic]

Подскажите, плз, имеется ли возможность программно сохранить загруженный в IE или WebBrowser HTML в полном виде, как это делает сам эксплорер по команде "файл->сохранить как->веб-страница полностью", т.е. с файлами изображений, скриптами и т.п.
Заранее благодарен.

[marvan]

'на форме WebBrowser1 и Command1
Private Sub Command1_Click()
    Dim mQuery As OLECMDF
    mQuery = WebBrowser1.QueryStatusWB(OLECMDID_SAVEAS)
    If Err.Number = 0 Then
        If mQuery And OLECMDF_ENABLED Then
            WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER
        End If
    End If
    If Err.Number <> 0 Then MsgBox "Save as command Error: " & Err.Description
End Sub

Private Sub Form_Load()
    WebBrowser1.Navigate "ya.ru"
End Sub

Как отформатирован этот код?

[i'm pissed]

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

WebBrowser.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT


а в форм_load

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

CommonDialog1.Filter = "чисто инетовские страницы(*.htm,*.html,*.mht)|*.htm;*.html;*.mht|все(*.*)|*.*|"

[dr-vic]

Спасибо! Буду пробовать.

[dr-vic]

Господа, попробовал, всё отлично работает, Спасибо! Но хотелось бы задать еще вопросы,
продолжающие тему. Вопросы такие:
1. А как сделать, чтобы не выводился CommonDialog, то есть все подтверждения
для него давались программно?
2. Я замечал, что ИЕ в разные моменты сохраняет страницу по разному - то вытягивает
ее из кэша, то грузит компоненты страницы из Инета. Есть ли возможности принудительно
заставить его делать то и(или) другое?