html-страница без рисунков

vital24
Дата: 18.11.2009 00:29:03
есть код:

dim Lard As New SHDocVw.InternetExplorer
dim mDoc As MSHTML.IHTMLDocument

    Lard.navigate "http://www.rambler.ru"
    
    While Lard.readyState <> 4
        DoEvents
    Wend
    Set mDoc = Lard.Document

и далее разбор html-документа.

Вопрос: можно ли загружать html-страницу без рисунков (для ускорения работы программы)? И как это реализовать?
PWW
Дата: 18.11.2009 15:29:33
vital24,

Введи вот эту строку:

http://lingvo.yandex.ru/en?text=TEST&st_translate=on

У меня сыпятся ошибки выполнения сценария на странице. Думаю отключение выполнения сценариев и загрузка картинок где-то лежат в одним месте. Где не знаю.
vital24
Дата: 18.11.2009 17:33:36
кто то даст ответ?
MSDN даст
Дата: 18.11.2009 17:59:24
%%
Дата: 18.11.2009 18:16:50
Dim Lard As New SHDocVw.InternetExplorer
Dim mDoc As MSHTML.IHTMLDocument
Dim objHTTP as Object

Lard.navigate "about:blank"

Set objHTTP = CreateObject("MSXML2.XMLHTTP")
objHTTP.Open "GET", "http://www.rambler.ru", False
objHTTP.send

Lard.Document.Write objHTTP.responseText
Set mDoc = Lard.Document