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

天云上人

  根据IE浏览器的运行方式，有多种不同的方式可以获取文档指针。
1 H, S" O2 F! T' o
  <1> 如果你在程序中使用MFC的 CHtmlView 视来浏览网页。
       取得文档的方法最简单，调用 CHtmlView::GetHtmlDocument() 函数。
  <2> 如果你的程序中使用了“Web 浏览器” 的ActiveX 控件。
. J/ ^, n) p( s, b9 Y( z        取得文档的方法也比较简单，调用 CWebBrowser2::GetDocument() 函数。
  <3> 如果你的程序是用 ATL 写的 ActiveX 控件。
       那么需要调用 IOleClientSite::GetContainer 得到 IOleContainer 接口，然后就可以通过 QueryInterface() 查询得到 IHTMLDocument2 的接口。主要代码如下：

: F  b- \* ^4 M9 Z; LCComPtr < IOleContainer > spContainer;
* L  }3 r$ I# s! b( A, w, Tm_spClientSite->GetContainer( &spContainer );
; n+ w/ |' k3 N6 gCComQIPtr < IHTMLDocument2 > spDoc = spContainer;
if ( spDoc )
{
    // 已经得到了 IHTMLDocument2 的接口指针
- N, ~5 c$ }- ~8 K) Q}
* A: a( x, v1 E9 W
7 I5 ^1 Z1 B: a, }  <4> 如果你的程序是用 MFC 写的 ActiveX 控件。
       那么需要调用 COleControl::GetClientSite() 得到 IOleContainer 接口，然后的操作和<3>是一致的了。
  <5> IE 浏览器作为独立的进程正在运行。
. @4 Z, B( J% C) Y  v# ]7 {$ [: d        每个运行的浏览器（IE 和 资源浏览器）都会在 ShellWindows 中进行登记，因此我们要通过 IShellWindows 取得实例（示例程序中使用的就是这个方法）。主要代码如下：

#include < atlbase.h >
) P& M, T  u+ u# e; O" z4 J( `#include < mshtml.h >
8 M$ `3 i% k5 \
0 {+ @$ M( a5 m7 P& M1 f8 d% v& \void FindFromShell()
( c. v* r$ W" j# a{
; r! _- H+ y/ Y1 ?' R   CComPtr< IShellWindows > spShellWin;
  HRESULT hr = spShellWin.CoCreateInstance( CLSID_ShellWindows );
  if ( FAILED( hr ) )    return;
, n( D+ z0 F# m/ R8 G
  long nCount=0;
1 e/ p4 o! j2 I& E; ^   spShellWin->get_Count(&nCount);   // 取得浏览器实例个数

6 [2 p! e# G. P2 g8 Y* S   for(long i=0; i<nCount; i++)
      {
               CComPtr< IDispatch > spDisp;
! k8 i( g  J2 ~; D      hr=spShellWin->Item(CComVariant( i ), &spDisp );
     if ( FAILED( hr ) )   continue;
: ?4 `! C6 ^% ~9 U  B
     CComQIPtr< IWebBrowser2 > spBrowser = spDisp;
$ I9 D# q: s3 K+ x      if ( !spBrowser )     continue;

; X2 X2 s* q, O7 [1 w$ |) G      spDisp.Release();
     hr = spBrowser->get_Document( &spDisp );
     if ( FAILED ( hr ) )  continue;

6 R  `" K' Q. m: h/ M1 P! V- f7 ~! r2 ^      CComQIPtr< IHTMLDocument2 > spDoc = spDisp;
7 u) r5 r" \- c: a      if ( !spDoc )         continue;
( R. M4 f8 Q, b$ V5 e' M
# p7 R7 R+ `9 H0 F, N8 G      // 程序运行到此，已经找到了 IHTMLDocument2 的接口指针
/ ~/ O8 \2 P* b  W% k: a   }
}

  <6> IE 浏览器控件被一个进程包装在一个子窗口中。那么你首先要得到那个进程的顶层窗口句柄（使用 FindWindow() 函数，或其它任何可行的方法），然后枚举所有子窗口，通过判断窗口类名是否是“Internet Explorer_Server”，从而得到浏览器的窗口句柄，再向窗口发消息取得文档的接口指针。主要代码如下：


1 m; W- Q1 @+ V9 F+ Z, _; u#include < atlbase.h >
" h2 p: }" k, X7 u$ X#include < mshtml.h >
" {: F- U7 r. N# v' p- D#include < oleacc.h >
. k% Z9 h2 j! r. Q: d* U, @#pragma comment ( lib, "oleacc" )

7 i" d* `4 s+ k  }# [  v$ C- wBOOL CALLBACK EnumChildProc(HWND hwnd,LPARAM lParam)
{
  TCHAR szClassName[100];

3 t- M7 x5 a' N% t+ H   ::GetClassName( hwnd,  &szClassName,  sizeof(szClassName) );
  if ( _tcscmp( szClassName,  _T("Internet Explorer_Server") ) == 0 )
  {
/ g5 e( O( d+ g& Q4 K      *(HWND*)lParam = hwnd;
     return FALSE;      // 找到第一个 IE 控件的子窗口就停止
  }
  else   return TRUE;      // 继续枚举子窗口
5 V" z+ \! ?/ f+ }};

6 ]% R- R4 W/ yvoid FindFromHwnd(HWND hWnd)
{
  HWND hWndChild=NULL;
1 ^9 B2 _% J4 D/ i4 Z9 v   ::EnumChildWindows( hWnd, EnumChildProc, (LPARAM)&hWndChild );
* v/ S1 e4 k* [7 S( t. \$ T$ z   if(NULL == hWndChild)   return;
! C; I/ O: _5 l: ?
  UINT nMsg = ::RegisterWindowMessage( _T("WM_HTML_GETOBJECT") );
) `8 ~. w9 _# ]3 ^   LRESULT lRes;
8 a7 }9 H8 [7 R% K, {; v   ::SendMessageTimeout( hWndChild, nMsg, 0L, 0L, SMTO_ABORTIFHUNG, 1000, (DWORD*) &lRes );

5 }+ K) f; z7 X9 t   CComPtr < IHTMLDocument2 > spDoc;
4 H7 ]! F4 V/ c+ E6 A/ j   HRESULT hr = ::ObjectFromLresult ( lRes, IID_IHTMLDocument2, 0 , (LPVOID *) &spDoc );
  if ( FAILED ( hr ) )   return;

! T, e, Z6 l: r/ @0 A   // 程序运行到此，已经找到了 IHTMLDocument2 的接口指针
) ?4 N1 o# L2 f}