利用MFC实现浏览器的定制与扩展

//窗口标题"MicrosoftInternetExplorer"的资源标识
#defineIDS_MESSAGE_BOX_TITLE2213
HRESULTCLhpHtmlView::OnShowMessage(HWNDhwnd,
LPOLESTRlpstrText,
LPOLESTRlpstrCaption,
DWORDdwType,
LPOLESTRlpstrHelpFile,
DWORDdwHelpContext,
LRESULT*plResult)
{
//载入Shdoclc.dll和IE消息框标题字符串
HINSTANCEhinstSHDOCLC=LoadLibrary(TEXT("SHDOCLC.DLL"));
if(hinstSHDOCLC==NULL)
returnS_FALSE;
CStringstrBuf,strCaption(lpstrCaption);
strBuf.LoadString(hinstSHDOCLC,IDS_MESSAGE_BOX_TITLE);
//比较IE消息框标题字符串和lpstrCaption
//如果相同，用自定义标题替换
if(strBuf==lpstrCaption)
strCaption=m_DefaultMsgBoxTitle;
//创建自己的消息框并且显示
*plResult=MessageBox(CString(lpstrText),strCaption,dwType);
//卸载Shdoclc.dll并且返回
FreeLibrary(hinstSHDOCLC);
returnS_OK;
}

voidCLhpHtmlView::SetDefaultMsgBoxTitle(CStringstrTitle)
{
m_DefaultMsgBoxTitle=strTitle;
}

　　怎样定制、修改浏览器向Web服务器发送的HTTP请求头

