Картинки в WebBrowser

[Scorry_1]

Доброе время суток.
Задачу перед собой поставил такую:
при навигации в WebBrowser не должны загружаться картинки, затем переписываются все тыги <img> - заменяется src = "c:/image/" & src, и только тогда картинки в WebBrowser открываются (получается уже с диска). Подскажите, возможно ли такое, а главное как? если не трудно, то объясните на пальцах...

[Scorry_1]

Ну что, никто не знает?
пожет быть тогда подскажете как при нажатии в WebBrowser на ссылку передавать команду эту ссылку качать в Inet?

[Alexanbar]

Почему же никто?

Во-первых, не очень понятна задача.

В своё время я делал сохранение страницы на диск с конвертацией ссылок.
Делал исключительно путём поиска соответствующих строк с помощью ф-ции Instr и замены глобальных ссылок на локальные. В то время я ничего не знал о DOM. Возможно, что можно как-то заменять ссылки непосредственно, используя объекты DOM.

[pitbull]

2Alexanbar Какой DOM? Первый или второй???

p.s. Мне казалось что это называется COM...., tj как говорит наш лектор: "я могу ошибаться..."

[GSerg]

DOM доступен посредством COM, pitbull, да...

[Alexanbar]

2Alexanbar Какой DOM? Первый или второй??? :P

p.s. Мне казалось что это называется COM...., tj как говорит наш лектор: "я могу ошибаться..."

Document Object Model. См. MSDN

Document Property Internet Development Index

--------------------------------------------------------------------------------

Retrieves the automation object of the active document, if any.

Syntax

[ oAutomation = ] object.Document
Possible Values

oAutomation Object that receives the automation object.

The property is read-only. The property has no default value.

Remarks

When the active document is an HTML page, this property provides access to the contents of the HTML Document Object Model (DOM). Specifically, it returns an HTMLDocument object reference. The HTMLDocument object is functionally equivalent to the HTML document object used in HTML page script. It supports all the properties and methods necessary to access the entire contents of the active HTML document.

Microsoft® Visual Basic® programs that early bind to the HTMLDocument object can reference it through the IHTMLDocument, IHTMLDocument2, and IHTMLDocument3 interfaces.

[pitbull]

Э][.....

[Amed]

pitbull, не делай, пожалуйста, бессмысленных постов

[Scorry_1]

Alexanbar, объясняю задачу: уменьшить входящий трафик с помощью НЕ закачиванья изображений с удаленного сервера, а закачивая их со своего жесткого диска.

Что такое DOM и COM?

[SeT]

В броузере всё делается так, как в HTML. Можно в HTML, значит можно и в браузере.

[alibek]

Alexanbar, объясняю задачу: уменьшить входящий трафик с помощью НЕ закачиванья изображений с удаленного сервера, а закачивая их со своего жесткого диска.

Я бы посоветовал для этих целей не писать свою программу, а заюзать прокси-сервер, например Proxomitron.

[Alexanbar]

Alexanbar, объясняю задачу: уменьшить входящий трафик с помощью НЕ закачиванья изображений с удаленного сервера, а закачивая их со своего жесткого диска.

Что такое DOM и COM?

Используй Opera. Один раз закачаешь картинки, а далее они будут браться из кэша. Вот я хочу такое сделать для IE, но пока некоторые вопросы остались нерешёнными.

А DOM - это объект с набором свойств и методов. Доступ к этому объекту осуществляется, например, через своство контрола webbrowser.Document. Одно замечание: VB не даёт подсказку на свойства и методы объекта Document.

[Scorry_1]

Alexanbar, да я давольно часто использовал в своих программах webbrowser.Document, просто не знал, к какому объекту эти свойства относятся .

не подскажете кто-нибудь, есть ли русскоязычный ресурс, где подробно описывают если не все, то хтыбы самые популярные свойства webbrowser.Document?

[Firestorm]

случаем решил сделать не закачивалку сайтов?
вот например код, как скачать файл с инета, дальше переделывай ссылки на картинки... картинки тоже качаются таким методом

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

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()
    DownloadFile "http://www.yandex.ru", "c:\yandex.htm"
End Sub


[Scorry_1]

Firestorm, нет, решил сделать простенького киента для сетевой текстовой мморг игрухи . код сохранил, спасибо

[ALX_2002]

Отцы ! Да вы чего паритесь то ! Всё ж просто

Жаль, что я раньше сюда не заглянул.

Вот

[ALX_2002]

Да. А вот исходный код на всякий случай.

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

Dim HDOCUMENT As New HTMLDocument
Dim IMG As HTMLImg
Private Sub Form_Activate()
MsgBox "Дождись полной загрузки документа"
WB.Navigate "www.rubank.ru"
End Sub

Private Sub Form_Resize()
WB.Move 0, 0, ScaleWidth, ScaleHeight
End Sub
Private Sub WB_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
If WB.Document.ReadyState = "complete" Then
'Получаем документ из WEB браузера
Set HDOCUMENT = WB.Document

For Each IMG In HDOCUMENT.getElementsByTagName("IMG")
  'Получаем SRC картинки
  IMGSRC = IMG.src
  'Отрезаем имя файла
  IMGSRC = Right(IMGSRC, Len(IMGSRC) - InStrRev(IMGSRC, "/"))
  'Подставляем новый путь
  IMGSRC = "C:\images\" & IMGSRC
  'Устанавливаем новый путь в SRC картинки
  IMG.src = IMGSRC
Next

End If
End Sub

Для того, чтобы проект заработал нужно

1) Подключить shdocvw.oca и mshtml.tlb

