c++ - 如何获取有关 Webbrowser 控件实例或 IE Webbrowser 的滚动条的信息？

Question

我需要获取有关 Webbrowser 的滚动条(位置、大小、可见性)的信息控制外部应用程序，我尝试使用 GetScrollBarInfo来 self 之前的功能 question ，但该函数总是返回 false，我用另一个应用程序检查了这个函数并且工作正常，但不能用 IE 或 Webbrowser 控件。 那么如何获取有关 Webbrowser 控件实例或 IE Webbrowser 的滚动条的信息？

Answer 1

您可以发送WM_HTML_GETOBJECT留言给"Internet Explorer_Server"获取外部应用程序的类窗口IHtmlDocument2 , 然后使用 IServiceProvider你可以获得IWebBrowser2界面。
这是 Delphi 中的一些示例代码:

uses
  ActiveX, MSHTML;

type
  TObjectFromLResult = function(LRESULT: lResult; const IID: TIID;
    wParam: wParam; out pObject): HRESULT; stdcall;

function GetIEFromHWND(WHandle: HWND; var IE: IWebbrowser2): HRESULT;
var
  hInst: HWND;
  lRes: Cardinal;
  Msg: Integer;
  pDoc: IHTMLDocument2;
  ObjectFromLresult: TObjectFromLresult;
begin
  Result := S_FALSE;
  hInst := LoadLibrary('Oleacc.dll');
  @ObjectFromLresult := GetProcAddress(hInst, 'ObjectFromLresult');
  if @ObjectFromLresult <> nil then
  try
    Msg := RegisterWindowMessage('WM_HTML_GETOBJECT');
    SendMessageTimeOut(WHandle, Msg, 0, 0, SMTO_ABORTIFHUNG, 1000, lRes);
    Result := ObjectFromLresult(lRes, IHTMLDocument2, 0, pDoc);
    if Result = S_OK then
      (pDoc.parentWindow as IServiceprovider).QueryService(
        IWebbrowserApp, IWebbrowser2, IE);
  finally
    FreeLibrary(hInst);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Wnd, WndChild: HWND;
  IE: IWebBrowser2;
  Document: IHtmlDocument2;
  ScrollTop, ScrollLeft: Integer;
begin
  Wnd := FindWindow('IEFrame', nil); // top level IE
  if Wnd = 0 then Exit;
  WndChild := FindWindowEX(Wnd, 0, 'Shell DocObject View', nil);
  if WndChild = 0 then Exit;
  WndChild := FindWindowEX(WndChild, 0, 'Internet Explorer_Server', nil);
  if WndChild = 0 then Exit;

  GetIEFromHWnd(WndChild, IE);
  if IE <> nil then
  begin
    ShowMessage(IE.LocationURL);
    Document := IE.Document as IHtmlDocument2;
    ScrollTop := ((Document as IHTMLDocument3).documentElement as IHTMLElement2).scrollTop;
    ScrollLeft := ((Document as IHTMLDocument3).documentElement as IHTMLElement2).scrollLeft;
    ShowMessage(Format('%d;%d', [ScrollTop, ScrollLeft]));

    // visible|hidden|scroll|auto|no-display|no-content
    ShowMessage(OleVariant(Document).documentElement.currentStyle.overflowX);
    ShowMessage(OleVariant(Document).documentElement.currentStyle.overflowY);
  end;
end;

---

编辑:当页面使用<!DOCTYPE>时将 IE6 切换为严格的指令 符合标准的模式使用document.documentElement . ( IHTMLDocument3 ) 在准标准模式下，主体代表 可滚动区域，因此您可以使用以下方式检索滚动位置 document.body.scrollTop .在标准模式下，HTML 元素是可滚动的， 所以你应该使用 document.documentElement.scrollTop .

如果document.documentElement.clientWidth <> 0使用 documentElement其他属性元素使用 body元素。
与滚动信息相关的有用属性也是 clientHeight , scrollWidth , scrollHeight .