　　在集成了WebBrowser控件的应用中，Web服务器有时可能希望客户端(浏览器)发送的HTTP请求中附带一些额外的信息或自定义的HTTP头字段，这样就必须在浏览器中控制向Web服务器发送的HTTP请求。下面是捕获的一个普通的用浏览器发送的HTTP请求头：
GET/text7.htmHTTP/1.0
Accept:image/gif,image/x-xbitmap,image/jpeg,image/pjpeg,application/x-shockwave-Flash,/
application/vnd.ms-excel,application/vnd.ms-powERPoint,application/msword,*/*
Referer:http://localhost
Accept-Language:en-us
User-Agent:Mozilla/4.0(compatible;MSIE6.0;WindowsNT5.1;Poco0.31;LHPBrowser1.01;/
.netCLR1.1.4322)
Host:localhost
Connection:Keep-Alive

CHtmlView的
voidNavigate2(
LPCTSTRlpszURL,
DWORDdwFlags=0,
LPCTSTRlpszTargetFrameName=NULL,
LPCTSTRlpszHeaders=NULL,
LPVOIDlpvPostData=NULL,
DWORDdwPostDataLen=0
);

　　函数参数lpszHeaders可以指定HTTP请求头，示例如下:
Navigate2(_T("http://localhost"),NULL,NULL,"MyDefineField:TestValue");

　　我们捕获的HTTP头如下：

　　怎样修改浏览器标识

　　在HTTP请求头中User-Agent字段表明了浏览器的版本以及操作系统的版本等信息。WEB服务器经常需要知道用户请求页面时是来自IE还是来自自己的客户端中的WebBrowser控件，以便分开处理，而WebBrowser控件向WEB服务器发送的浏览器标识(User-Agent字段)跟用IE发送的是一样的，怎样区分自己的浏览器和IE呢？微软没有提供现成的方法，要自己想法解决。前面讨论的定制HTTP请求头就是为这一节准备的。思路是这样的：在自己的浏览器里处理每一个U页面请求，把请求头User-Agent改成自己想要的。在CHtmlView的OnBeforeNavigate2虚函数里来修改HTTP请求是再好不过了，
#defineWM_NVTO(WM_USER+1000)

classNvToParam
{
public:
CStringURL;
DWORDFlags;
CStringTargetFrameName;
CByteArrayPostedData;
CStringHeaders;
};

voidCDemoView::OnBeforeNavigate2(LPCTSTRlpszURL,
DWORDnFlags,
LPCTSTRlpszTargetFrameName,
CByteArray&baPostedData,
LPCTSTRlpszHeaders,
BOOL*PBCancel)
{
CStringstrHeaders(lpszHeaders);
if(strHeaders.Find("User-Agent:LHPBrowser1.0")<0)//检查头里有没有自定义的User-Agent串
{
*pbCancel=TRUE;//没有，取消这次导航

if(!strHeaders.IsEmpty())
strHeaders+="/r/n";
strHeaders+="User-Agent:LHPBrowser1.0";//加上自定义的User-Agent串

NvToParam*pNvTo=newNvToParam;
pNvTo->URL=lpszURL;
pNvTo->Flags=nFlags;
pNvTo->TargetFrameName=lpszTargetFrameName;
baPostedData.Copy(pNvTo->PostedData);
pNvTo->Headers=strHeaders;

//发送一个自定义的导航消息，并把参数发过去
PostMessage(WM_NVTO,(WPARAM)pNvTo);
return;
}

CHtmlView::OnBeforeNavigate2(lpszURL,
nFlags,
lpszTargetFrameName,
baPostedData,
lpszHeaders,
pbCancel);
}

LRESULTCDemoView::OnNvTo(WPARAMwParam,LPARAMlParam)
{
NvToParam*pNvTo=(NvToParam*)wParam;
Navigate2((LPCTSTR)pNvTo->URL,
pNvTo->Flags,
pNvTo->PostedData,
(LPCTSTR)pNvTo->TargetFrameName,
(LPCTSTR)pNvTo->Headers);
deletepNvTo;
return1;
}

　　在OnBeforeNavigate2中如果发现没有自定义的User-Agent串，就加上这个串，并取消本次导航，再Post一个消息(一定要POST，让OnBeforeNavigate2跳出以后再进行导航)，在消息中再次导航，再次导航时请求头已经有了自己的标识，所以能正常的导航。
　　去掉讨厌的异常警告

　　在程序中使用了CHtmlView以后，我们在调整窗口大小的时候经常会看到输出窗口输出的异常警告：ReusingBrowser.exe中的0x77e53887处最可能的异常:MicrosoftC++exception:COleException@0x0012e348。
Warning:constructingCOleException,scode=DISP_E_MEMBERNOTFOUND($80020003).

　　这是由于CHtmlView在处理WM_SIZE消息时的一点小问题引起的,采用如下代码处理WM_SIZE消息就不会有此警告了
voidCLhpHtmlView::OnSize(UINTnType,intcx,intcy)
{
CFormView::OnSize(nType,cx,cy);

if(::IsWindow(m_wndBrowser.m_hWnd))
{
CRectrect;
GetClientRect(rect);
//就这一句与CHtmlView的不同
::AdjustWindowRectEx(rect,GetStyle(),FALSE,WS_EX_CLIENTEDGE);
m_wndBrowser.SetWindowPos(NULL,
rect.left,
rect.top,
rect.Width(),
rect.Height(),
SWP_NOACTIVATE|SWP_NOZORDER);
}
}

　　怎样处理浏览器内的拖放

　　有时可能有这样的需求，我们希望在资源管理器里托一个文件到浏览器而做出相应的处理，甚至是将文件拖到某一个网页元素上来做出相应的处理，而浏览器默认的处理拖放文件操作是将文件打开，但WebBrowser控件给了我们一个自己处理拖放的机会。那就是在自定义的控制站点类中实现IDocHostUIHandler，在接口IDocHostUIHandler的GetDropTarget方法中调用浏览器类的OnGetDropTarget虚函数。要处理网页内的拖放，必需在OnGetDropTarget函数中返回一个自己定义的IDropTarget接口指针，所以我们自己写一个类CMyOleDropTarget从COleDropTarget类派生，并且在实现IDropTarget接口，此类的代码在这就不列出了，请下载演示程序，参考文件MyOleDropTarget.h和MyOleDropTarget.cpp。我们看CLhpHtmlView中OnGetDropTarget的代码
HRESULTCLhpHtmlView::OnGetDropTarget(LPDROPTARGETpDropTarget,LPDROPTARGET*ppDropTarget)
{
m_DropTarget.SetIEDropTarget(pDropTarget);

LPDROPTARGETpMyDropTarget;
pMyDropTarget=(LPDROPTARGET)m_DropTarget.GetInterface(&IID_IDropTarget);
if(pMyDropTarget)
{
*ppDropTarget=pMyDropTarget;
pMyDropTarget->AddRef();
returnS_OK;
}

returnS_FALSE;
}

　　m_DropTarget即为自定义的处理拖放的对象。这样就能通过在从CLhpHtmlView派生的类中重载OnDragEnter、OnDragOver、OnDrop、OnDragLeave虚函数来处理拖放了。在这里顺带讲一下视图是怎样处理拖放的。要使视图处理拖放，首先在视图里添加一个COleDropTarget(或派生类)成员变量，如CLhpHtmlView中的“CMyOleDropTargetm_DropTarget;”，再在视图创建时调用COleDropTarget对象的ReGISter，即把视图与COleDropTarget对象关联起来，如CLhpHtmlView中的“m_DropTarget.Register(this);”，再对拖放触发的事件进行相应的处理，OnDragEnter把某对象拖入到视图时触发，在此检测拖入的对象是不是视图想接受的对象，如是返回“DROPEFFECT_MOVE”表示接受此对象，如
if(pDataObject->IsDataAvailable(CF_HDROP))//被拖对象是文件吗？
returnDROPEFFECT_MOVE;

　　OnDragOver被拖对象在视图上移动，同OnDragEnter一样检测拖入对象，如果要接受此对象返回“DROPEFFECT_MOVE”。OnDrop拖着被拖对象在视图上放开鼠标，在这里对拖入对象做出处理；OnDragLeave拖着被拖对象离开视图。C++的代码写好了，但事情还没完，还必须在网页里用脚本对拖放事件进行处理，即页面里哪个元素要接受拖放对象哪个元素就要处理ondragenter、ondragover、ondrop，代码其实很简单，让事件的返回值为false即可，这样C++的代码才有机会处理拖放事件，代码如下：
......
<tdondragenter="event.returnValue=false"ondragover="event.returnValue=false"/
ondrop="event.returnValue=false">
......

　　如果要使整个视图都接受拖放，则在Body元素中处理此三个事件。注意：别忘了让工程对OLE的支持即在初始化应用程序时调用AfxOleInit()。

　　怎样禁止网页元素的选取

　　用网页做界面时多数情况下是不希望网页上的元素是能够被鼠标选中的，要使网页元素不能被选中做法是：给浏览器的“宿主信息标记”加上DOCHOSTUIFLAG_DIALOG标记。

　　“宿主信息标记”用N个标记位来控制浏览器的许多性质，如：
禁用浏览器的3D的边缘；
禁止滚动条；
禁用脚本；
定义双击处理的方式；
禁用浏览器的自动完成功能；
　　......更多详情请参考MSDN的DOCHOSTUIFLAG帮助。

　　怎样修改“宿主信息标记”？

　　在CDocHostSite中实现IDocHostUIHandler，在GetHostInfo方法中调用浏览器的OnGetHostInfo虚函数，在虚函数OnGetHostInfo中便可指定“宿主信息标记”，如：

HRESULTCLhpHtmlView::OnGetHostInfo(DOCHOSTUIINFO*pInfo)
{
pInfo->cbSize=sizeof(DOCHOSTUIINFO);
pInfo->dwFlags=DOCHOSTUIFLAG_DIALOG|
DOCHOSTUIFLAG_THEME|
DOCHOSTUIFLAG_NO3DBORDER|
DOCHOSTUIFLAG_SCROLL_NO;
pInfo->dwDoubleClick=DOCHOSTUIDBLCLK_DEFAULT;

returnS_OK;
}

　　用脚本也可实现：在Head中加入脚本:
document.onselectstart=newFunction(’’returnfalse’’);

　　或者
<bodyonselectstart="returnfalse">。

　　其它

　　在CLhpHtmlView中还提供了几个函数，修改网页元素的内容：
BOOLPutElementHtml(CStringElemID,CStringHtml);
　　取表单元素的值：
BOOLGetElementValue(CStringElemID,CString&Value);

　　设置表单元素的值：
BOOLPutElementValue(CStringElemID,CStringValue);

　　给表单元素设置焦点：
voidElementSetFocus(CStringEleName);