通過視窗控制代碼,擷取IE控制項裡的內容(擷取IHTMLDocument2和HTML)

1. char str[128];
2. GetClassName(hwnd,str,sizeof(str));//擷取類名
4. if(strcmp(str,"Internet Explorer_Server")==0)
5. {
6.     CoInitialize( NULL );
7.     HINSTANCE hInst = ::LoadLibrary( _T("OLEACC.DLL") );
8.     CComPtr<IHTMLDocument2> spDoc;
9.     LRESULT lRes;
10.      
11.     UINT nMsg = RegisterWindowMessage( _T("WM_HTML_GETOBJECT") );
12.     SendMessageTimeout( hwnd, nMsg, 0L, 0L, SMTO_ABORTIFHUNG, 1000, (DWORD*)&lRes );
13.         
15.     LPFNOBJECTFROMLRESULT pfObjectFromLresult = (LPFNOBJECTFROMLRESULT)::GetProcAddress( hInst, _T("ObjectFromLresult") );//匯出ObjectFromLresult函數
16.     if ( pfObjectFromLresult != NULL )
17.     {
18.         HRESULT hr;
19.         hr = (*pfObjectFromLresult)( lRes, IID_IHTMLDocument, 0, (void**)&spDoc );//擷取IHTMLDocument2
20.         if ( SUCCEEDED(hr) )
21.         {
22.             HGLOBAL hMemory;
23.             hMemory = GlobalAlloc(GMEM_MOVEABLE, 0);//分配一個全域記憶體塊
24.             
25.             if (spDoc != NULL)
26.             {
27.                 CComPtr<IStream> spStream;
28.                 CComQIPtr<IPersistStreamInit> spPersistStream = spDoc;
29.                 if (SUCCEEDED(CreateStreamOnHGlobal(hMemory, TRUE, &spStream)))
30.                 {
31.                     spPersistStream->Save(spStream, FALSE);
33.                     LPCTSTR pstr = (LPCTSTR) GlobalLock(hMemory);
34.                     if (pstr != NULL)
35.                     {
36.                         
38.                            
39.                    
40.                         CString refString (pstr);
41.                             
42.                         AfxMessageBox(refString);
43.       
45.                     }
46.                     GlobalUnlock(hMemory);
48.                 }
49.             }
50.         }
51.     }
52.     ::FreeLibrary( hInst );
53.     CoUninitialize();
54. }

 #include <mshtml.h>
#include <afxhtml.h>
#include <atlbase.h>
#include <oleacc.h>
#include <MsHtmcid.h>

標頭檔