模擬點選網頁按鈕
阿新 • • 發佈：2019-01-11
轉自：http://blog.csdn.net/tiantian1980/article/details/12322191
點選放大
|
三、程式實現
<1> 取得 IHTMLDocument2 的介面指標。根據IE瀏覽器的執行方式，有多種不同的方式可以獲取文件指標。
<1.1> 如果你在程式中使用MFC的 CHtmlView 視來瀏覽網頁。
取得文件的方法最簡單，呼叫 CHtmlView::GetHtmlDocument() 函式。
<1.2> 如果你的程式中使用了“Web 瀏覽器” 的ActiveX 控制元件。
取得文件的方法也比較簡單，呼叫 CWebBrowser2::GetDocument() 函式。
<1.3> 如果你的程式是用 ATL 寫的 ActiveX 控制元件。
那麼需要呼叫 IOleClientSite::GetContainer 得到 IOleContainer 介面，然後就可以通過 QueryInterface() 查詢得到 IHTMLDocument2 的介面。主要程式碼如下：
| CComPtr < IOleContainer > spContainer; m_spClientSite->GetContainer( &spContainer ); CComQIPtr < IHTMLDocument2 > spDoc = spContainer; if ( spDoc ) { // 已經得到了 IHTMLDocument2 的介面指標 } |
<1.4> 如果你的程式是用 MFC 寫的 ActiveX 控制元件。
那麼需要呼叫 COleControl::GetClientSite() 得到 IOleContainer 介面，然後的操作和<1.3>是一致的了。
<1.5> IE 瀏覽器作為獨立的程序正在執行。
每個執行的瀏覽器（IE 和 資源瀏覽器）都會在 ShellWindows 中進行登記，因此我們要通過 IShellWindows 取得例項（示例程式中使用的就是這個方法）。主要程式碼如下：
| #include < atlbase.h > #include < mshtml.h > 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 的介面指標 } } |
<1.6> IE 瀏覽器控制元件被一個程序包裝在一個子視窗中。那麼你首先要得到那個程序的頂層視窗控制代碼（使用 FindWindow() 函式，或其它任何可行的方法），然後列舉所有子視窗，通過判斷視窗類名是否是“Internet Explorer_Server”，從而得到瀏覽器的視窗控制代碼，再向視窗發訊息取得文件的介面指標。主要程式碼如下：
| #include < atlbase.h > #include < mshtml.h > #include < oleacc.h > #pragma comment ( lib, "oleacc" ) 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 的介面指標 } |
<2> 得到了 IHTMLDocument2 介面指標後，如果網頁是單貞的，那麼轉第<4>步驟。如果是多貞（有子框架）則還需要遍歷所有的子框架。這些子框架（IHTMLWindow2），被儲存在集合中（IHTMLFramesCollection2）,取得集合指標的方法比較簡單，取屬性 IHTMLDocument2::get_frames()。
<3> 首先取得子框架的總數目 IHTMLFramesCollection::get_length()，接著就可以迴圈呼叫 IHTMLFramesCollection::item()函式一個一個地取得子框架 IHTMLWindow2 指標，然後轉第<1>步。
<4> 一個文件中可能擁有多個表單，因此還是同樣的道理，先要取得表單的集合（IHTMLElementCollection，其實這個不光是表單的集合，其他元素的集合，比如圖片集合也是用它）。這個操作也很簡單，取得屬性 IHTMLDocument2::get_forms()。
<5> 屬性 IHTMLElementCollection::get_length() 得到表單總數目，就可以迴圈取得每一個表單指標了 IHTMLElementCollection::item()。
<6> 在第<5>步中的item()函式，得到的是一個IDispatch的指標，你通過QueryInterface()查詢，就可以得到 某型別輸入的指標，程式碼如下：
| // 假設 spDisp 是由IHTMLElementCollection::item() 得到的 IDispatch 指標 CComQIPtr < IHTMLInputTextElement > spInputText(spDisp); CComQIPtr < IHTMLInputButtonElement > spInputButton(spDisp); CComQIPtr < IHTMLInputHiddenElement > spInputHidden(spDisp); ...... if ( spInputText ) { //如果是文字輸入表單域 } else if ( spInputButton ) { //如果是按紐輸入表單域 } else if ( spInputHiddent ) { //如果是隱藏輸入表單域 } else if ........ //其它輸入型別 |
上面的方法，由於使用具體型別的介面指標，因此程式的效率比較高。但是通過 QueryInterface 介面查詢，然後再進行條件判斷顯然是比較煩瑣的，所以這個方法適合於特定的已知網頁設計內容的程式。在示例程式中，我則是直接使用 IDispatch 介面進行操作的，這個方式執行起來稍微慢一些，但程式比較簡單。主要程式碼和說明如下：#include < atlbase.h >
CComModule _Module; // 由於需要使用 CComDispatchDriver 的 IDispatch 包裝類ATL智慧指標，所以這個是必須的
| #include < atlcom.h > ...... long nElemCount=0; //表單域的總數目 spFormElement->get_length( &nElemCount ); for(long j=0; j< nElemCount; j++) { CComDispatchDriver spInputElement; // IDispatch 的智慧指標 spFormElement->item( CComVariant( j ), CComVariant(), &spInputElement ); CComVariant vName,vVal,vType; // 域名稱，域值，域型別 spInputElement.GetPropertyByName( L"name", &vName ); spInputElement.GetPropertyByName( L"value",&vVal ); spInputElement.GetPropertyByName( L"type", &vType ); // 使用 IDispatch 的智慧指標的好處就是：象上面這樣讀取、設定屬性很簡單 // 另外呼叫 Invoke 函式也異常方便，Invoke0(),Invoke1(),Invoke2().... ...... } |
四、結束語
示例程式在 VC6 下編譯執行通過。執行方法：隨便啟動幾個 IE 瀏覽網頁，最好是有表單輸入的網頁。然後執行示例的 EXE 程式即可。