MFC调用WebBrowser控件直接编写javascript代码及其他WebBrowser相关技巧

在mfc操作网页的过程中，使用ActiveX控件中的WebBrowser能方便的模拟网页点击等操作

头文件

#include <MsHTML.h>    //WEB控件包含头文件

有时需要直接编写javascript的代码来操作指定网页，可通过以下代码进行操作

CComVariant vtUrl(L"http://admin:123@172.31.102.12/cgi-bin/va100p.cgi");//指定需要打开的网页
CComVariant vtEmpty; 
myva100pwebbrower.Navigate2(&vtUrl, &vtEmpty, &vtEmpty, &vtEmpty, &vtEmpty);//打开指定网页

上下两部分要分开写，如果在网页还没打开的时候就进行下面的操作会直接报错

IHTMLDocument2* pHTMLDoc = (IHTMLDocument2*)myva100pwebbrower.get_Document();    
if ( pHTMLDoc != NULL ) 
{    
	IHTMLWindow2* pHTMLWnd;    
	pHTMLDoc->get_parentWindow( &pHTMLWnd );    
	if ( pHTMLWnd != NULL )    
	{  
		CString js_code;  
		js_code=L"javascript:document.getElementById('100').value = '11233'; void(0);";//此次为实际写入的javascript代码
		//js_code.Format(L"goToLocation('%s');",JScode);//JS函数名+参数  
		VARIANT  ret;    
		ret.vt = VT_EMPTY;  
		pHTMLWnd->execScript(js_code.AllocSysString(), L"Javascript", &ret);//执行javascript代码
	}  
} 

在大多数情况下，可以利用控件自带的函数进行网页元素的操作

CComQIPtr<IHTMLInputElement> spInputElement;
CComQIPtr<IHTMLDocument3> spDocument = myva100pwebbrower.get_Document();
CComPtr<IHTMLElement> spElement;
spDocument->getElementById(L"100", &spElement);//通过ID获得元素对象存在spElement中，这里的ID是100，接下来就可以对该对象进行操作
if(spElement==NULL)//读入ID之后可以先判断下该ID是否存在
{
	MessageBox(L"相应ID不存在");
	return;
}
//如果对象是下拉列表框，则经由下面代码进行选择
CComVariant vtUrl(L"1-door");
spElement->setAttribute(L"value",vtUrl); 
spElement.Release();//操作后要设释放掉元素对象  
//如果对象是按钮，可用下面方法进行模拟点击
spElement->click();
spElement.Release();
//如果对象是文本框，可用下面方法进行写入
spInputElement = spElement;
spInputElement->put_value(myinputbstr);
spElement.Release();
//如果对象有value,可用下面方法获得
BSTR BSvalue;
spInputElement = spElement;  
spInputElement->get_value(&BSvalue);//得到对象value放到BSvalue中

获得网页复选框对象的选择情况

bool getidcheck(CString myid, CExplorer1 *myweb)//myid为网页控件id，myweb为WebBrowser对象
{
	CComQIPtr<IHTMLInputElement> spInputElement;
	CComQIPtr<IHTMLDocument3> spDocument = myweb->get_Document();
	CComPtr<IHTMLElement> spElement;
	spDocument->getElementById(myid.AllocSysString(), &spElement);
	if (spElement == NULL)
	{
		return false;
	}
	bool getcheckvalue=false;
	spInputElement = spElement;
	VARIANT_BOOL vbgetcheckvalue = 0;
	spInputElement->get_checked(&vbgetcheckvalue);//获得复选框选择情况放到vbgetcheckvalue中
	if (vbgetcheckvalue==0)
	{
		getcheckvalue = false;
	}
	else
	{
		getcheckvalue = true;
	}
	spElement.Release();
	return getcheckvalue;
}

获得当前的URL（网址）

CString myweburl= myva100pwebbrower.get_LocationURL();//myva100pwebbrower为WebBrowser对象，myweburl存放着网址

如果不希望在程序运行时看到插件，可将插件进行隐藏，但可能是的一个bug，一旦在插件的属性中选择隐藏，它就干脆不起作用，这时可以使用下面这句代码进行操作，代码在窗体初始化的时候调用

::ShowWindow(myva100pwebbrower.GetSafeHwnd(), SW_HIDE);//其中myva100pwebbrower为WebBrowser对象

CString NetWorkDlg::getvalue(CString myid)//获得对象value值
{
	CComQIPtr<IHTMLInputElement> spInputElement;
	CComQIPtr<IHTMLDocument3> spDocument = networkweb.get_Document();
	CComPtr<IHTMLElement> spElement;
	spDocument->getElementById(myid.AllocSysString(), &spElement);
	if (spElement == NULL)//读入ID之后可以先判断下该ID是否存在  
	{
		MessageBox(L"相应ID不存在");
		return L"error";
	}
	VARIANT myvariant;
	spElement->getAttribute(L"value", 1, &myvariant);
	spElement.Release();//操作后要设释放掉元素对象  
	CString myvalue = myvariant;
	return myvalue;
}

void NetWorkDlg::setvalue(CString myid,CString myinput)//设置对象值
{
	CComQIPtr<IHTMLInputElement> spInputElement;
	CComQIPtr<IHTMLDocument3> spDocument = networkweb.get_Document();
	CComPtr<IHTMLElement> spElement;
	spDocument->getElementById(myid.AllocSysString(), &spElement);
	if (spElement == NULL)//读入ID之后可以先判断下该ID是否存在  
	{
		MessageBox(L"相应ID不存在");
		return;
	}
	CComVariant vtUrl;
	vtUrl = myinput;
	spElement->setAttribute(L"value", vtUrl);
	spElement.Release();//操作后要设释放掉元素对象
}