WebBrowser - отключить изображения

[djalex777]

Собственно вопрос - как сделать так, чтобы при использовании WebBrowser (к примеру при вызове Navigate) не загружались изображения, а всё остальное содержимое страниц загружалось? Читал про DLCTL_DLIMAGES, но там реализуется через имплементацию IDispatch, что в VB сделать довольно сложно, особенно без лишних dll. Может есть у кого какие-то мысли?

P.S. "Дерганье" реестра не рассматриваю

[Antonariy]

CoInternetSetFeatureEnabled

[Antonariy]

А хотя там нет отключения картинок, только звуков.

[Vova_2581]

Дык WebBrowser реализуется на движке Internet Explorer а значит отключить картинки проще через реестр --
[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main]
"Display Inline Images"="no" - откл. картинки.

Тока потом не забыть обратно включить --> "yes".

[Хакер]

Vova_2581, умеешь ли ты читать?

P.S. "Дерганье" реестра не рассматриваю

[djalex777]

Вобщем переписываю я адрес функции Invoke интерфейса IDispatch в объекте WebBrowser.Application, на адрес своей функции.
Перехват

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

_declspec(dllexport) void _stdcall HookCOMTable(PDWORD pIntf, DWORD COMTableThunk, void* pNewFunc, PDWORD pOldMethodAddr)
{
PDWORD pTableThunk = (PDWORD)(*(PDWORD)(*pIntf)+COMTableThunk);
if(pOldMethodAddr!=NULL) *pOldMethodAddr = *pTableThunk;
DWORD op;
VirtualProtect(pTableThunk,4,PAGE_READWRITE,&op);
*pTableThunk = DWORD(pNewFunc);
...
}


Объявление в VB и использование

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

...
Public Declare Sub HookCOMTable Lib "iehelper.dll" (ByRef pIntObj As Long, ByVal COMTableThunk As Long, ByVal pNewFunc As Long, pOldMethodAddr As Long)
...
'Вызов
...
tableInc = 24
ptrInvoke = ObjPtr(WB.Application)
HookCOMTable ptrInvoke, tableInc, AddressOf Disp_Invoke, oldInvokeMethod
...
'Функция Disp_Invoke
...
Public Function Disp_Invoke( _
      ByVal This As Long, _
      ByVal dispIdMember As Long, _
      riid As olelib.UUID, _
      ByVal lcid As Long, _
      ByVal wFlags As Integer, _
      pDispParams As olelib.DISPPARAMS, _
      ByVal pVarResult As Long, _
      pExcepInfo As olelib.EXCEPINFO, _
      puArgErr As Long) As Long
Dim lw As Long
         
  On Error Resume Next
   
  lw = wFlags And DISPATCH_PROPERTYGET
   
  If (lw) <> 0& And pVarResult <> 0& Then
   Select Case dispIdMember
    Case DISPID_AMBIENT_DLCONTROL:
          'Вот тут я жду, что мне придет что-то
          ...
    Case Else:
          {INVOKE_ORIGINAL}
   End Select
  Else
          {INVOKE_ORIGINAL}
   End if
End Function
...


Всё нормально переадресуется в мою функцию, но Invoke с DISPID_AMBIENT_DLCONTROL не приходит. Насколько я понял, его должен вызывать WebBrowser для установки параметров загрузки документа. Ещё пробую вызвать OnAmbientPropertyChange с DISPID_AMBIENT_DLCONTROL через IOleControl

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

...
Dim iol As olelib.IOleControl
Set iol = WB.Application
iol.OnAmbientPropertyChange DISPID_AMBIENT_DLCONTROL
...


IOleControl взят из TLB Edanmo. Но опять ничего похожего на Invoke не приходит. Значит что-то я не так делаю, может не от того объекта IDispatch:Invoke перехватываю. Может кто знает от какого объекта перехватывать и может надо какой-то интерфейс имплиментить? Ещё вопрос - ObjPtr возвращает нам указатель на IUnknown?

[Хакер]

Перехват

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

_declspec(dllexport) void _stdcall HookCOMTable(PDWORD pIntf, DWORD COMTableThunk, void* pNewFunc, PDWORD pOldMethodAddr)
{
PDWORD pTableThunk = (PDWORD)(*(PDWORD)(*pIntf)+COMTableThunk);
if(pOldMethodAddr!=NULL) *pOldMethodAddr = *pTableThunk;
DWORD op;
VirtualProtect(pTableThunk,4,PAGE_READWRITE,&op);
*pTableThunk = DWORD(pNewFunc);
...
}

Буэ!!!

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

