VC Webbrowser操作全解（一）

最近这段时间在研究Webbrowser控件，并使用Webbrowser控件实现了对某些网页自动化管理的功能，以下是对这段时间研究结果的总结：

一、Webbrowser控件详解：

（1）通过Webrowser 查找指定元素控件（IHTMLElement）

//通过ID 获取对应页面元素
    IDispatch* CWebBrowserEx::GetElementByName(LPCTSTR idorName, LPCTSTR lpIFramName, IID clID)
	{
		IDispatch *retElement = NULL;
		IDispatch* dispatch = NULL;
		HRESULT hr = S_FALSE;
		CComPtr<IHTMLDocument2> doc;
		do
		{
			if (lpIFramName)
			{
				CComPtr<IHTMLIFrameElement> pIFrame = NULL;
				pIFrame = (IHTMLIFrameElement*)GetElementByName(lpIFramName, (LPCTSTR)NULL, IID_IHTMLIFrameElement);
				if (pIFrame == NULL) break;
				CComQIPtr< IHTMLFrameBase2 > pFrameBase = pIFrame;
				CComPtr<IHTMLWindow2> spIframeWindow2 = NULL;
				if (pFrameBase == NULL) break;
				hr = pFrameBase->get_contentWindow(&spIframeWindow2);
				if (FAILED(hr))break;
				hr = spIframeWindow2->get_document(&doc);
				if (FAILED(hr))break;
			}
			else
			{
				hr = m_pWebBrowser2->get_Document(&dispatch);
				if ((S_OK == hr) && (0 != dispatch))
				{
					dispatch->QueryInterface(IID_IHTMLDocument2, (void**)&doc);
					dispatch->Release();
				}
			}
			if (doc == NULL ) break;
			CComQIPtr<IHTMLElementCollection> doc_all;
			hr = doc->get_all(&doc_all);      // this is like doing document.all
			if (FAILED( hr)) break;

			VARIANT vKey;
			vKey.vt = VT_BSTR;
			vKey.bstrVal = SysAllocString(idorName);
			VARIANT vIndex;
			VariantInit(&vIndex);
			hr = doc_all->item(vKey, vIndex, &dispatch);       // this is like doing document.all["messages"]
			//清理
			SysFreeString(vKey.bstrVal);
			VariantClear(&vKey);
			VariantClear(&vIndex);
			if ((S_OK == hr) && (0 != dispatch))
			{
				hr = dispatch->QueryInterface(clID, (void **)&retElement); // it's the caller's responsibility to release 
				if (S_OK != hr) retElement = NULL;
				dispatch->Release();
			}

		} while (0);
		return retElement;
	}
