根据Internet Explorer_Server窗口得到IHtmlDocument2

1. #include <mshtml.h>
2. #include <atlbase.h>
3. #include <oleacc.h>
5. BOOL CALLBACK EnumChildProc(HWND hwnd,LPARAM lParam)
6. {
7.  TCHAR buf[100];
9.  ::GetClassName( hwnd, (LPTSTR)&buf, 100 );
10.  if ( _tcscmp( buf, _T("Internet Explorer_Server") ) == 0 ) 
12. {
13.   *(HWND*)lParam = hwnd;
14.   return FALSE;
15.  }
16.  else
17.   return TRUE;
18. };
20. //You can store the interface pointer in a member variable 
21. //for easier access
22. void CDlg::OnGetDocInterface(HWND hWnd) 
23. {
24.  CoInitialize( NULL );
26.  // Explicitly load MSAA so we know if it's installed
27.  HINSTANCE hInst = ::LoadLibrary( _T("OLEACC.DLL") );
28.  if ( hInst != NULL )
29.  {
30.   if ( hWnd != NULL )
31.   {
32.    HWND hWndChild=NULL;
33.    // Get 1st document window
34.    ::EnumChildWindows( hWnd, EnumChildProc, (LPARAM)&hWndChild );
35.    if ( hWndChild )
36.    {
37.     CComPtr<IHTMLDocument2> spDoc;
38.     LRESULT lRes;
39.    
40.     UINT nMsg = ::RegisterWindowMessage( _T("WM_HTML_GETOBJECT") );
41.     ::SendMessageTimeout( hWndChild, nMsg, 0L, 0L, SMTO_ABORTIFHUNG, 1000, (DWORD*)&lRes );
43.     LPFNOBJECTFROMLRESULT pfObjectFromLresult = (LPFNOBJECTFROMLRESULT)::GetProcAddress( hInst, _T("ObjectFromLresult") );
44.     if ( pfObjectFromLresult != NULL )
45.     {
46.      HRESULT hr;
47.      hr = (*pfObjectFromLresult)( lRes, IID_IHTMLDocument, 0, (void**)&spDoc );
48.      if ( SUCCEEDED(hr) )
49.      {
50.       CComPtr<IDispatch> spDisp;
51.       CComQIPtr<IHTMLWindow2> spWin;
52.       spDoc->get_Script( &spDisp );
53.       spWin = spDisp;
54.       spWin->get_document( &spDoc.p );
55.       // Change background color to red
56.       spDoc->put_bgColor( CComVariant("red") );
57.      }
58.     }
59.    } // else document not ready
60.   } // else Internet Explorer is not running
61.   ::FreeLibrary( hInst );
62.  } // else Active Accessibility is not installed
63.  CoUninitialize();
64. }