загрузить все картинки на странице

[SHURUP]

Вопрос по MSHTML.HTMLDocument.
В Вебброузере1 страница с картинками, но у пользвателя в настройках ИЕ - "не отображать изображения". А их НАДО грузить.
Лазил в MSDN-е - не нашел (точно не знаю, что искать)
Наткнулся на MSHTML.HTMLImg - чуствую, что близко, но подходящего метода не нахожу.
Если кто-то может - дайте пример как загрузить все картинки на веб-странице. (типа по всем ним правой кнопкой покликали и повыбирали "Показать рисунок")
-----------
Заранее благодарен! Я знаю, вы можете…

[GSerg]

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

Option Explicit

Private Sub Form_Load()
  WebBrowser1.navigate "www.ya.ru"
End Sub

Private Sub Command1_Click()
  sfgh WebBrowser1.document
End Sub

Private Sub sfgh(ByVal d As IHTMLDocument2)
  Dim i As IHTMLImgElement
 
  For Each i In d.All.tags("img")
    MsgBox i.href
  Next
End Sub

И, насколько я понимаю, грузить их придётся самому

[Крост]

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

For i=0 to WebBrowser1.document.images.length-1
MsgBox WebBrowser1.document.images(i).src
Next

[SHURUP]

Не, не то!!! Адресс я знаю, как узнать. Картинки находятся в той-же папке, что и страница (Файл.html).
Просто нужно, чтобы они были отображены на странице. (Если это конечно возможно)
Ежели нет другого выхода - тогда может кто-то подскажет, ключ в реестре , отвечающий за отображение Картинок.

[FaKk2]

SHURUP
У нас с тобой общая проблема. Только мне надо картинки заблокировать.

Описывается следующая вещь:

The WebBrowser Control gives you control over what it downloads, displays, and executes. To gain this control, you need to implement your host's IDispatch so it handles DISPID_AMBIENT_DLCONTROL. When the WebBrowser Control is instantiated, it will call your IDispatch::Invoke with this ID. Set pvarResult to a combination of following flags, using the bitwise OR operator, to indicate your preferences.

Несмотря, что для меня это дикий, непролазный лес, все же я догадался, что мне надо как то этот интерфейс имплементировать. Там даже пример дали...на Си, блин!

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

STDMETHODIMP CAtlBrCon::Invoke(DISPID dispidMember, REFIID riid,
                               LCID lcid, WORD wFlags,
                               DISPPARAMS* pDispParams,
                               VARIANT* pvarResult,
                               EXCEPINFO* pExcepInfo,
                               UINT* puArgErr)
{
    switch (dispidMember)
    {
    case DISPID_AMBIENT_DLCONTROL:
        pvarResult->vt = VT_I4;
        pvarResult->lVal = DLCTL_DLIMAGES | DLCTL_VIDEOS | DLCTL_NO_SCRIPTS;
        break;

    default:
        return DISP_E_MEMBERNOTFOUND;
    }

    return S_OK;
}


Кто сможет обьяснить как это прикрутить?
Или более общий вопрос, как имплементировать IDispatch::Invoke ?

[FaKk2]

FleX_2004
Туда туда... Ведь в реестре прописывать, значит менять поведение всей системы. А мой метод, в данном, локальном, экземпляре.