2) На форме разместить WebBrowser и переименовать его в WB

Вот вроде и всё.

[Scorry_1]

ALX_2002, большое спасибо - части этого кода мне помогут в будущем, но вот в чем дело: написанная тобой програма переписывает src изображений уже после того, как картинки с сервера были закачаны и, следовательно, полный объем трафика был сохранен. Идея же втом, чтобы поймать момент, когда html текст станицы был уже закачан, а img еще не запрашивались с сервера. Если в этот момент переписать адреса рисунков в тэгах, то входящий трафик будет уменьшен - этои есть основная задача .

[ALX_2002]

Усёк. Сейчас сообразим

А всё просто поменяй

If WB.Document.ReadyState = "complete" Then

на

If WB.Document.ReadyState = "interactive" Then

[Scorry_1]

ALX_2002, класс!!! огромное и даже ОГРОМНОЕ СПАСИБО!!!!!!!!

[ALX_2002]

Стоп ! Стоп ! Погоди чел ! Я ошибся. Ща переделаем

[Scorry_1]

ALX_2002, ну что не выходит? У меня тоже... Никак не могу подобрать нужное событие...



А можно как-то прописать свое событие для объекта? Как это сделать?

[Шнурок]

Меня тоже этот вопрос мучает...
Только мне нужно немного по другому сделать:
Отправляется запрос из webbrowser (урл), если урл=*yandex.ru то не грузить картинки а взять их из каталога с exeшником.
Не подскажите как такое можно сделать? Зарание спасибо!

[RUSYA]

пример замены img есть, а в BeforeNavigate смотреть урл и есть, то...

[vvs_adm]

пример замены img есть, а в BeforeNavigate смотреть урл и есть, то...

Ага, и если есть, то... ждать, пока Scorry_1 и ALX_2002 найдут таки нужное событие

[Шнурок]

Я кажись нашел как картинки вообще не грузить:

Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, */* - не обязательная, указывает, что мы принимаем (Типа грузим картинки всякие или нет)

[Scorry_1]

Шнурок, это только если напишишь локальный прокси и будешь отслеживать какие запросы броузет отправляет .

http://bbs.vbstreets.ru/viewtopic.php?t=21649

[Шнурок]

Scorry_1 а можно ли как-нибудь через винсок отправлять GET .... ???
А потом слушать когда придет ответ и преобразовыввать полученный текст в html...
З.Ы. это просто мысль... я во всем этом чайник(