[收藏]千方百计得到IHTMLDocument2的接口指针

天云上人

  根据IE浏览器的运行方式，有多种不同的方式可以获取文档指针。

  <1> 如果你在程序中使用MFC的 CHtmlView 视来浏览网页。
       取得文档的方法最简单，调用 CHtmlView::GetHtmlDocument() 函数。
  <2> 如果你的程序中使用了“Web 浏览器” 的ActiveX 控件。
6 C) u5 D5 P: `: d        取得文档的方法也比较简单，调用 CWebBrowser2::GetDocument() 函数。
7 _- z& U: S$ W- c* [) y  <3> 如果你的程序是用 ATL 写的 ActiveX 控件。
- |) i6 L2 `8 }4 Y# [        那么需要调用 IOleClientSite::GetContainer 得到 IOleContainer 接口，然后就可以通过 QueryInterface() 查询得到 IHTMLDocument2 的接口。主要代码如下：

6 J+ r5 H8 H' a  _9 gCComPtr < IOleContainer > spContainer;
# ~* i) M% C+ f+ }- x  I! k9 C) T$ Wm_spClientSite->GetContainer( &spContainer );
CComQIPtr < IHTMLDocument2 > spDoc = spContainer;
- W& K5 J1 i8 u; Q3 Fif ( spDoc )
{
    // 已经得到了 IHTMLDocument2 的接口指针
}

  <4> 如果你的程序是用 MFC 写的 ActiveX 控件。
7 u; Y! @; \4 S' |! z% e        那么需要调用 COleControl::GetClientSite() 得到 IOleContainer 接口，然后的操作和<3>是一致的了。
& d1 O: c( |: c9 Z5 ?2 Y* ~) C  <5> IE 浏览器作为独立的进程正在运行。
       每个运行的浏览器（IE 和 资源浏览器）都会在 ShellWindows 中进行登记，因此我们要通过 IShellWindows 取得实例（示例程序中使用的就是这个方法）。主要代码如下：

# e# q9 Q" Z; h  k#include < atlbase.h >
#include < mshtml.h >
% _0 x4 o" V8 y" ~) J
/ z9 ~/ t5 x' |( i" X: R) bvoid FindFromShell()
{
; c& N  u4 ^$ S5 I* q9 z   CComPtr< IShellWindows > spShellWin;
$ j0 U: N/ ~4 f! ]8 j" {1 l   HRESULT hr = spShellWin.CoCreateInstance( CLSID_ShellWindows );
6 j0 U4 a) k* j& ]: X8 a1 c8 m   if ( FAILED( hr ) )    return;
2 W  a7 B. T+ Y: B
  long nCount=0;
$ N7 y7 k& W" b( J   spShellWin->get_Count(&nCount);   // 取得浏览器实例个数
% M; I' m% G( ^; e
  for(long i=0; i<nCount; i++)
      {
               CComPtr< IDispatch > spDisp;
     hr=spShellWin->Item(CComVariant( i ), &spDisp );
& ^8 {+ ?6 [! U% Z      if ( FAILED( hr ) )   continue;

     CComQIPtr< IWebBrowser2 > spBrowser = spDisp;
2 ?) k2 E; P4 N4 T: ^      if ( !spBrowser )     continue;

     spDisp.Release();
$ w/ W% s& u, }( ~! v      hr = spBrowser->get_Document( &spDisp );
2 ^3 \/ i" p: t7 ~      if ( FAILED ( hr ) )  continue;
( W& e9 o# s* @9 ]5 I' Y/ n
     CComQIPtr< IHTMLDocument2 > spDoc = spDisp;
/ T2 p0 J; S# Z9 F      if ( !spDoc )         continue;
( ?4 n2 ?. {) ^
     // 程序运行到此，已经找到了 IHTMLDocument2 的接口指针
  }
}
4 d& z. Y; C1 }' a
  <6> IE 浏览器控件被一个进程包装在一个子窗口中。那么你首先要得到那个进程的顶层窗口句柄（使用 FindWindow() 函数，或其它任何可行的方法），然后枚举所有子窗口，通过判断窗口类名是否是“Internet Explorer_Server”，从而得到浏览器的窗口句柄，再向窗口发消息取得文档的接口指针。主要代码如下：


#include < atlbase.h >
#include < mshtml.h >
9 `  G) M$ C& ?+ k% [( T#include < oleacc.h >
#pragma comment ( lib, "oleacc" )

2 C* H* F$ f+ Q  n/ |( _BOOL CALLBACK EnumChildProc(HWND hwnd,LPARAM lParam)
8 O& R# e+ s, q3 X- Y2 Z{
, D8 W1 Y+ P/ h  Y7 Y8 z# C) d. v   TCHAR szClassName[100];

  ::GetClassName( hwnd,  &szClassName,  sizeof(szClassName) );
  if ( _tcscmp( szClassName,  _T("Internet Explorer_Server") ) == 0 )
  {
     *(HWND*)lParam = hwnd;
     return FALSE;      // 找到第一个 IE 控件的子窗口就停止
  }
  H) J) s( g, X) a5 P$ u   else   return TRUE;      // 继续枚举子窗口
9 I$ [) I, L. k5 k$ K; R" s! `};

8 ?& ?4 X0 E4 q( ]: x/ N) cvoid FindFromHwnd(HWND hWnd)
& t  N0 |+ n7 c% V8 t' T$ H{
+ O$ q- u3 T6 F4 B! t   HWND hWndChild=NULL;
  ::EnumChildWindows( hWnd, EnumChildProc, (LPARAM)&hWndChild );
$ C% i2 t6 b! V# ^# U7 ~   if(NULL == hWndChild)   return;

  }' Z. M' H  V% E8 Y5 g   UINT nMsg = ::RegisterWindowMessage( _T("WM_HTML_GETOBJECT") );
% z0 w% P- @2 l' P) R" L8 m7 q1 Q' c   LRESULT lRes;
  ::SendMessageTimeout( hWndChild, nMsg, 0L, 0L, SMTO_ABORTIFHUNG, 1000, (DWORD*) &lRes );

+ r4 U; v% n2 h: q; u/ v$ ~" G. R! G   CComPtr < IHTMLDocument2 > spDoc;
( a1 h; j7 h# f3 C   HRESULT hr = ::ObjectFromLresult ( lRes, IID_IHTMLDocument2, 0 , (LPVOID *) &spDoc );
  if ( FAILED ( hr ) )   return;

  // 程序运行到此，已经找到了 IHTMLDocument2 的接口指针
}