_declspec(dllexport) void _stdcall HookCOMTable(LPDWORD &pVTbl, UINT iVTblIndex, DWORD pNewFunc, LPDWORD pOldMethodAddr)
{
    DWORD op;
    VirtualProtect(&pVTbl[iVTblIndex], sizeof(DWORD), PAGE_READWRITE, &op);
    if(pOldMethodAddr != NULL) *pOldMethodAddr = pVTbl[iVTblIndex];
    pVTbl[iVTblIndex] = pNewFunc;
    ...
}

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

...
Public Declare Sub HookCOMTable Lib "iehelper.dll" (ByVal Obj As IUnknown, ByVal iVTableIndex As Long, ByVal pNewFunc As Long, pOldMethodAddr As Long)
...

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

...
'Вызов
...
tableInc = 6
HookCOMTable WB.Application, tableInc, AddressOf Disp_Invoke, oldInvokeMethod
...


Всё нормально переадресуется в мою функцию, но Invoke с DISPID_AMBIENT_DLCONTROL не приходит.

Сомнительно, что твой вариант работал, потому что у тебя было 24, а не 6. Соответственно, ты «перехватывал» какую-то чужую VTable.

Ещё вопрос - ObjPtr возвращает нам указатель на IUnknown?

ObjPtr это просто по-другому объявленная VarPtr. Возвращает она ровно то, что в неё передают. VB в процессе кастования приводит ссылку к интерфейному указателю типа IUnknown и его передаёт. Так что ObjPtr(она же VarPtr) его и возвращает, да.

[djalex777]

Сомнительно, что твой вариант работал, потому что у тебя было 24, а не 6. Соответственно, ты «перехватывал» какую-то чужую VTable.

ммм... 6 по счету будет Invoke, но в таблице каждый адрес занимает 4 байта, поэтому к началу таблицы прибавляю 24. Разве не так?

[Хакер]

6 по счету будет Invoke

Так.

но в таблице каждый адрес занимает 4 байта

Так.

поэтому к началу таблицы прибавляю 24

К численному значению адреса начала таблицы нужно прибавлять число 24. Но ты ведь работаешь не с численным значением, а с указателем.

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

DWORD *a;

a+1 — это указатель на следующий за *a DWORD, а не на DWORD, лежащий на 1 байт дальше, чем *a.

Расстояние в байтах между *(a+1) и *(a-1) составит 8 байт, а не два байта, как тебе кажется.

[djalex777]

Я согласен с тобой, но это относится к твоему варианту функции. Посмотри на мой вариант ещё раз

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

function(PDWORD pIntf, DWORD COMTableThunk)
...
PDWORD pTableThunk = (PDWORD)(*(PDWORD)(*pIntf)+COMTableThunk)
...


Что будет в pTableThunk?

[Хакер]

Указатель на 24-ую (считая от нуля) ячейку таблицы.

[djalex777]

Тогда почему при передаче объекта WB (WebBrowser) в твою и мою функцию, они возвращают одинаковый адрес старой функции? Твой вариант не работает с WB.Application - не переадресует в мою функцию.

[Хакер]

Тогда почему при передаче объекта WB (WebBrowser) в твою и мою функцию, они возвращают одинаковый адрес старой функции?

Везёт. VTable-ы идут в образе подряд, +6 и +24 -ые ячейки указывают на одну и ту же реализацию (Invoke).

Твой вариант не работает с WB.Application - не переадресует в мою функцию.

Вообще?

[djalex777]

Да. При WB.Application даже намека на вызов моей функции нет.

[Хакер]

А ты точно используешь мой вариант объявления с моим вариантом функции?

[djalex777]

Да. Может ты имел ввиду

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

Public Declare Sub HookCOMTable Lib "iehelper.dll" (ByVal obj As Any, ByVal iVTableIndex As Long, ByVal pNewFunc As Long, pOldMethodAddr As Long)


А почему таким методом не получается перехватывать Invoke в VB-классах (которые мы сами создаем в IDE) в EXE?

[Хакер]

По-моему ты что-то сочиняшь.

Методу абсолютно всё равно, что и как перехватывать. Он должен работать, но я допускаю, что в моём коде есть незначительная ошибка, потому что я писал его сходу и, конечно, не тестировал.

[djalex777]

Со свойствами (в частности - не загружать изображения) разобрался - нужно перехватывать Invoke на IOleClientSite из IOleObject объекта WB.Application

[Хакер]

Как можно перехватить IOleClientSite::Invoke, не перехватив при этом IDispatch::Invoke (и наоборот)?

[djalex777]

IOleClientSite получаем через IOleObject.GetClientSite

[Хакер]

Ну ты понял, почему надо прибавлять 6, а не 24?

[djalex777]

Да, спасибо за разъяснение.

[pertov]

Ответ на вопрос без всяких dll: