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

天云上人

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

  <1> 如果你在程序中使用MFC的 CHtmlView 视来浏览网页。
       取得文档的方法最简单，调用 CHtmlView::GetHtmlDocument() 函数。
% A$ ]+ b9 G4 H0 z  <2> 如果你的程序中使用了“Web 浏览器” 的ActiveX 控件。
       取得文档的方法也比较简单，调用 CWebBrowser2::GetDocument() 函数。
' l5 a  w- C$ d  c: b' B  <3> 如果你的程序是用 ATL 写的 ActiveX 控件。
       那么需要调用 IOleClientSite::GetContainer 得到 IOleContainer 接口，然后就可以通过 QueryInterface() 查询得到 IHTMLDocument2 的接口。主要代码如下：
$ t4 E0 e5 K( H* C) h; ~3 R
+ z# x) g' I0 e2 y+ E! uCComPtr < IOleContainer > spContainer;
- @8 C, K2 z5 e# d* N; Qm_spClientSite->GetContainer( &spContainer );
0 ~, o6 g2 Y; O- @0 u9 H! G3 U) qCComQIPtr < IHTMLDocument2 > spDoc = spContainer;
- q' z% S) u- D* eif ( spDoc )
7 X- v2 e9 I- l: g4 Z{
3 I. z6 H$ b# p/ k  E     // 已经得到了 IHTMLDocument2 的接口指针
}

  <4> 如果你的程序是用 MFC 写的 ActiveX 控件。
# r6 w! h6 J% K        那么需要调用 COleControl::GetClientSite() 得到 IOleContainer 接口，然后的操作和<3>是一致的了。
& }9 o/ w1 q  a/ T  <5> IE 浏览器作为独立的进程正在运行。
& ~  {7 }# s' {# i. a        每个运行的浏览器（IE 和 资源浏览器）都会在 ShellWindows 中进行登记，因此我们要通过 IShellWindows 取得实例（示例程序中使用的就是这个方法）。主要代码如下：
2 Y) i- Z( x9 o# Q
#include < atlbase.h >
#include < mshtml.h >

void FindFromShell()
! v7 P/ z* k# ?  E- A{
" h- C6 u8 H3 M  M6 d$ g8 Q. y8 J- N   CComPtr< IShellWindows > spShellWin;
( n9 I  @" v7 i! B* z. X   HRESULT hr = spShellWin.CoCreateInstance( CLSID_ShellWindows );
  if ( FAILED( hr ) )    return;

  long nCount=0;
2 l4 E4 Q0 k  B+ ~' `  h, K4 z   spShellWin->get_Count(&nCount);   // 取得浏览器实例个数

  for(long i=0; i<nCount; i++)
      {
! ]* @; Q; q( o6 t                CComPtr< IDispatch > spDisp;
     hr=spShellWin->Item(CComVariant( i ), &spDisp );
     if ( FAILED( hr ) )   continue;
" N0 b$ D- r9 ^6 t) b: ]. O
     CComQIPtr< IWebBrowser2 > spBrowser = spDisp;
& ]# L$ ?; M, f) j2 E6 \/ P- I      if ( !spBrowser )     continue;
5 S7 X: T. h$ b
5 `6 k+ D( n' H8 A# Y      spDisp.Release();
     hr = spBrowser->get_Document( &spDisp );
0 I* Y3 ^: C! {      if ( FAILED ( hr ) )  continue;
' }" b% d0 X, r/ F( t: U2 E
& T7 r5 e" q  G8 n% ]2 f: M4 z      CComQIPtr< IHTMLDocument2 > spDoc = spDisp;
     if ( !spDoc )         continue;
& c% R5 Q# m8 I- ~
     // 程序运行到此，已经找到了 IHTMLDocument2 的接口指针
  }
}

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


#include < atlbase.h >
#include < mshtml.h >
1 h6 y# x4 p+ n) W& ^' k+ f1 m  b#include < oleacc.h >
, ~7 a4 d& c0 Y: o. a, R; I/ C3 k. l#pragma comment ( lib, "oleacc" )

- H# L2 J: b* ]2 y! A& f( `. m8 z* FBOOL CALLBACK EnumChildProc(HWND hwnd,LPARAM lParam)
: |1 E' _0 i3 ?- a* c2 c0 ?4 a9 L. h{
  i; [$ P7 k; }. w( }   TCHAR szClassName[100];

  ::GetClassName( hwnd,  &szClassName,  sizeof(szClassName) );
  if ( _tcscmp( szClassName,  _T("Internet Explorer_Server") ) == 0 )
: z0 n4 S% h" E  l2 F   {
     *(HWND*)lParam = hwnd;
* ~0 w, k: d% T% W      return FALSE;      // 找到第一个 IE 控件的子窗口就停止
  }
( y; _  r% N4 o- Z& d& U; u7 }" F3 G( Z   else   return TRUE;      // 继续枚举子窗口
5 B) [- ~7 R% g/ t- I, ^};

/ Q% H, ^' [. f; J0 v3 B2 Y! hvoid FindFromHwnd(HWND hWnd)
{
  HWND hWndChild=NULL;
) y9 o3 r7 ?" c. o0 ~+ q   ::EnumChildWindows( hWnd, EnumChildProc, (LPARAM)&hWndChild );
  if(NULL == hWndChild)   return;

  UINT nMsg = ::RegisterWindowMessage( _T("WM_HTML_GETOBJECT") );
  LRESULT lRes;
  ::SendMessageTimeout( hWndChild, nMsg, 0L, 0L, SMTO_ABORTIFHUNG, 1000, (DWORD*) &lRes );

! X% z$ K& R1 F+ R   CComPtr < IHTMLDocument2 > spDoc;
  HRESULT hr = ::ObjectFromLresult ( lRes, IID_IHTMLDocument2, 0 , (LPVOID *) &spDoc );
$ k% e2 [6 b# F1 x# {, p; A- \2 i$ q   if ( FAILED ( hr ) )   return;
- G1 c, c4 a/ }5 v  m+ s1 Q
  // 程序运行到此，已经找到了 IHTMLDocument2 的接口指针
}