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

天云上人

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

  <1> 如果你在程序中使用MFC的 CHtmlView 视来浏览网页。
       取得文档的方法最简单，调用 CHtmlView::GetHtmlDocument() 函数。
  <2> 如果你的程序中使用了“Web 浏览器” 的ActiveX 控件。
0 z% [& i; E7 ~+ u! g        取得文档的方法也比较简单，调用 CWebBrowser2::GetDocument() 函数。
  <3> 如果你的程序是用 ATL 写的 ActiveX 控件。
       那么需要调用 IOleClientSite::GetContainer 得到 IOleContainer 接口，然后就可以通过 QueryInterface() 查询得到 IHTMLDocument2 的接口。主要代码如下：
: o! i4 G- o$ f
5 y* d/ e/ W, L. OCComPtr < IOleContainer > spContainer;
9 x6 m. ]5 p9 ^( A2 R0 Rm_spClientSite->GetContainer( &spContainer );
CComQIPtr < IHTMLDocument2 > spDoc = spContainer;
if ( spDoc )
{
    // 已经得到了 IHTMLDocument2 的接口指针
}
  {/ I) j" C0 B# e# ^& J
: k" |6 K* L' r7 c. s  <4> 如果你的程序是用 MFC 写的 ActiveX 控件。
/ _: g& \4 U' v6 Z% f' E! X        那么需要调用 COleControl::GetClientSite() 得到 IOleContainer 接口，然后的操作和<3>是一致的了。
/ X8 r% K  H; a& B0 B" o" ^  <5> IE 浏览器作为独立的进程正在运行。
9 W8 }( x+ ~6 \  j! I* s: i        每个运行的浏览器（IE 和 资源浏览器）都会在 ShellWindows 中进行登记，因此我们要通过 IShellWindows 取得实例（示例程序中使用的就是这个方法）。主要代码如下：
- m0 J( T! B0 v% o4 s; g
* E9 \4 V- V# J, p3 G" N/ Q#include < atlbase.h >
0 H$ T3 C# d4 q" m* J% W#include < mshtml.h >
" E1 \! l9 X2 k# R
& [4 Q8 ~( u- z4 t7 `' d; ]% E6 Mvoid FindFromShell()
{
6 W( c: ]2 |7 a0 x) b8 ?# F   CComPtr< IShellWindows > spShellWin;
. k) r. j% l7 \0 c6 h   HRESULT hr = spShellWin.CoCreateInstance( CLSID_ShellWindows );
" U  `, p2 u) P9 s$ Y# |$ C; T3 u   if ( FAILED( hr ) )    return;
+ I: h9 h4 l0 {- o  P' Z
  long nCount=0;
  spShellWin->get_Count(&nCount);   // 取得浏览器实例个数
, \  ~% i1 L" M8 z6 M6 x  P
, Q8 p7 q" W* b" D' d" B4 y   for(long i=0; i<nCount; i++)
      {
9 |! m: [* F$ \# A. D                CComPtr< IDispatch > spDisp;
     hr=spShellWin->Item(CComVariant( i ), &spDisp );
) m5 W6 Z' d8 v: B% t. z      if ( FAILED( hr ) )   continue;

( F/ K5 z+ H8 @+ B1 O; ?  y$ X% F3 |      CComQIPtr< IWebBrowser2 > spBrowser = spDisp;
     if ( !spBrowser )     continue;

  A8 b% G3 z3 M3 b" Y- D      spDisp.Release();
     hr = spBrowser->get_Document( &spDisp );
     if ( FAILED ( hr ) )  continue;
' I% e/ T. P+ ^( V( E8 e# l2 u
     CComQIPtr< IHTMLDocument2 > spDoc = spDisp;
     if ( !spDoc )         continue;

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

  <6> IE 浏览器控件被一个进程包装在一个子窗口中。那么你首先要得到那个进程的顶层窗口句柄（使用 FindWindow() 函数，或其它任何可行的方法），然后枚举所有子窗口，通过判断窗口类名是否是“Internet Explorer_Server”，从而得到浏览器的窗口句柄，再向窗口发消息取得文档的接口指针。主要代码如下：
' D  T" k$ S. a
7 K0 X3 E+ J8 @+ {% x1 Q
#include < atlbase.h >
0 H" S& X$ d2 A: F6 Q+ E#include < mshtml.h >
3 h% E( t  h$ t5 T: @# a+ K#include < oleacc.h >
9 l; O3 ~( r4 A( W- o& C#pragma comment ( lib, "oleacc" )

4 O3 B/ {  T- bBOOL CALLBACK EnumChildProc(HWND hwnd,LPARAM lParam)
- b; P! h9 W+ m! }{
$ J9 e, Z6 \2 {( p# r* q( i   TCHAR szClassName[100];

  ::GetClassName( hwnd,  &szClassName,  sizeof(szClassName) );
# _9 ^+ {* ?- E, U; Z9 D& r   if ( _tcscmp( szClassName,  _T("Internet Explorer_Server") ) == 0 )
9 _! N& K- C# T. ~   {
) c8 S6 P; S3 ?" P* ?8 F3 @      *(HWND*)lParam = hwnd;
     return FALSE;      // 找到第一个 IE 控件的子窗口就停止
& x# N* d, O% W   }
7 c* {5 \3 q7 j" S   else   return TRUE;      // 继续枚举子窗口
2 H8 r7 t* F  W& @" c};
# a2 H7 \, s3 l6 v- d- T
) n  o4 e2 O6 p  Nvoid FindFromHwnd(HWND hWnd)
5 c: v2 U# ]. u8 \{
  HWND hWndChild=NULL;
  ::EnumChildWindows( hWnd, EnumChildProc, (LPARAM)&hWndChild );
0 ~" B9 ^3 o$ F   if(NULL == hWndChild)   return;

  UINT nMsg = ::RegisterWindowMessage( _T("WM_HTML_GETOBJECT") );
$ h- q) u6 N9 \  }: O. m% c   LRESULT lRes;
0 z- k1 N! G7 G+ l" A9 w   ::SendMessageTimeout( hWndChild, nMsg, 0L, 0L, SMTO_ABORTIFHUNG, 1000, (DWORD*) &lRes );
2 D* j) B/ Q$ ~# U- |* E: P/ g
  CComPtr < IHTMLDocument2 > spDoc;
7 y" t1 \: f5 r$ H, l5 V/ v   HRESULT hr = ::ObjectFromLresult ( lRes, IID_IHTMLDocument2, 0 , (LPVOID *) &spDoc );
  if ( FAILED ( hr ) )   return;
* o" v& U& V$ m* X2 C9 z
6 ^8 E* T- P0 X7 D: V! F   // 程序运行到此，已经找到了 IHTMLDocument2 的接口指针
+ n. v2 x2 {( ?. _+ }1 ~}