//通过Tag 获取对应控件，eg: <input onclick="clieck_login()" /> 可以通过onclick 这个属性获
//取对应的控件
	IDispatch* CWebBrowserEx::GetElementByTag(LPCTSTR tagName, LPCTSTR PropertyName, LPCTSTR macthValue, LPCTSTR lpIFramName, IID clID)
	{

		IDispatch *retElement = NULL;
		IDispatch* dispatch = NULL;
		CComPtr<IHTMLDocument2> doc;
		HRESULT hr = S_FALSE;
		CComQIPtr<IHTMLElementCollection> doc_all;
		do
		{
			if (m_pWebBrowser2 == NULL ) break;

			if (lpIFramName)
			{
				CComPtr<IHTMLIFrameElement> pIFrame = NULL;
				pIFrame = (IHTMLIFrameElement*)GetElementByName(lpIFramName, (LPCTSTR)NULL, IID_IHTMLIFrameElement);
				if (pIFrame == NULL) break;
				CComQIPtr< IHTMLFrameBase2 > pFrameBase = pIFrame;
				CComPtr<IHTMLWindow2> spIframeWindow2 = NULL;
				if (pFrameBase == NULL ) break;
				hr = pFrameBase->get_contentWindow(&spIframeWindow2);
				if (FAILED(hr)) break;
				hr = spIframeWindow2->get_document(&doc);
				if (FAILED(hr)) break;
			}
			else
			{
				hr = m_pWebBrowser2->get_Document(&dispatch);
				if ((S_OK == hr) && (0 != dispatch))
				{
					dispatch->QueryInterface(IID_IHTMLDocument2, (void**)&doc);
					dispatch->Release();
				}
			}
			if (doc == NULL ) break;
			hr = doc->get_all(&doc_all);      // this is like doing document.all
			if (FAILED( hr) ) break;

			VARIANT vKey;
			vKey.vt = VT_BSTR;
			vKey.bstrVal = SysAllocString(tagName);
			VARIANT vIndex;
			VariantInit(&vIndex);
			hr = doc_all->tags(vKey, &dispatch);       // this is like doing document.all["messages"]
			//清理
			SysFreeString(vKey.bstrVal);
			VariantClear(&vKey);
			VariantClear(&vIndex);
			if (FAILED(hr) || (NULL == dispatch)) break;
			CComQIPtr< IHTMLElementCollection > all_tags = dispatch;
			dispatch->Release();
			if (all_tags == NULL ) break;
			long nTagsCount = 0; //
			hr = all_tags->get_length(&nTagsCount);
			if (FAILED(hr)) break;

			for (long i = 0; i < nTagsCount; i++)
			{
				CComDispatchDriver spInputElement; //取得第 i 项
				hr = all_tags->item(CComVariant(i), CComVariant(i), &spInputElement);

				if (FAILED(hr))
					continue;
				CComVariant vValue;
				hr = spInputElement.GetPropertyByName(PropertyName, &vValue);
				if (VT_EMPTY != vValue.vt)
				{
					LPCTSTR lpValue = vValue.bstrVal ?
						OLE2CT(vValue.bstrVal) : NULL;
					if (NULL == lpValue)
						continue;
					std::wstring cs = L"";
					if (vValue.vt == VT_DISPATCH)
					{
						CComPtr<IDispatch> varCon = vValue.pdispVal;
						VARIANT varResult = { 0 };
						DISPPARAMS params = { NULL, NULL, 0, 0 };
						varCon->Invoke(0, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, &params, &varResult, NULL, NULL);
						cs = varResult.bstrVal;
						int nPos = cs.find(L"{\n");
						if (nPos != std::string::npos)
						{
							cs = cs.substr(nPos + 2, cs.size() - nPos - 2);
						}
						nPos = cs.rfind(L"\n}");
						if (nPos != std::string::npos)
						{
							cs = cs.substr(0, nPos);
						}


					}
					else if (vValue.vt == VT_BSTR)
					{
						LPCTSTR lpValue = vValue.bstrVal ?
							OLE2CT(vValue.bstrVal) : NULL;
						if (lpValue != NULL)
						{
							cs = (LPCTSTR)lpValue;
						}
					}

					if (cs.size() == 0)
						continue;
					if (0 == _tcscmp(cs.c_str(), macthValue))
					{
						hr = spInputElement->QueryInterface(clID, (void **)&retElement);
						if (S_OK != hr) retElement = NULL;
						break;
					}
				}

			}
				
		} while (0);
		
		return retElement;
	}
