сохранение страницы в файл

[skulida]

у меня очень простой вопрос:
как сохранить открытую страницу в файл, т.е.

Dim Adres As String
Private Sub Form_load()
Adres = "http://......"
WebBrowser1.Navigate Adres
End Sub

дальше как открытый документ сохранить?
спасибо

[Boris_BGB]

На сколько я понимаю, то открытая страница хранится в оперативной памяти. Следовательно нужно через АПИ к ней обратится, затем извлечь рисунки страницы из интернет кэша и поставить их на своё место.
Код будет очень длинный, так что проще сохранять их в ручную.

[Cyrax]

2Boris_BGB: не надо ни каких апей
у WebBrowser для этого есть метод
ща свой исхлдничек покопаю...
ага нашел. пример того, как это сделать с помощью меню
Под сохранить я понимаю действия:
- Записать
- записать как
- распечатать, установив предварительно параметры страницы

Первый пункт меню стандартно File с именем mnuFile. При выборе этого пункта проверяется возможны ли вышеперечисленные действия:

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

Private Sub mnuFile_Click()
    Dim status As Boolean
    status = (WebBrowser1.QueryStatusWB(OLECMDID_SAVE) And OLECMDF_ENABLED)
    Me.mnuFileSave.Enabled = status
    status = (WebBrowser1.QueryStatusWB(OLECMDID_SAVEAS) And LECMDF_ENABLED)
    Me.mnuFileSaveAs.Enabled = status
    status = (WebBrowser1.QueryStatusWB(OLECMDID_PAGESETUP) And OLECMDF_ENABLED)
    Me.mnuFilePageSetup.Enabled = status
    status = (WebBrowser1.QueryStatusWB(OLECMDID_PRINT) And OLECMDF_ENABLED)
    Me.mnuFilePrint.Enabled = status
End Sub

И в зависимости от переменной status определяется доступность подпунктов меню с характерными названиями
– Save
- Save As
- PageSetup
- Print
При выборе доступного пункта меню выполняются следующие процедуры:

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

Private Sub mnuFileSave_Click()
    On Error Resume Next
    WebBrowser1.ExecWB OLECMDID_SAVE, OLECMDEXECOPT_DODEFAULT
End Sub

Private Sub mnuFileSaveAs_Click()
    On Error Resume Next
    WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER
End Sub

Private Sub mnuFilePageSetup_Click()
    On Error Resume Next
    WebBrowser1.ExecWB OLECMDID_PAGESETUP, OLECMDEXECOPT_PROMPTUSER
End Sub

Private Sub mnuFilePrint_Click()
    On Error Resume Next
    WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER
End Sub

При выполнении этих процедур возникают стандартные диалоги, привычные глазу пользователя Win.

[skulida]

[quote="Cyrax"]
Хорошо, ноя имел ввиду програмное сохранение, без ди алоговых окон с именем файла - текущая дата.
Вот я попробовал процедуру

Private Sub Command1_Click()
WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER

End Sub

так работает, но предлагается сохранитиь в ручную через диалоговое окно, если OLECMDID_SAVE далее
OLECMDEXECOPT_DONTPROMRUSER и указываю путь не работает.
Может подскажите синтаксис этого метода. как сохранить открытую
страницу без диалогов?
спасибо

[skulida]

Ну что, господа программисты, буду вас стыдить понемножку -
никто так и не помог начинающему..
Оказывается в VB есть контрол Microsoft Internet Transfer Control, с помощью которого можно решить мою задачу следю образом:
Private Sub Form_load()
Dim vData As Variant
vdata = Me.Inet1OpenURL("Http://.....", icString)
Open "C:\00.html" For Output As #1
Print #1, , vData
Close #1
Call Unload_Form
End Sub
Private Sub Unload_Form()
Unload Form1
End Sub

[Cyrax]

Ну что, господа программисты, буду вас стыдить понемножку -
никто так и не помог начинающему..
Оказывается в VB есть контрол Microsoft Internet Transfer Control, с помощью которого можно решить мою задачу следю образом:
..............

логично...
это если у тебя на страничке только текст... а если там еще и картинки будуть? тогда как?

[skulida]

to ALL
Да рано я обрадовался...
почему-то этот код работает на половину, т.е. сохраняет страницу не целиком, а только 1,09 кб....
Подскажите, пожалуйста, в чем может быть дело?

Private Sub Form_load()
Dim vData As Variant
vdata = Me.Inet1OpenURL("Http://dp.ru/dpspravka_prn.php3", icString)
Open "C:\00.html" For Output As #1
Print #1, , vData
Close #1
Call Unload_Form
End Sub
Private Sub Unload_Form()
Unload Form1
End Sub