如何控制IE浏览器的行为，以及获取结果

前段时间写了一个控制IE浏览器进行浏览的代码，现总结：

 

相关的东西，网上已经有很多资料了，本人认为写得比较好、全的有：

关于几个HTML文档接口的使用探讨 —— vckbase

DOM应用---遍历网页中的元素  —— vckbase

[Delphi]怎样访问Internet Explorer中的WebBrowser

 

主要有两种方式

 

1、使用 IShellWindows 获取当前浏览器个数（webbrowser个数），然后枚举获取webbrowser实例

void FindFromShell() { CComPtr< IShellWindows > spShellWin; HRESULT hr = spShellWin.CoCreateInstance( CLSID_ShellWindows ); if ( FAILED( hr ) ) return; long nCount=0; spShellWin->get_Count(&nCount); // 取得浏览器实例个数 for(long i=0; i<nCount; i++) { CComPtr< IDispatch ><nCount; i++) { CComPtr< IDispatch ><nCount; i++) { CComPtr< IDispatch > spDisp; hr=spShellWin->Item(CComVariant( i ), &spDisp ); if ( FAILED( hr ) ) continue; CComQIPtr< IWebBrowser2 > spBrowser = spDisp; if ( !spBrowser ) continue; spDisp.Release(); hr = spBrowser->get_Document( &spDisp ); if ( FAILED ( hr ) ) continue; CComQIPtr< IHTMLDocument2 > spDoc = spDisp; if ( !spDoc ) continue; // 程序运行到此，已经找到了 IHTMLDocument2 的接口指针 } }

 

2、使用ObjectFromLresult 函数从进程窗口获取webbrowser实例

BOOL CALLBACK EnumChildProc(HWND hwnd,LPARAM lParam) { TCHAR szClassName[100]; ::GetClassName( hwnd, &szClassName, sizeof(szClassName) ); if ( _tcscmp( szClassName, _T("Internet Explorer_Server") ) == 0 ) { *(HWND*)lParam = hwnd; return FALSE; // 找到第一个 IE 控件的子窗口就停止 } else return TRUE; // 继续枚举子窗口 }; void FindFromHwnd(HWND hWnd) { HWND hWndChild=NULL; ::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 ); CComPtr < IHTMLDocument2 > spDoc; HRESULT hr = ::ObjectFromLresult ( lRes, IID_IHTMLDocument2, 0 , (LPVOID *) &spDoc ); if ( FAILED ( hr ) ) return; // 程序运行到此，已经找到了 IHTMLDocument2 的接口指针 }

 

需要注意的是，两种方式其实都是采用了OLE的原理来获取webbrowser的，现在主流的主动防御软件都会报。

 

在第1种方式中已经直接获得了webbrowser的实例，但是在第2种方式中，只是获得了IHTMLDocument2 的接口，如何通过该接口获取到webbrowser实例呢？

CComQIPtr isp = pIHTMLDocument2; CComQIPtr iwb2; isp->QueryService(IID_IWebBrowserApp,IID_IWebBrowser2, (void**)&iwb2);

 

当获得了webbrowser实例以后，就可以调用webbrowser的方法来控制浏览器的行为，比如停止、刷新等等。但是，在实际测试过程中，发现其他方法都可以，唯独Navigate不行，在暂时找不到原因的情况下，由另外一种方式来实现：

 

获取IHTMLDocument2 接口对应的window

CComPtr < IHTMLDocument2 > spDoc; CComPtr <IHTMLWindow2> spWin; spDoc->get_parentWindow(&spWin);

 

然后调用spWin->execScript方法来调用脚本，众所周知脚本是异常强大的，只要可以执行脚本，就可以做很多我们想要浏览器做的事。比如要浏览指定页面，就可以这样写

CComVariant varRet; char szUrl[MAX_PATH]; sprintf(szUrl, "window.location = 'http://www.google.cn'"); CComBSTR str1(szUrl); CComBSTR str2("JavaScript"); spWin->execScript(str1, str2, &varRet);

 

至于获取结果嘛，连IHTMLDocument2 的接口已经获得了，基本可以获得一切了。网上代码很多。