利用WebBrowser控制項實現百度自動搜索

(1)新建一個MFC對話框項目

(2)對話框中添加WebBrower控制項，添加方法：點擊菜單欄工具->選擇工具箱項->在彈出的選擇工具箱項對話框選擇COM組件->Microsoft Web Browser->確定，添加到對話框中即可。

(3)添加類CWebBrowser2的頭文件和實現

右鍵點擊項目->添加->類->Visual C++ -> MFC->ActiveX控制項中的MFC類->點擊添加按鈕->從註冊表來源添加類，可用的ActiveX控制項選擇Microsoft Web Browser<1.0>->介面選擇IWebBrowser2->點擊>按鈕->點擊完成按鈕，就可以將CWebBrowser2.h和CWebBrowser2.cpp添加到項目中，XXXdlg.h中包含頭文件

#include "CWebbrowser2.h"，定義變數CWebBrowser2 m_web;

(4)XXXdlg.cpp的DoDataExchange中添加將控制項與變數動態綁定

DDX_Control(pDX, IDC_EXPLORER1, m_web);

(5)XXXdlg.cpp的初始化函數中添加

VARIANT vt;

COleVariant vaUrl=_T("http://www.baidu.com");

m_web.Navigate2(vaUrl,&vt,&vt,&vt,&vt);

運行程式，可以看到自動載入百度頁面。

(6)XXXdlg.h中添加一下聲明，用於當頁面載入完成後進一步操作頁面

DECLARE_EVENTSINK_MAP()

void DocumentCompleteExplorer(LPDISPATCH pDisp, VARIANT* URL);

(7)XXXdlg.cpp中添加

BEGIN_EVENTSINK_MAP(CbaiduDlg, CDialogEx)

ON_EVENT(CbaiduDlg, IDC_EXPLORER1, 259, CbaiduDlg::DocumentCompleteExplorer, VTS_DISPATCH VTS_PVARIANT)

END_EVENTSINK_MAP()

(8)實現DocumentCompleteExplorer

分析百度源碼可以得到輸入框的id是kw1，按鈕的id是su1。由於百度頁面標簽變化，自己註意替換。

1. <span style="font-size:18px;">void CbaiduDlg::DocumentCompleteExplorer(LPDISPATCH pDisp, VARIANT* URL)  
2. {  
3.     HRESULT   hr;  
4.     LPUNKNOWN lpUnknown;  
5.     LPUNKNOWN lpUnknownWB = NULL;  
6.     LPUNKNOWN lpUnknownDC = NULL;  
7.     IHTMLElementCollection *objAllElement=NULL;  
8.     IHTMLDocument2 *objDocument=NULL;  
9.     CString strUrl,strTemp;  
10.   
11.     lpUnknown = m_web.GetControlUnknown();  
12.     ASSERT(lpUnknown);  
13.   
14.     if (lpUnknown)  
15.     {  
16.         hr = lpUnknown->QueryInterface(IID_IUnknown,(LPVOID*)&lpUnknownWB);  
17.         ASSERT(SUCCEEDED(hr));  
18.         if (FAILED(hr))  
19.             return;  
20.   
21.         hr = pDisp->QueryInterface(IID_IUnknown, (LPVOID*)&lpUnknownDC);  
22.         ASSERT(SUCCEEDED(hr));  
23.         if (SUCCEEDED(hr) && lpUnknownWB == lpUnknownDC)  
24.         {  
25.             // The document has finished loading.  
26.             strUrl=m_web.get_LocationURL();  
27.             if (strUrl.IsEmpty())  
28.             {  
29.                 return ;  
30.             }  
31.             objDocument=(IHTMLDocument2*)m_web.get_Document();  
32.             objDocument->get_all(&objAllElement);  
33.             if (strUrl==_T("http://www.baidu.com/"))  
34.             {     
35.                 CComPtr<IDispatch>pDisp;  
36.                 objAllElement->item(COleVariant(_T("kw1")),COleVariant((long)0),&pDisp);   
37.                 CComQIPtr<IHTMLElement, &IID_IHTMLElement>pElement;  
38.                 if(pDisp==NULL)  
39.                 {  
40.                     return;  
41.                 }  
42.                 else  
43.                 {  
44.                     pElement=pDisp;  
45.                     pElement->put_innerText(_T("測試")); //填充表單  
46.                 }  
47.                   
48.                 VARIANT   name;   
49.                 CComBSTR   tag;   
50.                 long     index;   
51.                 objAllElement-> get_length(&index);   
52.                 name.vt=VT_I4;  
53.                 for(long i=0; i <index; i++)//遍歷所有元素，通過id屬性獲取值  
54.                 {   
55.                     name.lVal   =   i;  
56.                     IDispatch   *   pDispatch=NULL;   
57.                     objAllElement-> item(name,name,&pDispatch);   
58.                     IHTMLElement*   spElement;   
59.                     pDispatch-> QueryInterface(IID_IHTMLElement,   (void**)&spElement);   
60.                     BSTR   tag;   
61.                     spElement->get_id(&tag);   
62.                     CString   ss(tag);   
63.                     if(ss == "su1")   
64.                         spElement->click();  
65.                       
66.                     spElement->Release();  
67.                 }  
68.             }  
69.         }  
70.     }     
71.   
72.     if (lpUnknownWB)  
73.         lpUnknownWB->Release();  
74.   
75.     if (lpUnknownDC)  
76.         lpUnknownDC->Release();  
77. }</span>  

運行可以看到百度自動搜索

附：VS2008平臺源碼下載