VC在对话框中显示网页并对网页进行操作

一:显示网页

1. 添加"Microsoft web浏览器"控件:Add to Project

       ->Components and controls->Registered ActiveX  

      Controls->Microsoft Web 浏览器

2. 添加控件到对话框;

3. 为控件添加变量:CWebBrowser2 m_web;

4. 添加返回变量 VARIANT vart;

5.  调用m_web.Navigate("URL",&vart,&vart,&vart,&vart);即可

    在对话框中的webBrowser控件显示网页;

 

二:对网页进行操作

   获得网页文档的IDispatch 指针,得到网页元素的集合,按照不同的元素类型,就可以对网页元素进行操作.

   代码如下:

IHTMLElementCollection *objAllElement=NULL; IHTMLDocument2 * pDoc = NULL; IDispatch * pDispatch = m_webBrowser.GetDocument(); //获得文档的IDispatch 指针 HRESULT hr = pDispatch->QueryInterface(IID_IHTMLDocument2,(void**)&pDoc); //查询IID_IHTMLDocument2 pDoc->get_all(&objAllElement); //得到网页所有元素的集合 IHTMLElement * pElem = NULL; VARIANT name; CComBSTR tag; long nElemCount; //元素个数 objAllElement->get_length(&nElemCount); //获取元素个数 name.vt=VT_I4; IHTMLElement* spElement; //一般的控件 IHTMLSelectElement* pSeleElement; //选择型的控件 IHTMLFormElement* pFromelemt; for(int i = 0; i < nElemCount; i++)//遍历所有元素 { name.lVal = i; IDispatch * pDispatch=NULL; objAllElement->item(name,name,&pDispatch); pDispatch->QueryInterface(IID_IHTMLElement, (void**)&spElement); CComVariant varAttribute; CComBSTR bstrName; CComBSTR bstrValue; bstrName = _T("id"); spElement->getAttribute(bstrName,0,&varAttribute); if (SUCCEEDED(varAttribute.ChangeType(VT_BSTR))) { bstrValue = varAttribute.bstrVal; if (bstrValue == _T("loginmenu1")) //点击"普通用户" spElement->click(); if (bstrValue == _T("provinceCode1")) //开户地 { spElement->QueryInterface(IID_IHTMLSelectElement,((void**)&pSeleElement)); pSeleElement->put_selectedIndex(nIndex); } if(bstrValue == _T("userName1")) //用户名 { bstrValue = _T(strUserName); spElement->put_innerText(bstrValue); } if (bstrValue == _T("password1")) //密码 { bstrValue = _T(strPwd); spElement->put_innerText(bstrValue); } if (bstrValue == _T("login1")) //提交 { spElement->QueryInterface(IID_IHTMLFormElement,(void**)&pFromelemt); pFromelemt->submit(); } } spElement->Release();

 

 WebBrowser控件还有一些消息函数是非常重要的,其中DocumentComplete:指示页面的加载完毕;

StatusTextChange: 指示状态栏文本的改变;

ProgressChange: 指示下载进度条的更新;

DownloadBegin: 指示开始下载页面;

DownloadComplete: 指示下载页面结束;

等等...