| Вопрос: WebBrowser | Добавлено: 27.12.06 00:36 |
Автор вопроса:  Gogic
|
|
В библиотеке кодов я нашел следущее:
"Просмотр содержимого веб-страницы "В виде HTML" 2 варианта. Загрузите оба варианта, и посмотрите, что каждый код загружает... Text1 = WebBrowser1.Document.documentelement.innerhtml Text2 = WebBrowser1.Document.Body.innerhtml" У меня это, к сожалению не работает, выдает RunTime Error 91. Как заставить это работать, может в References что добавлять нужно? Или как решить эту проблему другим путем (мне нужно сохранить в текстовый файл HTML код страницы в WebBrowser)? |
| Ответы | Всего ответов: 6 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #1 | Добавлено: 27.12.06 00:51 |
Ну жы хоть веббразуер на форму кинь что-ли для приличия  там с компонентах ссылку Microsoft Internet Controls... а вообще это тупо, лучше работать через винсок или няпрямую с сокетами... сходи на dasharm.com вроде что-то было там подобное...
|
||
|
Номер ответа: 2 Автор ответа: Gogic Вопросов: 38 Ответов: 121 |
Профиль | | #2 | Добавлено: 27.12.06 04:18 |
| Браузер и иже с ним библиотеки в проекте присутствуют. Ошибка свидетельствует о том, что нет таких свойств у объекта (Webbrowser.document). Мне просто содержимое страницы в WebBrowser надо сохранить в текстовом файле. | ||
|
Номер ответа: 3 Автор ответа: GogicВопросов: 38 Ответов: 121 |
Профиль | | #3 | Добавлено: 27.12.06 05:57 |
| Ладно, как другими способами получить HTML-код страницы по ее URL? | ||
|
Номер ответа: 4 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #4 | Добавлено: 27.12.06 10:54 |
| сокеты, urldownloadtofile, еще чем-нить... | ||
|
Номер ответа: 5 Автор ответа: СерёгаICQ: 262809473 Вопросов: 17 Ответов: 561 |
Web-сайт: Профиль | | #5 | Добавлено: 27.12.06 22:03 |
|
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
Private Sub Command1_Click() Dim ret As Long ret = URLDownloadToFile(0, "http://ya.ru", "c:\1.html", 0, 0) If ret = 0 Then MsgBox "Ok" Else MsgBox "Error" End Sub |
||
|
Номер ответа: 6 Автор ответа: GogicВопросов: 38 Ответов: 121 |
Профиль | | #6 | Добавлено: 28.12.06 04:31 |
| Премного благодарен))) | ||
Страница: 1 |