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

天云上人

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

" C& Q& K. K4 E* m9 v5 w7 o  <1> 如果你在程序中使用MFC的 CHtmlView 视来浏览网页。
       取得文档的方法最简单，调用 CHtmlView::GetHtmlDocument() 函数。
$ E8 z, X$ ?7 x/ m: x0 X1 o8 M' z  <2> 如果你的程序中使用了“Web 浏览器” 的ActiveX 控件。
       取得文档的方法也比较简单，调用 CWebBrowser2::GetDocument() 函数。
  <3> 如果你的程序是用 ATL 写的 ActiveX 控件。
       那么需要调用 IOleClientSite::GetContainer 得到 IOleContainer 接口，然后就可以通过 QueryInterface() 查询得到 IHTMLDocument2 的接口。主要代码如下：
4 Q' ^  Q' R# b: G- w
4 o" }5 u) J8 j% P8 u- MCComPtr < IOleContainer > spContainer;
m_spClientSite->GetContainer( &spContainer );
CComQIPtr < IHTMLDocument2 > spDoc = spContainer;
if ( spDoc )
+ o" O! }% J4 x9 T{
4 w2 U" y/ ~3 L8 `8 z, E# O. Q- ^! r     // 已经得到了 IHTMLDocument2 的接口指针
}

  <4> 如果你的程序是用 MFC 写的 ActiveX 控件。
4 O+ F$ s7 H  u; s# _1 [        那么需要调用 COleControl::GetClientSite() 得到 IOleContainer 接口，然后的操作和<3>是一致的了。
+ W$ @% H% d$ c( E! w- U& N& T  <5> IE 浏览器作为独立的进程正在运行。
       每个运行的浏览器（IE 和 资源浏览器）都会在 ShellWindows 中进行登记，因此我们要通过 IShellWindows 取得实例（示例程序中使用的就是这个方法）。主要代码如下：

) T7 j0 W$ D! {) [#include < atlbase.h >
#include < mshtml.h >
) ]) V2 c0 M% P# K' E7 x% t
+ G% T- s+ \2 Z# i/ ]void FindFromShell()
2 F3 w' w" t4 _# G: y2 h{
" n, _0 x; e9 E) }/ A: U6 J+ w0 a   CComPtr< IShellWindows > spShellWin;
, D0 N7 V! P/ o  M1 Z1 ~   HRESULT hr = spShellWin.CoCreateInstance( CLSID_ShellWindows );
* D8 c, u% r- _( Y   if ( FAILED( hr ) )    return;
$ j5 }4 Y9 d6 N  C- e) l$ v) |
" K- k" P* g( F$ ^% W   long nCount=0;
0 B, ^" y" m7 A8 b   spShellWin->get_Count(&nCount);   // 取得浏览器实例个数

  for(long i=0; i<nCount; i++)
$ h/ Y5 ~8 t: s0 \0 z* T0 `" }3 t       {
6 h9 q0 o+ j% o1 |# y- r; a                CComPtr< IDispatch > spDisp;
     hr=spShellWin->Item(CComVariant( i ), &spDisp );
5 w- u; T$ D4 f' x      if ( FAILED( hr ) )   continue;
$ z1 b; q8 z/ i8 m9 N( R
     CComQIPtr< IWebBrowser2 > spBrowser = spDisp;
' I3 J$ f. k* o# l& S  c( [      if ( !spBrowser )     continue;
2 `0 v! f6 z0 U4 ?: w2 z! _
     spDisp.Release();
     hr = spBrowser->get_Document( &spDisp );
     if ( FAILED ( hr ) )  continue;

% f. X" u* l7 V0 ]0 s) e      CComQIPtr< IHTMLDocument2 > spDoc = spDisp;
     if ( !spDoc )         continue;

  |& B6 h7 B7 J  U      // 程序运行到此，已经找到了 IHTMLDocument2 的接口指针
  }
; M/ y! c% Z- i$ r}
9 |) e2 s% {3 y8 a
( }( g( d6 W) T% \9 |7 G  <6> IE 浏览器控件被一个进程包装在一个子窗口中。那么你首先要得到那个进程的顶层窗口句柄（使用 FindWindow() 函数，或其它任何可行的方法），然后枚举所有子窗口，通过判断窗口类名是否是“Internet Explorer_Server”，从而得到浏览器的窗口句柄，再向窗口发消息取得文档的接口指针。主要代码如下：


#include < atlbase.h >
#include < mshtml.h >
6 t0 Q8 B- q$ f1 s#include < oleacc.h >
) }0 ^1 o# t; a" T) a: g#pragma comment ( lib, "oleacc" )
5 ]( S3 h! A9 d$ N" y/ X' r4 f
; \# H0 V  v8 [0 @% mBOOL CALLBACK EnumChildProc(HWND hwnd,LPARAM lParam)
{
  TCHAR szClassName[100];
6 D/ x2 j2 l' u6 e. r2 f  K
! }5 c+ N. X4 X   ::GetClassName( hwnd,  &szClassName,  sizeof(szClassName) );
  if ( _tcscmp( szClassName,  _T("Internet Explorer_Server") ) == 0 )
7 n( `+ ~# P+ q& A( g; J- t   {
# j+ k4 S+ l5 ?; I      *(HWND*)lParam = hwnd;
     return FALSE;      // 找到第一个 IE 控件的子窗口就停止
  }
  else   return TRUE;      // 继续枚举子窗口
1 v' U5 q  a+ K" Q3 a' B% W& D. n: N};
5 p/ E5 k/ h' h  ^( d5 a  t% M
7 e0 p9 j2 V  Zvoid FindFromHwnd(HWND hWnd)
{
  HWND hWndChild=NULL;
  ::EnumChildWindows( hWnd, EnumChildProc, (LPARAM)&hWndChild );
  if(NULL == hWndChild)   return;

: n5 J  c! v) ]1 z( _   UINT nMsg = ::RegisterWindowMessage( _T("WM_HTML_GETOBJECT") );
  LRESULT lRes;
8 G3 ~- L$ p$ h- m   ::SendMessageTimeout( hWndChild, nMsg, 0L, 0L, SMTO_ABORTIFHUNG, 1000, (DWORD*) &lRes );

  CComPtr < IHTMLDocument2 > spDoc;
# [* l4 e- Z% _( d# l$ {   HRESULT hr = ::ObjectFromLresult ( lRes, IID_IHTMLDocument2, 0 , (LPVOID *) &spDoc );
  if ( FAILED ( hr ) )   return;
% x# E& @, z# T& L. h( X- T
5 F: S, G$ ^  L& S6 s- o1 D   // 程序运行到此，已经找到了 IHTMLDocument2 的接口指针
3 `" |: M  s5 l; H}