//通过ID 获取对应页面元素
	IDispatch* CWebBrowserEx::GetElementByName(LPCTSTR pElementName, IHTMLIFrameElement* pIFrameElement, IID clID)
	{
		IDispatch *retElement = NULL;
		IDispatch* dispatch = NULL;
		HRESULT hr = S_FALSE;
		CComPtr<IHTMLDocument2> doc;
		do
		{
			if (pIFrameElement == NULL ) break;
			if (pElementName == NULL ) break;

			CComQIPtr< IHTMLFrameBase2 > pFrameBase = pIFrameElement;
			CComPtr<IHTMLWindow2> spIframeWindow2 = NULL;
			if (pFrameBase == NULL) break;
			hr = pFrameBase->get_contentWindow(&spIframeWindow2);
			if (FAILED(hr))break;
			hr = spIframeWindow2->get_document(&doc);
			if (FAILED(hr))break;
			if (doc == NULL ) break;
			CComQIPtr<IHTMLElementCollection> doc_all;
			hr = doc->get_all(&doc_all);      // this is like doing document.all
			if (FAILED( hr)) break;

			VARIANT vKey;
			vKey.vt = VT_BSTR;
			vKey.bstrVal = SysAllocString(pElementName);
			VARIANT vIndex;
			VariantInit(&vIndex);
			hr = doc_all->item(vKey, vIndex, &dispatch);       // this is like doing document.all["messages"]
			//清理
			SysFreeString(vKey.bstrVal);
			VariantClear(&vKey);
			VariantClear(&vIndex);
			if ((S_OK == hr) && (0 != dispatch))
			{
				hr = dispatch->QueryInterface(clID, (void **)&retElement); // it's the caller's responsibility to release 
				if (S_OK != hr) retElement = NULL;
				dispatch->Release();
			}
		} while (0);
		return retElement;
	}
//通过Tag 获取对应控件，eg: <input onclick="clieck_login()" /> 可以通过onclick 这个属性获
//取对应的控件
	IDispatch* CWebBrowserEx::GetElementByTag(LPCTSTR tagName, LPCTSTR PropertyName, LPCTSTR macthValue, IHTMLIFrameElement* pIFrameElement, IID clID)
	{

		IDispatch *retElement = NULL;
		IDispatch* dispatch = NULL;
		CComPtr<IHTMLDocument2> doc;
		HRESULT hr = S_FALSE;
		CComQIPtr<IHTMLElementCollection> doc_all;
		do
		{
			if (m_pWebBrowser2 == NULL) break;
			if (pIFrameElement == NULL ) break;

			CComQIPtr< IHTMLFrameBase2 > pFrameBase = pIFrameElement;
			CComPtr<IHTMLWindow2> spIframeWindow2 = NULL;
			if (pFrameBase == NULL) break;
			hr = pFrameBase->get_contentWindow(&spIframeWindow2);
			if (FAILED(hr)) break;
			hr = spIframeWindow2->get_document(&doc);
			if (FAILED(hr)) break;
			if (doc == NULL ) break;
			hr = doc->get_all(&doc_all);      // this is like doing document.all
			if (FAILED( hr )) break;
			VARIANT vKey;
			vKey.vt = VT_BSTR;
			vKey.bstrVal = SysAllocString(tagName);
			VARIANT vIndex;
			VariantInit(&vIndex);
			hr = doc_all->tags(vKey, &dispatch);       // this is like doing document.all["messages"]
			//清理
			SysFreeString(vKey.bstrVal);
			VariantClear(&vKey);
			VariantClear(&vIndex);
			if (FAILED(hr) || (NULL == dispatch)) break;
			CComQIPtr< IHTMLElementCollection > all_tags = dispatch;
			dispatch->Release();
			if (all_tags == NULL ) break;
			long nTagsCount = 0; //
			hr = all_tags->get_length(&nTagsCount);
			if (FAILED(hr)) break;

			for (long i = 0; i < nTagsCount; i++)
			{
				CComDispatchDriver spInputElement; //取得第 i 项
				hr = all_tags->item(CComVariant(i), CComVariant(i), &spInputElement);
				if (FAILED(hr))
					continue;
				CComVariant vValue;
				hr = spInputElement.GetPropertyByName(PropertyName, &vValue);
				if (VT_EMPTY == vValue.vt) 
					continue;
				std::wstring cs = L"";
				if (vValue.vt == VT_DISPATCH)
				{
					CComPtr<IDispatch> varCon = vValue.pdispVal;
					VARIANT varResult = { 0 };
					DISPPARAMS params = { NULL, NULL, 0, 0 };
					varCon->Invoke(0, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, &params, &varResult, NULL, NULL);
					cs = varResult.bstrVal;
					int nPos = cs.find(L"{\n");
					if (nPos != std::string::npos)
					{
						cs = cs.substr(nPos + 2, cs.size() - nPos - 2);
					}
					nPos = cs.rfind(L"\n}");
					if (nPos != std::string::npos)
					{
						cs = cs.substr(0, nPos);
					}


				}
				else if (vValue.vt == VT_BSTR)
				{
					LPCTSTR lpValue = vValue.bstrVal ?
						OLE2CT(vValue.bstrVal) : NULL;
					if (lpValue != NULL)
					{
						cs = (LPCTSTR)lpValue;
					}
				}

				if (cs.size() == 0)
					continue;
				if (0 == _tcscmp(cs.c_str(), macthValue))
				{
					hr = spInputElement->QueryInterface(clID, (void **)&retElement);
					if (FAILED(hr)) retElement = NULL;
					break;
				}
			}

		} while (0);

		return retElement;
	}

（2） NewWindows3 多页面实现

需要实现多页面或者URL在同页面打开这个功能，需要在Invoke中响应DISPID_NEWWINDOW3这个消息。

void CWebBrowserEx::NewWindow3(IDispatch **pDisp, VARIANT_BOOL *&Cancel, DWORD dwFlags, BSTR bstrUrlContext, BSTR bstrUrl)
	{
		
		//*Cancel = FALSE;   //注意如果要使用系统自带的界面弹框，则设置成FALSE
 		CWebBrowserEx* pNewBrowser = DoCreateWeb(bstrUrl, pDisp);
 		pNewBrowser->GetWebBrowser2()->get_Application(pDisp);
			
		DUITRACE(_T("[WebBrowserEx]创建页面成功！\n"));
		*Cancel = TRUE;
			
	}

（3）查看对应元素的HTML数据

可以通过获取当前元素节点的 IHTMLElement 对象，然后通过接口get_innerHTML 或者 get_outerHTML获取HTML数据

//查看元素节点HTML
CComPtr<IHTMLElementCollection> pBody;
HRESULT hr = pElement->get_tBodies(&pBody);
if (FAILED(hr)) break;

long lNum = 0;
pBody->get_length(&lNum);
CComPtr<IHTMLDOMNode> node_tdnum = NULL;
for (int i = 0; i < lNum; i++)
{
	CComDispatchDriver spInputElement; //取得第 i 项
	HRESULT hr = pBody->item(CComVariant(i), CComVariant(i), &spInputElement);
	if (FAILED(hr))continue;
	CComPtr<IHTMLElement> pItem;
	hr = spInputElement->QueryInterface(IID_IHTMLElement, (void**)&pItem);
	if (FAILED(hr)) continue;
	BSTR strName;
    pItem->get_outerHTML(&strName);
	OutputDebugString(strName);

}

二、对网页的操作

请参考《VC Webbrowser操作全解（二）》

VC Webbrowser操作全解（一）

继续阅读

如何利用 WebBrowser 控件,显示 .GIF 动画?

WebBrowser控件使用详解WebBrowser控件使用详解

webbrowser控制新窗口（点击超链接事件）

提升webbrowser的IE版本1.查看IE浏览器是32位还是64位2.修改注册表数据值10000 IE10 11001 IE113.查看IE版本（打开IE ->设置->关于）

在WebBrowser控件中阻止alert,confirm对话框

Delphi中WebBrowser判断页面及JS是否加载完成

VC Webbrowser操作全解（二）

WebBrowser独立IE使用代理

WebBrowser中修改渲染IE的版本

vc6.0一个workspace包含多个项目

一个程序员的总结

解决图像刷新问题的VC++双缓冲方法

修改WebBrowser控件的浏览器模式

WIN32 应用程序内嵌IE浏览器(注意非MFC)

程序员高手是怎样炼成的（转）

CDHtmlDialog中阻止某页面的显示