久久夜色精品国产www,久久久久久久97,国产精品久久久久免费a∨

ATL 实现定制�?IE ��览器栏、工��h��和桌面工��h��

Mon, 30 Jul 2007 08:00:00 GMT

ATL 实现定制�?IE ��览器栏、工��h��和桌面工��h��

作者：(x��)杨老师

下蝲源代�?/font>

关键�?/strong>�Q�Band�Q�Desk Band�Q�Explorer Band�Q�Tool Band�Q�浏览器栏，工具栏，桌面工具�?br>
一、引�a�
　　最�q�，�׃��工作的要求，我需要在 IE 上做一些开发工作。于是在 MSDN 上翻阅了一些资料，�Ҏ(gu��)�� MSDN 上的说明我用 ATL 胜利完成�?#8220;资本家老板”分配的�Q务�?br>�Q��ƈ且在白天睡觉的过�E�中梦到了老板�l�我加工资啦......�Q?br>现在�Q�我�?MSDN 上的原文资料�Q�经�q�翻译整理�ƈ把一�?ATL 的实现奉贤给 VCKBASE 上的朋友们�?/p>

原理
 基本band 对象
 必须实现�?COM 接口
    IPersistStream
    IObjectWithSite
    IDeskBand、IDockingWindow、IOleWindow
选择实现�?COM 接口
 Band 对象注册
ATL 实现

　　在翻译的�q�程中，有两个词汇非�怸�好理解。第一个词�?Band 对象�Q�词�怸��译�?#8220;镶边、裙子边、带子、乐�?.....”我的英文水��^有限�Q�实在不知道应该��译��Z��么词汇更合适。于是我毅然决然地决定：(x��)在如下的��中，依然使用 band �q�个词！�Q�什么？没听明白�Q�我的意思就是说�Q�我不翻译这个词了）但到�?Band 对象应该如何理解那？��L(f��ng)��图一�Q?br>

图一

　　图一中画�U�圈的地方，分别�U�C��“垂直的浏览器�?#8221;�?#8220;水��^的浏览器�?#8221;�?#8220;工具�?#8221;�?#8220;桌面工具�?#8221;。这�?#8220;�?#8221;�Q�都可以�?IE �?#8220;查看”菜单中或鼠标右键的上下文快捷方式菜单中显�C�或隐藏��h��。这些界面窗口的实现�Q�其实就是实��C��U?COM 接口对象�Q�而这个对象叫 band。这个概念实在是只能意会(x��)而无法言传的�Q�我��M��能在文章中把它翻译�ؓ(f��)“��L��靠在 IE �ȝ��口边上的对象”吧？^_^
　　另外�Q�还有一个词�?site。这个很好翻译，�?#8220;站点”�Q�。呵呵，我敢打包��，如果你要能理解这个翻译在计算机类文章中的含义�Q�那��只能恭喜你了，你的智慧太高了。（都是学计��机软�g的�h�Q�做人的差距咋就�q�么大呢�Q�）在本��文章中�Q�site 可以�q�样理解�Q�IE 的主框架四周�Q�就好比�?#8220;汽�R�?#8221;�Q�那�?band 对象�Q�就好比�?#8220;汽�R”。band 汽�R��L��可以停靠�?#8220;汽�R�?#8221;上。所以，site ��是“站点”�Q�它也是 COM 接口的对象（IObjectWithSite、IInputObjectSite�Q��?br>

3.1　基本 band 对象
　　Band 对象�Q�从 Shell 4.71(IE 5.0) 开始提供支持。Band 是一�?COM 对象�Q�必��L��在一个容器中��M��用，当然使用它们��好象��用普通窗口是一��L(f��ng)��。IE ��是一个容器，桌面 Shell 也是一个容器，它们提供不同的函数功能，但基本的实现是相似的�?br>　　Band 对象分三�U�类型，��览器栏 band�Q�Explorer bands�Q�、工��h�� band�Q�Tool Bands�Q�和桌面工具�?Desk bands)�Q�而浏览器�?band 又有两种表现形式�Q�垂直和水��^的。那�?IE �?Shell 如何区分�q�加载这�?bands 对象呢？�Ҏ(gu��)��是：(x��)你要对不同的 band 对象�Q�在注册表中注册不同的组件类型（CATID�Q��?br>

Band 样式

�l��g�c�d��

CATID

垂直的浏览器�?/td> CATID_InfoBand 00021493-0000-0000-C000-000000000046

水��^的浏览器�?/td> CATID_CommBand 00021494-0000-0000-C000-000000000046

桌面的工��h�� CATID_DeskBand 00021492-0000-0000-C000-000000000046

　　IE 工具栏不使用�l��g�c�d��注册�Q�而是使用在注册进�?CLSID 的登记方式。详�l�情况见 3.3�?br>　　在例子程序中�Q�实��C��全部四个�c�d��?band 对象�Q�垂直浏览器�?CVerticalBar)昄��了一�?HTML 文�g�Q��ƈ且实��C��?IE �ȝ��口浏览网��늚��D��{�功能；水��^的浏览器�?CHorizontalBar)是一个编辑窗�Q�它同步昄��当前�|�页�?BODY 源文件内容；IE 工具�?CToolBar)最��单，只是��d��了一个空的工��h��Q�桌面工��h��(CDeskBar)实现了一个单行编辑窗口，你可以在上面输入命��o(h��)行或文�g名称�Q�回车后它会(x��)执行 Shell 的打开动作�?br>
3.2　必须实现�?COM 接口
　　Band 对象�?IE �?Shell 的进�E�内服务器，所以它被包装在 DLL 中。而作�?COM 对象�Q�它必须要实�?IUnknown �?IClassFactory 接口。（大家可以不同操心�Q�因为我们用 ATL 写程序，�q�两个接口是不用我们自己写代码的。）另外�Q�Band 对象�q�必��d��?IDeskBand、IObjectWithSite �?IPersistStream 三个接口�Q?br>　　IPersistStream 是持�l�性接口的一�U�。当 IE 加蝲 band 对象的时候，它通过�q�个接口�?Load �Ҏ(gu��)��传递属性值给对象�Q�让其进行初始化�Q�而当卸蝲前，IE 则调用这个接口的 Save �Ҏ(gu��)��保存对象的属性。用 ATL 实现�q�个接口很简单：(x��)

class ATL_NO_VTABLE Cxxx : ...... public IPersistStreamInitImpl, // ��d��l�承 ......{public: BOOL m_bRequiresSave; // IPersistStreamInitImpl 所必须的变�?.....BEGIN_COM_MAP(CVerticalBar) ...... COM_INTERFACE_ENTRY2(IPersist, IPersistStreamInit) COM_INTERFACE_ENTRY2(IPersistStream, IPersistStreamInit) COM_INTERFACE_ENTRY(IPersistStreamInit) ......END_COM_MAP()BEGIN_PROP_MAP(Cxxx)...... // ��d��需要持�l�性的属性END_PROP_MAP()
　　上面的代码，其实实现的是 IPersistStreamInit 接口�Q�不�q�没有关�p�，因�ؓ(f��) IPersistStreamInit �z��?IPersistStream�Q�实例化了派生类�Q�自然就实例化了基类。在例子�E�序中，我只在桌面工��h��对象中添加了持箋性属性，用来保存和初始化“命��o(h��)�?#8221;。另�?COM_INTERFACE_ENTRY2(A�Q�B)表示的含义是�Q�如果想查询A接口的指针，则提供B接口指针来代�ѝ��ؓ(f��)什么可以这样那�Q�因为B接口�z��自A接口�Q�那么B接口的前几个函数必然��是A接口的函��C��Q�自然B接口的地址其实和A接口的地址是一��L(f��ng)��了�?br>　　IObjectWithSite �?IE 用来�Ҏ(gu��)��件进行管理和通讯用的一个接口。必��要实现�q�个接口�?个函敎ͼ�(x��)SetSite() �?GetSite()。当 IE 加蝲 band 对象和释�?band 对象的时候，都要调用 SetSite()函数�Q�那么在�q�个函数里正好是写初始化和释放操作代码的地方�Q?
STDMETHODIMP Cxxx::SetSite(IUnknown *pUnkSite){ if( NULL == pUnkSite ) // 释放 band 的时�?{ // 如果加蝲的时候，保存了一些接�? // 那么现在�Q�释攑֮� } else // 加蝲 band 的时�?{ m_hwndParent = NULL; // 装蝲 band 的父�H�口(��是带有标题的那个框架窗�? // �q�个�H�口的句柄，是调�?IUnknown::QueryInterface() 得到 IOleWindow // 然后调用 IOleWindow::GetWindow() 而获得的�? CComQIPtr< IOleWindow, &IID_IOleWindow > spOleWindow(pUnkSite); if( spOleWindow ) spOleWindow->GetWindow(&m_hwndParent); if( !m_hwndParent ) return E_FAIL; // 现在�Q�正好是建立子窗口的时机�? // 注意�Q�子�H�口建立的时候，不要使用 WS_VISIBLE 属�? ... ... // 在例子程序中�Q�用 CAxWindow 实现了一个能包容ActiveX的容器窗�?垂直��览器栏) // 在例子程序中�Q�用 WIN API 函数 CreateWindow 实现了标准窗�?水��^��览器栏、工��h��) // 在例子程序中�Q�用 CWindowImpl 实现了一个包容窗�?桌面工具�? /*********************************************************/ 以下部分�Q�根�?band 对象�Ҏ(gu��)��的功能，是可以选择实现�? **********************************************************/ // 如果子窗口实��C��用户输入�Q�那么必��d��?IInputObject 接口�Q? // 而该接口是被 IE �?IInputObjectSite 调用的，因此在你的对�? // 中，应该保存 IInputObjectSite 的接口指针�? // 在类的头文�g中，定义�Q? // CComQIPtr< IInputObjectSite, &IID_IInputObjectSite > m_spSite; m_spSite = pUnkSite; // 保存 IInputObjectSite 指针 if( !m_spSite ) return E_FAIL; // 你需要控�?IE 的主框架吗？ // 那么在类的头文�g中，定义�Q? // CComQIPtr< IWebBrowser2, &IID_IWebBrowser2 > m_spFrameWB; // 然后�Q�先取得 IServiceProvider,再取�?IWebBrowser2 CComQIPtr < IServiceProvider, &IID_IServiceProvider> spSP(pUnkSite); if( !spSP ) return E_FAIL; spSP->QueryService( SID_SWebBrowserApp, &m_spFrameWB ); if( !m_spFrameWB) return E_FAIL; // 如果你取得了 IE ��L��架的 IWebBrowser2 指针 // 那么�Q�当它发生了什么事情，你难道不想知道吗�Q? // 定义�Q�CComPtr m_spCP; CComQIPtr< IConnectionPointContainer, &IID_IConnectionPointContainer> spCPC( m_spFrameWB ); if( spCPC ) { spCPC->FindConnectionPoint( DIID_DWebBrowserEvents2, &m_spCP ); if( m_spCP ) { m_spCP->Advise( reinterpret_cast< IDispatch * >( this ), &m_dwCookie ); } } // 咳~~~ 不说了，看源码去吧。这里能�q�的事情太多�?.. ... } return S_OK;}
IDeskBand 是一个特�D�的 band 对象接口�Q�有一个方法函敎ͼ�(x��)GetBarInfo()�Q?br>IDockingWindow �?IDeskBank 的基�c�，�?个方法函敎ͼ�(x��)ShowDW()、CloseDW()、ResizeBorderDW()�Q?br>IOleWindow 又是 IDockingWindow 的基�c�，�?个方法函敎ͼ�(x��)GetWindow()、ContextSensitiveHelp()�Q?

　　首先声明 IDeskBand ,然后要实�?IDeskBand 接口的共6个函敎ͼ��q�些函数比较��单，不同�c�d��?band 对象�Q�其实现�Ҏ(gu��)��也都基本一��_(d��)��(x��)
class ATL_NO_VTABLE Cxxx : ...... public IDeskBand, ......{......BEGIN_COM_MAP(Cxxx) ...... COM_INTERFACE_ENTRY_IID(IID_IDeskBand, IDeskBand) ......END_COM_MAP()// IOleWindowSTDMETHODIMP Cxxx::GetWindow(HWND * phwnd){ // 取得 band 对象的窗口句�?// m_hWnd 是徏立窗口时候保存的 *phwnd = m_hWnd; return S_OK;}STDMETHODIMP Cxxx::ContextSensitiveHelp(BOOL fEnterMode){ // 上下文帮助，参�?IContextMenu 接口 return E_NOTIMPL;}// IDockingWindowSTDMETHODIMP CVerticalBar::ShowDW(BOOL bShow){ // 昄��或隐�?band �H�口 if( m_hWnd ) ::ShowWindow( m_hWnd, bShow ? SW_SHOW : SW_HIDE); return S_OK;}STDMETHODIMP CVerticalBar::CloseDW(DWORD dwReserved){ // 销�?band �H�口 if( ::IsWindow( m_hWnd ) ) ::DestroyWindow( m_hWnd ); m_hWnd = NULL; return S_OK;}STDMETHODIMP CVerticalBar::ResizeBorderDW(LPCRECT prcBorder, IUnknown* punkToolbarSite, BOOL fReserved){ // 当框架窗口的�Ҏ(gu��)��大小改变�?return E_NOTIMPL;}// IDeskBandSTDMETHODIMP CVerticalBar::GetBandInfo(DWORD dwBandID, DWORD dwViewMode, DESKBANDINFO* pdbi){ // 取得 band 的基本信息，你需要填�?pdbi 参数作�ؓ(f��)�q�回 if( NULL == pdbi ) return E_INVALIDARG; // 如果��来需要调�?IOleCommandTarget::Exec() 则需要保存这2个参�?m_dwBandID = dwBandID; m_dwViewMode = dwViewMode; if(pdbi->dwMask & DBIM_MINSIZE) { // 最��尺�? pdbi->ptMinSize.x = 10; pdbi->ptMinSize.y = 10; } if(pdbi->dwMask & DBIM_MAXSIZE) { // 最大尺�?(-1 表示 4G) pdbi->ptMaxSize.x = -1; pdbi->ptMaxSize.y = -1; } if(pdbi->dwMask & DBIM_INTEGRAL) { pdbi->ptIntegral.x = 1; pdbi->ptIntegral.y = 1; } if(pdbi->dwMask & DBIM_ACTUAL) { pdbi->ptActual.x = 0; pdbi->ptActual.y = 0; } if(pdbi->dwMask & DBIM_TITLE) { // �H�口标题 wcscpy(pdbi->wszTitle,L"�H�口标题"); } if(pdbi->dwMask & DBIM_MODEFLAGS) { pdbi->dwModeFlags = DBIMF_VARIABLEHEIGHT; } if(pdbi->dwMask & DBIM_BKCOLOR) { // 如果使用默认的背景色�Q�则�U�除该标�? pdbi->dwMask &= ~DBIM_BKCOLOR; } return S_OK;}
3.3　选择实现�?COM 接口
　　有两个接口不是必��d��现的�Q�但也许很有用：(x��)IInputObject �?IContextMenu。如�?band 对象需要接收用��L(f��ng)��输入�Q�那么必��d��?IInputObject 接口。IE 实现�?IInputObjectSite 接口�Q�当容器中有多个输入�H�口�Ӟ��它调�?IInputObject 接口�Ҏ(gu��)��去负责管理用��L(f��ng)��输入焦点�?br>在浏览器栏中需要实�?个函敎ͼ�(x��)UIActivateIO()、HasFocusIO()、TranslateAcceleratorIO()�?br>当浏览器栏激�z�L��失去�z�L��的时候，IE 调用 UIActivateIO 函数�Q�当�Ȁ�zȝ��时候，��览器栏一般调�?SetFocus 去设�|�它自己�H�口的焦炏V��当 IE 需要判断哪个窗口有焦点的时候，它调�?HasFocusIO 。当��览器栏的窗口或其子�H�口有输入焦�Ҏ(gu��)��Q�则应返�?S_OK�Q�否则返�?S_FALSE。TranslateAcceleratorIO 允许对象处理加速键�Q�例子程序中没有实现�Q�所以直接返�?S_FALSE�?
STDMETHODIMP CExplorerBar::UIActivateIO(BOOL fActivate, LPMSG pMsg){ if(fActivate) SetFocus(m_hWnd); return S_OK;}STDMETHODIMP CExplorerBar::HasFocusIO(void){ if(m_bFocus) return S_OK; return S_FALSE;}STDMETHODIMP CExplorerBar::TranslateAcceleratorIO(LPMSG pMsg){ return S_FALSE;}
　　Band 对象能够通过包容器的 IOleCommandTarget::Exec() 调用执行命��o(h��)。�?IOleCommandTarget 接口指针�Q�则可以通过调用包容器的 IInputOjbectSite::QueryInterface�Q�IID_IOleCommandTarget,...�Q?函数得到。CGID_DeskBand 是命令组�Q�当一�?band 对象�?GetBandInfo 被调用的时候，包容器通过 dwBandID 参数指定一�?ID �l?band 对象�Q�对象要保存住这个ID�Q�以便调�?IOleCommandTarget::Exec()的时候��用。ID 的命令有�Q?

DBID_BANDINFOCHANGED
Band 的信息变化。设�|�参�?pvaIn �?band ID�Q?�?ID ��是最�q�一�ơ调�?GetBandInfo 所得到的��|��容器�?x��)调�?band 对象�?GetBandInfo 函数来更新请求信息�?
DBID_MAXIMIZEBAND
最大化 band。设�|�参�?pvaIn �?band ID�Q�该 ID ��是最�q�一�ơ调�??GetBandInfo ?所得到的倹{�?
DBID_SHOWONLY
打开或关闭容器中其它�?bands�?讄��参数 pvaIn 为VT_UNKNOWN �c�d��Q�它可以是如下的��|��(x��)
　

�?/font> 描述

pUnk band 对象�?IUnknown 指针�Q�其它的桌面 bands ��被隐藏

0 隐藏所有的桌面 bands

1 昄��所有的桌面 bands

DBID_PUSHCHEVRON
在菜单项左边昄��“v”的选择标志。容器发送一�?RB_PUSHCHEVRON 消息�Q�当 band 对象接收到通知消息 RBN_CHEVRONPUSHED 提示它显�C�Z��?v"的标志。设�|?IOleCommandTarget::Exec 函数�?nCmdExecOpt 参数�?band ID�Q�该 ID 是最�q�一�ơ调�?GetBandInfo ?所得到的��|��讄�� IOleCommandTarget::Exec 函数�?pvaIn 参数�?VT_I4 �c�d��Q�这是应用程序定义的一个��|��它通过通知消息 RBN_CHEVRONPUSHED 中lAppValue 回传�l?band 对象�?

3.4　Band 对象注册
　　Band 对象必须注册��Z��?OLE �q�程内的服务器，�q�且支持 apartment �U�程公寓。注册表中默认键的值是表示菜单的文字。对于浏览器栏，它加�?IE 菜单�?#8220;查看\��览器栏”中；对于工具�?band �Q�它加到 IE 菜单�?#8220;查看\工具�?#8221;中；对于桌面 band�Q?它加到系�l��Q务栏的快捯��单中。在菜单资源中，可以使用“&”指明加速键�?br>
通常�Q�一个基本的 band 对象的注册表��目是：(x��)

HKEY_CLASSES_ROOT
CLSID
{你的 band 对象�?CLSID}
　　(Default) = 菜单的文�?
　　InProcServer32
　　　(Default) = DLL 的全路径文�g�?
　　　ThreadingModel= Apartment

工具�?bands �q�必��L��它们�?CLSID 注册�?IE 的注册表中�?br>
�?HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Toolbar 下给�?CLSID 作�ؓ(f��)键名�Q�而其键值是被忽略的�?br>
HKEY_LOCAL_MACHINE
Software
Microsoft
Internet Explorer
Toolbar
　　{你的 band 对象�?CLSID}

　　�q�有几个可选的注册表项�?例子�E�序�q�不是这样实现的)。比如，你想让浏览器栏显�C?HTML 的话�Q�必��要如下讄��注册表：(x��)

HKEY_CLASSES_ROOT
CLSID
{你的 Band 对象�?CLSID}
Instance
CLSID
　　(Default) = {4D5C8C2A-D075-11D0-B416-00C04FB90376}

同时�Q�如果要指定一个本地的 HTML 文�g�Q�那么要如下讄��Q?

HKEY_CLASSES_ROOT
CLSID
{你的 Band 对象�?CLSID}
Instance
InitPropertyBag
　　Url

　　另外�Q�还可以指定��览器栏的宽和高�Q�当�Ӟ��它是依赖于这个栏是纵向还是横向的。其实这个项目无所谓，因�ؓ(f��)当用戯��整了��览器栏的大��后�Q�会(x��)自动保存在注册表中的�?br>
HKEY_CURRENT_USER
Software
Microsoft
Internet Explorer
Explorer Bars
{你的 Band 对象�?CLSID}
　　BarSize

　　BarSize 键的�c�d��必须�?REG_BINARY �c�d��Q�它�?个字节。左起前4个字节，是用16�q�制表示的像素宽度或高度�Q�后4个字节保留，你应该设�|��ؓ(f��)0。下面是一个可以在��览器栏上显�C?HTML 文�g的全部注册表��目的例子，默认宽度�?91�Q?x123�Q�个像素点：(x��)

HKEY_CLASSES_ROOT
CLSID
{你的 Band 对象�?CLSID}
　(Default) = 菜单文字
　InProcServer32
　　(Default) = DLL 的全路径文�g�?
　　ThreadingModel= Apartment
Instance
CLSID
　　(Default) = {4D5C8C2A-D075-11D0-B416-00C04FB90376}
InitPropertyBag
　　Url= 你的 HTML 文�g�?br>
HKEY_CURRENT_USER
Software
Microsoft
Internet Explorer
Explorer Bars
{你的 Band 对象�?CLSID}
　　BarSize= 23 01 00 00 00 00 00 00

　　对于注册表的讄��Q�用 ATL 实现其实是异常简单的。打开工程�?xxx.rgs 文�g�Q��ƈ手工�~�辑一下就可以了�?下面�q�个文�g源码�Q�是例子�E�序�?IE 工具栏的注册表样式，HKLM 是需要手工添加的�Q�因为它不��用组件类型方式注册。而对于其它类型的 band 对象只要在类声明中添加：(x��)

BEGIN_CATEGORY_MAP(Cxxx) // 向注册表中注�?COM �c�d�� IMPLEMENTED_CATEGORY(CATID_InfoBand) // 垂直样式的浏览器栏END_CATEGORY_MAP()
IE 工具栏类�?band 对象�?#8220;.rgs”文�g
HKCR // �q�个��目�?ATL 帮你生成的，你只要手工修�?#8220;菜单上的文字”��可以了{ Bands.ToolBar.1 = s ''ToolBar Class'' { CLSID = s ''{ 你的 CLSID }'' } Bands.ToolBar = s ''ToolBar Class'' { CLSID = s ''{ 你的 CLSID }'' CurVer = s ''Bands.ToolBar.1'' } NoRemove CLSID { ForceRemove { 你的 CLSID } = s ''用在菜单上的文字(&T)'' { ProgID = s ''Bands.ToolBar.1'' VersionIndependentProgID = s ''Bands.ToolBar'' ForceRemove ''Programmable'' InprocServer32 = s ''%MODULE%'' { val ThreadingModel = s ''Apartment'' } ''TypeLib'' = s ''{xxxx-xxxx-xxxxxxxxxxxxxxx}'' } }}HKLM // �q�个��目是手工添加的IE工具栏所�Ҏ(gu��)��的{ Software { Microsoft { ''Internet Explorer'' { NoRemove Toolbar { ForceRemove val { 你的 CLSID } = s ''随便�l�个说明性文字串'' } } } }}
四�?ATL 实现
　　下蝲代码�?VC 6.0 工程)�Q�请参照前面的说明仔�l�阅读，代码中也有一些关键点的注释。如果想�q�行�Q�则可以�?regsvr32.exe �q�行注册�Q�然后打开 IE ��览器或资源��览器就可以看到效果了。如果想自己实践一下，可以按照如下的步骤构造工�E�：(x��)

4.1　建立一�?ATL DLL 工程
4.2　��d�� New ATL Object...�Q�选择 Internet Explorer Object�Q�选这个类型的目的是让向导�l�我们添�?IObjectWithSite 的支持。如果你使用的是 .net 环境�Q�则不要忘记选择支持�q�个接口�?br>

4.3　输入对象名称�Q�比如我惛_��立一个垂直的��览器栏�Q�不妨叫�?VerBar

4.4　�U�程模型必须选择 Apartment�Q�接口类型的选择无所谓，看你想不��x��?IDispatch 接口功能了。在例子�E�序中的垂直��览器栏中，�׃��x��单的操纵 IE 和从 IE 中接受事�Ӟ��q�接点）�Q�选择 Dual 是必要的。聚合选项�Q�你只要别选择 Only ��可以了�?br>

4.5　展现你无�I�L(f��ng)��智慧�Q�开始输入程序吧。如果是 Debug 方式�~�译�Q�可能会(x��)出现一个连接错误，报告找不到_AtlAxCreateControl�Q�那么你要在菜单 Project\Settings...\Link 中增加对 Atl.lib 的连接。或者��?#pragma comment ( lib, "atl" )加入�q�接库�?br>4.6　如果惌��试代码，在菜�?Project\Settings...\Debug 中输�?IE 的�\径名�U�ͼ�比如�Q?#8220;C:\Program Files\Internet Explorer\IEXPLORE.EXE”�Q�然后就可以跟踪断点调试了�?�~�译和调试桌面工��h��?band 对象�Q�是非常�ȝ��的，因�ؓ(f��)计算机启动时自动�q�行 Shell�Q��?Shell ��׃��(x��)加蝲�z�d��的桌面对象�?br>
五、结束语
好了�Q�到�q�里�Q�就到这里了。祝大家学习(f��n)快乐^_^

旅�?/a> 2007-07-30 16:00 发表评论

�?/font>	描述
pUnk	band 对象�?IUnknown 指针�Q�其它的桌面 bands ��被隐藏
0	隐藏所有的桌面 bands
1	昄��所有的桌面 bands

Sun, 29 Jul 2007 07:40:00 GMT

关键�?/strong> �Q�超�U�拖放，GetDropTarget�Q�ondragover�Q�IHTMLDataTransfer

1、概�q?/font>

许多多窗口浏览器都提供了一�U�被�U�Cؓ(f��)“��拖放”�Q�或“��拖拽”�?#8220;随心拖放”�{�等�Q�不一而��Q�的功能。作为对IE拖拽行�ؓ(f��)�Ҏ(gu��)��展，“��拖放”实现了一些非常实用的功能�Q?/font>

拖放�|�页链接�Q�通常是在新窗口中打开

拖放选中的文字：(x��)保存文字、作为关键字通过搜烦引擎搜烦�|�络、作为Url打开�{?

拖放囄��Q�通常是保存图片到指定文�g�?

当然�Q�还有很关键的一点：(x��)拖动对象旉��标指针反馈不同的拖拽效果

在�?/font>Internet Explorer �~�程��q�ͼ�十）响应来自HTML Element的事仉��知——几个好用的�c?/font>》中曾提刎ͼ��管许多��览器都提供了超�U�拖攄��功能�Q�但与IE的缺省实现相比，除了具备鼠标指针拖拽效果外，�q�没有哪个浏览器的实现能够实玎ͼ�(x��)

文字在页面内与输入框之间的交互拖放（�q�一�Ҏ(gu��)��为重要）

来自外部的文字与�|�页输入框之间的交互拖放

拖拽时滚动页面（�q�一�Ҏ(gu��)��被忽略了�Q?

本文的目的，一是介�l�实现超�U�拖攄��两种�Ҏ(gu��)��Q�二是说明如何实�?#8220;完美”的拖�䏀�—即扩展IE拖拽行�ؓ(f��)的同�Ӟ��保留IE默认的拖拽行为。三是给��Z��个最为直接和��z�的实现�Q�至于拖放不同的对象以实��C��同的功能�Q�不在本文讨论的范围�Q�略厅R�?/font>

2、标准的实现�Ҏ(gu��)��

标准�Ҏ(gu��)��即通过IDocHostUIHandler的GetDropTarget成员函数来实玎ͼ�在MSDN�q�样说到�Q?/font>

IDocHostUIHandler::GetDropTarget Method——Called by MSHTML when it is used as a drop target. This method enables the host to supply an alternative IDropTarget interface.

�? 在适当的时候，MSHTML引擎�?x��)调用IDocHostUIHandler的GetDropTarget�Ҏ(gu��)��Q��ؓ(f��)应用�E�序提供一个机�?x��)来替换MSHTML �~�省的DropTarget实现。我们就可以通过�q�个自定义的DropTarget实现来完成上�q�的“��拖放”功能。方法示例如�?其中略去的部分可�? 考MFC中CHtmlControlSite和CHtmlView的源代码�Q?/font>

STDMETHODIMP CHtmlControlSite::XDocHostUIHandler::GetDropTarget(

LPDROPTARGET pDropTarget, LPDROPTARGET* ppDropTarget)

{

METHOD_PROLOGUE_EX_(CHtmlControlSite, DocHostUIHandler)

*ppDropTarget = g_pDropTarget;//��自定义的实现告知MSHTML引擎

return S_OK;

}

�? 中g_pDropTarget指向某个全局的IDropTarget接口的实玎ͼ�我们假定为CIEDropTarget�Q�CIEDropTarget实现了IDropTarget的几个成员函数DragEnter、DragOver、DragLeave和Drop。在DragEnter中可以决定是否接�? 一个Drop以及如果接受�q�个Drop的话该提供怎样的鼠标拖拽反馈，在持�l�触发的DragOver中同样可以设定鼠标拖拽反馈，从而实现在拖放不同的对象（文字、链接、图像等�Q�时提供不同的拖拽视觉效果，实现相当��单，此处不再赘述�?/font>

�? 上面的实现存在一些问题。首先是选中的文字在��面内与输入框之间交互的拖放没有了。这是自然的�Q�既然我们用自定义的DropTarget替换掉了IE的缺省实玎ͼ�那这�U�交互的拖放理应由我们自己实现。难处�ƈ非在于不能实玎ͼ�而是在于实现��h��比较�ȝ��——光是得到鼠标下的HTML Element��够我们烦了�Q�当输入框中有文字的时候，光标�q�应该随着鼠标的移动而移动——所以这个费力还不一定讨好的功能��g��没有哪个��览器去做。其 �ơ，作�ؓ(f��)输入框文字拖攄��衍生物，拖拽滚动没有了。当鼠标向某个方向拖拽时�Q�网��应该随着��不可见的部分滚动出来，比如某个输入框，让我们有��Z��(x��)��文字拖拽过厅R��这个Feature的实现�ƈ不困难，不过一来是被忽略了�Q�注意到拖拽滚动的�h�q�不多）�Q�二来主要Feature都没有实玎ͼ��q�个滚动也意义不�? 了�?/font>

3、打入MSHTML内部

既然从GetDropTarget提供外部实现难以得到与输入框的交互式拖放�Q�那��换个角度来考虑问题�Q�让我们打入MSHTML的内部�?/font>

着手点是IHTMLDocumentX接口——操�U�IE的DOM的法宝。我们注意到IHTMLDocument2有个ondragstart事�g�Q�进而想�? 应该也有诸如ondragenter、ondragover、ondrop之类的事�Ӟ��事实上也是有的）�Q�如果响应这些事�Ӟ��处理同输入框的交互式拖放�? 该就能够解决。因��些拖攑֜�MSHTML的缺省DropTarget实现中发生，因而当鼠标拖拽到某个输入框上时�Q�肯定会(x��)触发一个ondragover 事�g�Q�而在IHTMLEventObj的辅助下我们能轻村־�到相关的HTML Element�Q�其它的操作��容易进行了。再�l�心一点，我们�q�发现IHTMLEventObj2接口有个dataTransfer属性——可以得��C��? IHTMLDataTransfer的指针，而IHTMLDataTransfer接口正是��览器内部用于数据交换的重要手段之一�Q�看看它的属性就知道�? 很有用了�Q�：(x��)

IHTMLDataTransfer Members

clearData——Removes one or more data formats from the clipboard through dataTransfer or clipboardData object.

dropEffect——Sets or retrieves the type of drag-and-drop operation and the type of cursor to display.

effectAllowed——Sets or retrieves, on the source element, which data transfer operations are allowed for the object.

getData——Retrieves the data in the specified format from the clipboard through the dataTransfer or clipboardData objects.

setData——Assigns data in a specified format to the dataTransfer or clipboardData object.

更进一步，从IHTMLDataTransfer接口�q�可以访问到IDataObject接口�Q�在�q�行Ole拖放�Ӟ��数据��是通过IDataObject接口来传递的。具体用法稍后讨论�?/font>

4、打入MSHTML内部——思�\

�? 供鼠标反馈效果与实现GetDropTarget的方法类��|��有了IHTMLDataTransfer接口�Q�便可在ondragstart�? ondragover事�g触发旉��过dropEffect属性设�|�拖拽的效果�Q�可�Ҏ(gu��)��需要自行设定，不设�|�的话��用默认的效果�Q�。再者，“�?#8221;�?#8220;�?#8221;�? 在MSHTML的缺省实��C��发生�Q�我们从IHTMLEventObj的SrcElement卛_��得知鼠标所位置的HTML Element是否是输入框�?/font>

5、打入MSHTML内部——实�?/font>

要接收到ondragstart之类的事�Ӟ��可以采用�?/font>Internet Explorer �~�程��q�ͼ�十）响应来自HTML Element的事仉��知——几个好用的�c?/font>》中提到的CHtmlObj�c�d��CHtmlElements�c�，�q�在适当的地方连接到Document�Q�示例代码如下所�C�：(x��)

HRESULT CHtmlDocument2::OnInvoke(DISPID dispidMember, REFIID riid, LCID lcid, WORD wFlags,

DISPPARAMS * pdispparams, VARIANT * pvarResult,EXCEPINFO * pexcepinfo,

UINT * puArgErr)

{

......

//如果只是要设�|�鼠标拖拽效果的话，�q�个事�g可以不处�?/font>

case DISPID_HTMLELEMENTEVENTS_ONDRAGSTART :

{

OnDragStart();

break ;

}

//重点在这�?/font>

case DISPID_HTMLELEMENTEVENTS_ONDRAGOVER :

{

OnDragOver();

break ;

}

case DISPID_HTMLELEMENTEVENTS_ONDROP :

{

OnDrop();

break ;

}

......

}

void CHtmlDocument2::OnDragOver( void )

{

SetDragEffect();               //讄��鼠标拖拽效果

}

void CHtmlDocument2::SetDragEffect( void )

{

CComQIPtr pWindow;

CComQIPtr pEventObj;

CComQIPtr pEventObj2;

CComQIPtr pElement;

HRESULT hr = m_spHtmlObj->get_parentWindow( &pWindow );

hr = pWindow->get_event( &pEventObj );

//ondragover发生时IE的默认行为是“没有鼠标拖拽效果”�?/font>

//��IHTMLEventObj的返回��D��为false卛_��取消该事件的默认行�ؓ(f��)�Q�所以执行完下面�q�句话，拖拽效果��出��C��?/font>

AllowDisplayDragCursor(pEventObj, FALSE);

CComBSTR bstrTagName;

pEventObj->get_srcElement(&pElement);    //获得当前HTML Element

pElement->get_tagName(&bstrTagName);

if ( IsEditArea(bstrTagName) ) //�Ҏ(gu��)��Tag Name判断是否鼠标位于输入框，以便讄��焦点使得光标随鼠标移�?/font>

{

CComQIPtr pElement2;

if ( SUCCEEDED(pElement->QueryInterface(IID_IHTMLElement2, (void **) &pElement2 ))

&& pElement2 )

{

pElement2->focus();

}

//默认情况下，当拖拽文档到输入框时�Q�鼠标会(x��)变成拖拽的光标，所以这里��用IE的默认行为�?/font>

AllowDisplayDragCursor(pEventObj, TRUE);

}

}

BOOL CHtmlDocument2::IsEditArea(CComBSTR bstrTagName)

{

return bstrTagName == "INPUT" || bstrTagName == "TEXTAREA";

}

void CHtmlDocument2::AllowDisplayDragCursor(CComQIPtr pEventObj, BOOL bAllow)

{

VARIANT v;

v.vt = VT_BOOL;

v.boolVal = !bAllow ? VARIANT_FALSE : VARIANT_TRUE;

pEventObj->put_returnValue(v);

}

void CHtmlDocument2::OnDrop( void )

{

CComQIPtr pWindow;

CComQIPtr pEventObj;

CComQIPtr pEventObj2;

CComQIPtr pElement;

CComQIPtr   pdt; //此处演示如何使用IHTMLDataTransfer

HRESULT hr = m_spHtmlObj->get_parentWindow( &pWindow );

hr = pWindow->get_event( &pEventObj );

hr = pEventObj->QueryInterface(IID_IHTMLEventObj2, (void **) &pEventObj2 );

hr = pEventObj2->get_dataTransfer(&pdt);

CComBSTR bstrFormat = "URL"; //首先��试获取URL

VARIANT Data;

hr = pdt->getData(bstrFormat, &Data);

if ( Data.vt != VT_NULL )

{     //获取成功�Q�拖攄��对象是Url

DoOpenUrl(CString(Data.bstrVal));

}

else

{     //否则��试获取选中的文�?/font>

bstrFormat = "Text";

hr = pdt->getData(bstrFormat, &Data);

if ( Data.vt != VT_NULL )

{     //获取成功�Q�拖攄��内容是文�?/font>

CComBSTR bstrTagName;

pEventObj->get_srcElement(&pElement);

pElement->get_tagName(&bstrTagName);

if ( IsEditArea(bstrTagName) )

{

//Drop target是输入框�Q�不做�Q何操作，由IE�q�行默认处理

return ;

}

else

{     //否则我们自己处理文本�Q�或保存�Q�或��是否链接后打开�Q�等�{?/font>

DoProcessText(CString(Data.bstrVal));

//Process the text

}

}

else

{     //既不是链接，也不是文本，可认为是来自外部�Q�如Windows Shell�Q�的文�g拖放

DoOnDropFiles(pdt);

}

}

}

//演示如何从IHTMLDataTransfer得到IDataObject

void CHtmlDocument2::DoOnDropFiles(CComQIPtr pDataTransfer)

{

CComQIPtr psp;

CComQIPtr pdo;

if ( FAILED(pDataTransfer->QueryInterface(IID_IServiceProvider, (void **) &psp)) )

{

return ;

}

if ( FAILED(psp->QueryService(IID_IDataObject, IID_IDataObject, (void **) &pdo)) )

{

return ;

}

COleDataObject DataObject;

DataObject.Attach(pdo);

......

}

6、再�ơ回到标准方�?/font>

�? �q�通过Event Sink响应�|�页拖拽的方法已�l�能够很好地工作�Q�可�?#8220;��于完美”了，但仍有两�?#8220;��?#8221;问题�Q�第一�Q�必��M��document建立�q�接才能工作�Q�而徏立连�? 的时��Z��Ҏ(gu��)��掌握�Q�MSDN中推荐的位置是DocumentComplete�Q�但在NavigateComplete中也可，或者是��到 WebBrowser的readystate变�ؓ(f��)READYSTATE_INTERACTIVE时进行连接）。第二，实现�Ҏ(gu��)��q�是略显复杂�?/font>

有没有更��单的�Ҏ(gu��)��呢？我决定再�ơ对GetDropTarget�q�行“调研”。所�?#8220;�t�破铁鞋无觅处，得来全不费功�?#8221;�Q�晃了一眼GetDropTarget�Ҏ(gu��)��的声明后�Q�灵��Z��动，我忽然想��C��办法。事实证明，�q�是完美的解军_��法�?/font>

�? 我们再来看看GetDropTarget的声明，其中�W�一个参数指向MSHTML提供的缺省DropTarget实现�Q�而第二个参数用以�q�回应用�E�序的自定义DropTarget实现�Q�如果在GetDropTarget中返回S_OK�Q�MSHTML��以应用�E�序提供的自定义DropTarget替换�~�省�? DropTarget实现�?/font>

HRESULT GetDropTarget( IDropTarget *pDropTarget, IDropTarget **ppDropTarget);

参数说明

pDropTarget

[in] Pointer to an IDropTarget interface for the current drop target object supplied by MSHTML.

ppDropTarget

[out] Address of a pointer variable that receives an IDropTarget interface pointer for the alternative drop target object supplied by the host.

惛_��了吗�Q�解决问题的关键��在于第一个参数pDropTarget。相信很多浏览器在处理的时候都忽略掉了�W�一个参数而只是将自己的实现通过�W�二个参数告知MSHTML�Q�因而丢�׃��IE�~�省的行为。既然如此，��缺省的IDropTarget接口的指针保存下来，在适当的时候调用，不就能够保留IE的原始拖放行��Z��吗？

7、完��实�?/font>

完整的代码就不再�l�出�Q�我们只列出关键的部分作为示例。假设我们用来实现IDropTarget接口的类叫做CBrowserDropTarget�Q?/font>

//构造函敎ͼ�传入参数��x��从GetDropTarget得到的那个pDropTarget�Q�它是MSHTML的缺省实�?/font>

CBrowserDropTarget::CBrowserDropTarget(IDropTarget *pOrginalDropTarget)

: m_bDragTextToInputBox(FALSE)

//�q�个布尔变量用来判断是否正在向InputBox拖拽文字

, m_pOrginalDropTarget(pOrginalDropTarget)

//m_pOrginalDropTarget用来保存MSHTML的缺省实�?/font>

{

}

STDMETHODIMP CBrowserDropTarget::DragEnter(/* [unique][in] */IDataObject __RPC_FAR *pDataObj,

/* [in] */ DWORD grfKeyState,

/* [in] */ POINTL pt,

/* [out][in] */ DWORD __RPC_FAR *pdwEffect)

{

//调用�~�省的行�?/font>

return m_pOrginalDropTarget->DragEnter(pDataObj, grfKeyState, pt, pdwEffect);

}

STDMETHODIMP CBrowserDropTarget::DragOver(/* [in] */ DWORD grfKeyState,

/* [in] */ POINTL pt,

/* [out][in] */ DWORD __RPC_FAR *pdwEffect)

{

//在网��内拖拽文字时这个值是DROPEFFECT_COPY�Q�拖拽的文字不属于输入框中）

//或DROPEFFECT_COPY | DROPEFFECT_MOVE�Q�拖拽的文字是输入框中的文字�Q?/font>

DWORD dwTempEffect = *pdwEffect;

//接下来调用IE的缺省行�?/font>

HRESULT hr = m_pOrginalDropTarget->DragOver(grfKeyState, pt, pdwEffect);

//判断是否是往输入框拖拽文�?/font>

m_bDragTextToInputBox = IsDragTextToInputBox(dwOldEffect, *pdwEffect);

if ( !m_bDragTextToInputBox )

{

//不是往输入框拖拽文字，则��用原始的拖拽效果。否则和IE的缺省效果一样——也��是没有效果

*pdwEffect = dwTempEffect;

}

return S_OK;

}

//�Ҏ(gu��)��调用�~�省行�ؓ(f��)前后的Effect值判断是否是往输入框拖拽文�?/font>

BOOL CBrowserDropTarget::IsDragTextToInputBox(DWORD dwOldEffect, DWORD dwNewEffect)

{

//如果是把非输入框中文字往输入框拖动，则dwOldEffect与dwNewEffect相等�Q�都是DROPEFFECT_COPY

BOOL bTextSelectionToInputBox = ( dwOldEffect == DROPEFFECT_COPY )

&& ( dwOldEffect == dwNewEffect );

//如果是把文字从一个输入框拖到另一个输入框�Q�则dwOldEffect为DROPEFFECT_COPY | DROPEFFECT_MOVE�Q?/font>

//而dwNewEffect的值可能�ؓ(f��)DROPEFFECT_MOVE�Q�默认情况）�Q�也可能为DROPEFFECT_COPY�Q�按下Ctrl键时�Q?/font>

BOOL bInputBoxToInputBox = ( dwOldEffect == (DROPEFFECT_COPY | DROPEFFECT_MOVE) )

&& ( dwNewEffect == DROPEFFECT_MOVE || dwNewEffect == DROPEFFECT_COPY );

//来自Microsoft Word的拖拽特�D�一些，dwOldEffect是所有效果的�l�合�?/font>

BOOL bMSWordToInputBox =

( dwOldEffect == (DROPEFFECT_COPY | DROPEFFECT_MOVE | DROPEFFECT_LINK) )

&& ( dwNewEffect == DROPEFFECT_MOVE || dwNewEffect == DROPEFFECT_COPY );

//来自Edit Plus的拖拽过也特�D�一些，dwOldEffect是个负数�Q�怀疑是Edit Plus的拖拽实现有问题�Q?/font>

BOOL bEditPlusToInputBox = ( dwOldEffect < 0 )

&& ( dwNewEffect == DROPEFFECT_MOVE || dwNewEffect == DROPEFFECT_COPY );

//也许�q�有些例外，可再��d��

......

return bTextSelectionToInputBox || bInputBoxToInputBox || bMSWordToInputBox || bEditPlusToInputBox;

}

STDMETHODIMP CBrowserDropTarget::DragLeave()

{

//调用�~�省的行�?/font>

return m_pOrginalDropTarget->DragLeave();

}

STDMETHODIMP CBrowserDropTarget::Drop(/* [unique][in] */ IDataObject __RPC_FAR *pDataObj,

/* [in] */ DWORD grfKeyState,

/* [in] */ POINTL pt,

/* [out][in] */ DWORD __RPC_FAR *pdwEffect)

{

if ( m_bDragTextToInputBox )

{

//是文字拖放，调用IE的缺省行�?/font>

return m_pOrginalDropTarget->Drop(pDataObj, grfKeyState, pt, pdwEffect);

}

//否则是拖��N��接、图片、文件等�Q�按常规的IDataObject处理方式

......

return S_OK;

}

��x��Q�我们就得到了一个完��的“��拖放”的基本框�Ӟ��它在扩展的同时保留了IE的默认行为：(x��)

文字在页面内与输入框之间能够交互拖放�?

来自外部的文字与�|�页输入框之间也能交互拖�?

拖拽时能够自动滚动页�?

其余的功能，如向不同的方向拖拽以完成不同的工作，左键右键拖放执行不同的功能，按住Alt保存文字�{�等�Q�可�Ҏ(gu��)��需要自行实玎ͼ�不再讨论�?/font>

8、修�?/font>

今天�?a target="_blank" >Stanley Xu聊了几个钟头�Q�受益匪��。根据Stanley的提议，毋须再作是否往输入框拖拽文字的判断�Q�因为我们需要的只是在IE的缺省行为没有鼠标拖拽效果的时候让它有拖拽效果�Q�因此只需要简单地判断调用IE�~�省行�ؓ(f��)后的Effect值是否�ؓ(f��)0卛_��Q�如下：(x��)

//判断是否是往输入框拖拽文�?/font>

m_bDragTextToInputBox = *pdwEffect != 0;

��单而直接，当然更重要的是：(x��)可用�?/div>

9、参考资�?/font>

MSDN: IHTMLEventObj Interface

MSDN: IHTMLDataTransfer Interface

�?/font>Internet Explorer �~�程��q�ͼ�十）响应来自HTML Element的事仉��知——几个好用的�c?/font>�?/font>

Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=677425

旅�?/a> 2007-07-29 15:40 发表评论

Sun, 29 Jul 2007 07:37:00 GMT
键字�Q�HTML Element, Sink

1、概�q?/font>

实现了对Webbrowser的resuing之后我们便会(x��)发现有时候我们还需要处理浏览器中的元素�Q�HTML Element�Q�。这�U�处理包括主动和被动两个斚w��Q�像�?a target="_blank" >FAQ�Q�如何访问WebBrowser的滚动条�?/font>、�?a target="_blank" >FAQ�Q�操�U�下拉列�?/a>�?/font>、�?a target="_blank" >FAQ�Q�两�U�方法访问多层嵌套的frame�?/font>�{? 文章所演示的就是主动的处理。通常我们从Webbrowser获得一个Web文档接口�Q�IHTMLDocumentx�Q�，从它出发便可讉K��到浏览器所包含的一切HTML元素。而被动的处理则是在COM技术中�U�Cؓ(f��)Sink的技术，我更喜欢的说法是事�g通知。当文档的下载进度发生变化时�Q�我们可以获�? ProgressChange通知�Q�当Webbrowser下蝲完HTML文档�Ӟ��我们可以获得DocumentComplete的通知�Q�而当链接被点击，或图片被拖动�Ӟ��我们如何获得通知呢？本文希望能够�l�出部分的答案�?/font>

2、HtmlObj Template

如何Sink一个HTML Element�q�不是本文的重点�Q�其理论我不是太了解�Q�也懒得��L��透彻�Q�所以��用现成的库来实现。CodeProject上的一��文章�?a target="_blank" >CHtmlObj Template》给出的一个模板类CHtmlObj��非常好用。下面的例子是针对Html Anchor Element的一个实例化�?/font>

#include "HtmlObj.h"

class CHtmlAnchorElement : public CHtmlObj

&DIID_HTMLAnchorEvents>

{

public:

CHtmlAnchorElement(CHtmlDocument2* pParentDoc2);

virtual ~CHtmlAnchorElement();

virtual HRESULT OnInvoke(DISPID dispidMember,REFIID riid,

LCID lcid, WORD wFlags,

DISPPARAMS * pdispparams, VARIANT * pvarResult,

EXCEPINFO * pexcepinfo,

UINT * puArgErr);

};

HRESULT CHtmlAnchorElement::OnInvoke(DISPID dispidMember,

REFIID riid, LCID lcid, WORD wFlags,

DISPPARAMS * pdispparams, VARIANT * pvarResult,

EXCEPINFO * pexcepinfo,

UINT * puArgErr)

{

HRESULT hr = E_NOTIMPL;

switch(dispidMember)

{

case DISPID_HTMLELEMENTEVENTS_ONMOUSEOVER :

{//当鼠标经�q�链接时�Q�我们在�q�里获得通知

hr = S_OK;

      // TODO: add code to handle on mouse over events

break;

}

case DISPID_HTMLELEMENTEVENTS_ONMOUSEOUT :

{//当鼠标从链接上移开�Ӟ��我们在这里获得通知�Q�其它的Dispatch ID可根据需要添�?/font>

hr = S_OK;

      // TODO: add code to handle on mouse out events

break;

}

default:

{

break;

}

}

return hr;

}

�? 我们得到某个链接的HTML接口指针�Q�便可调用CHtmlAnchorElement�l�承自CHtmlObj的SetSite(IUnknown *pUnkSite)成员函数传入该接口指针。在CHtmlObj�c�d��部用一个智能指针m_spHtmlObj来保存相应的HTML Element接口指针�Q�所以当上面的ONMOUSEHOVER和ONMOUSEOUT两个事�g通知到达�Ӟ��从m_spHtmlObj��可以访�? IHTMLAnchorElement的所有成员，如从href获得链接的Url�{�，此处不再赘述�?/font>

3、CHtmlElements�c?/font>

�? 了CHtmlObj之后我们又会(x��)发现实践中常�怼�(x��)需要多个相同类型的CHtmlObj。比如包含Frame的网��中每个Frame的HTML Document都需要一个CHtmlObj来Sink其事件。所以我们还需要有效地��理�q�些相同�c�d��的CHtmlObj。下面是我写的一个简单的模板�c? CHtmlElements�Q�它通过CMap来管理多个CHtmlObj对象�?/font>

template class CHtmlElements

{

typedef CMap CMapDispToHtmlElement;

CMapDispToHtmlElement m_htmlElements;

BOOL IsSiteConnected( LPDISPATCH pDisp )

{

THtmlElement *pElement;

return m_htmlElements.Lookup( pDisp, pElement );

}

public :

CHtmlElements( void )

{

}

~CHtmlElements( void )

{

}

public :

void SetSite( LPDISPATCH pDisp )

{

if ( IsSiteConnected( pDisp ) ) //��查以避免多余的Sink

{

return ;

}

THtmlElement *pElement = new THtmlElement; //通过模板�c�d��创徏相应的类的实例进行连�?/font>

pElement->SetSite( pDisp );

m_htmlElements.SetAt( pDisp, pElement );

}

//在合适的地方调用Clear释放所��理的内�?/font>

void Clear(void)

{

POSITION pos = m_htmlElements.GetStartPosition();

THtmlElement *pElement = NULL;

LPDISPATCH pDisp = NULL;

while (pos != NULL)

{

m_htmlElements.GetNextAssoc( pos, pDisp, pElement );

m_htmlElements.RemoveKey( pDisp );

delete pElement;

}

}
};

假设我们有一个象CHtmlAnchorElement那样�z��自CHtmlObj的类CHtmlDocument2�Q��用CHtmlElements时这样声明：(x��)

typedef CHtmlElements CHtmlDocuments;

typedef CHtmlElements CHtmlAnchors;

class CMyView : public CHtmlView

{

private :

CHtmlDocuments m_htmlDocs;

CHtmlAnchors m_htmlAnchors;

}

在DocumentComplete时就可以�q�样�q�接到浏览器的文档对象：(x��)

void CMyView ::OnDocumentComplete(LPDISPATCH pDisp, LPCTSTR lpszURL)

{

m_htmlDocs.SetSite(pDisp);

}

�? 果想一�ơ性连接上文档中所有的Anchor Element�Q�可以通过IHTMLDocument2::get_anchors获得包含所有IHTMLAnchorElement接口指针�? IHTMLElementCollection�Q�再遍历其中的每个元素，分别调用m_htmlAnchors.SetSite卛_��。当�Ӟ��一�ơ性的 Sink全部链接可能�q�不是个好注意，我更愿意在CHtmlDocument2中响应事件再通过其它手段来访问当前位�|�的HTML Element�?/font>

4、结�?/font>

�? 应HTML Element的事仉��知对于��览器编�E�来说是一个非常强大的手段�Q�它可以更深入细化地控制��览器中的文档及其HTML元素�Q�实现更为高�U�的功能�Q�比如所谓的“��拖放”�Q�许多多�H�口��览器都提供了该功能�Q�但实际上没有哪个浏览器完美地实��C��对URL、文字及囄��的拖放）�?/font>

5、参考资�?/font>

Codeproject: HtmlObj Template

引用地址�Q��?a >Internet Explorer �~�程��q�ͼ�十）响应来自HTML Element的事仉��知——几个好用的�c?/a>�?/font>

Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=621961

旅�?/a> 2007-07-29 15:37 发表评论

Sun, 29 Jul 2007 07:25:00 GMT

关键字：(x��)Google Toolbar, Explorer Bars, ToolBands, IObjectWithSite, IDeskBand

1、概�q?/font>

　　Internet Explorer强大而方便的可编�E�能力和可扩展能力�ؓ(f��)其抢占浏览器市场可谓是立下了汗马功劳。可�~�程主要体现两方面：(x��)

实现��览功能的部分被包装成一个控件——WebBrowser Control�Q�开发�h员可以在自己的应用程序中嵌入它从而�ɽE�序��h��讉K��Internet上网��늚�能力�Q�同时WebBrowser Control也能够被灉|��地自定义以满��不同的需要�?/font>

可对Microsoft Internet Explorer应用�E�序本��n嵌入的浏览器控�g�~�程�Q�一般通过BHO�Q�Browser Helper Object�Q�来实现�?/font>

　　可扩展能力则体现在几个方面：(x��)

嵌入式面板型扩展�Q�包括Explorer Bars�Q�如收藏夏V��搜索、历史等嵌入IE�ȝ��口的大型面板�Q? Tool Bands�Q�如Google Toolbar、MSN Toolbar�{�嵌入IE的工��h��Q? 和Desk Bands�Q�如快速启动这�c�d��入�Q务栏的面板，实际上是Explorer外壳的扩展）。这几种面板的编写方法相差无几，不同之处主要在于向系�l�注册方式的不同�?/font>

是参数型扩展�Q�包括�ؓ(f��)��览器增加上下文菜单��（调用脚本�Q�、�ؓ(f��)��览器主菜单增加菜单��V��ؓ(f��)��览�?#8220;标准按钮”工具条添加按钮等�?/font>

其他扩展�Q�如文�g下蝲的扩展（Custom Download Manager�Q�、地址栏扩展（搜烦扩展�Q�等�?/font>

　　随着IE的发展，各种�c�d��的扩展遍地开花，其中最为引人注目的�Q�当属地址栏扩展和工具条扩展（几乎成了兵家必争之地�Q�。本文讨论的主题�Q�正是工��h��的扩展�?/font>

2、问题的提出

　　两个原因促成了Google Toolbar的流行，一是广告窗口的泛滥、二是Google Search。Google“��?#8221;�Q�实则一炚w��不简单，没有搜烦引擎的强力支持，Toolbar的用途就大受限制�Q�地抓住了这两点�Q�迅速占领了市场�?/font>

　　插�g的一大好处在于可以不修改�ȝ��序，只需换一个样子差不多但功能更强的东西��可以��得整个应用程序功能增强，所以IE不升�U�大家也觉得Google Toobar��来��好用。于是利用WebBroser Control�~�写��览器的开发�h员就惻I��如果能像IE一��h��持上�q�这些扩展，不就能把Google Toolbar拿过来用了吗�Q�其他的事交�l�Google��d��p��了。这��是我们要讨论的问题�Q?#8220;如何在自��q��览器中嵌入Google Toolbar”�?/font>

3、分�?/font>

　　微��Y�q�未在MSDN中说明如何将Google Toolbar�q�类IE的工��h��插�g嵌入自己的应用程序，但其��Z��COM的设计方法实际上�l�予了我们这个能力（创徏嵌入式的工具条的�Ҏ(gu��)��q�不是本文的重点�Q�此处略去，有兴��的朋友可以参考MSDN�Q�。我们知道，除了IUnknown接口外，Bands和Bars�Q�以下简�U�Band对象�Q�还需要实��C��个接口：(x��)IObjectWithSite�Q�IPersistStream和IDeskBand。当用户选择工具条或面板�Ӟ��其容器（如IE的外��x��Ӟ��׃��(x��)调用Band对象的IObjectWithSite::SetSite�Ҏ(gu��)��Q�该�Ҏ(gu��)��仅需要一个IUnknown�c�d��的指针）�Q�将自己实现的IUnknown指针传递给Band对象。这��是整个插�g开始真正激�zȝ��入口�Q�也是我们的着手点�?/font>

　　MSDN中说刎ͼ�一般来��_(d��)��Band对象对于SetSite�Ҏ(gu��)��的实现需要完成以下几件事�Q?/font>

如果当前Band对象持有另外的Site指针�Q�则首先释放该指针�?/font>

如果容器向SetSite�Ҏ(gu��)��传入的是一个空指针�Q�则表示要删除该Band对象�Q�此时SetSite�q�回S_OK卛_��?/font>

如果容器传入的不是空指针�Q�则需要设�|�新的Site�Q?

�Ҏ(gu��)��IUnknown指针所指的新Site调用QueryInterface查询得到其IOleWindow接口�?/font>

调用得到的IOleWindow接口的GetWindow�Ҏ(gu��)��获取父窗口的句柄�Q�此�H�口��x��Band对象的栖�w�之处）�q�保存下来。如果以后不�?x��)再用到IOleWindow接口的话��对其调用Release�?/font>

现在可以创徏Band对象的窗口了�Q�当�Ӟ��要以�W?步得到的�H�口为父�H�口来创建，�q�且该窗口目前只能以不可见状态存在�?/font>

如果Band对象实现了IInputObject接口�Q�即需要接攉��盘输入，则还需要向容器传来的Site查询�Q�QueryInterface�Q�IInputObjectSite接口�Q�此接口指针也需要保存下来�?/font>

上述步骤完成后即可返回S_OK�Q�否则应�q�回OLE-defined的error code告知容器什么地方出了错�?/font>

　　昄��Q�就我们要讨论的问题而言�Q�只需换个角度�Q�编写IE外壳的的角度�Q�来考虑卛_��。首先，我们需要一个IUnknown接口�Q�即Band对象所需的Site�Q�，其次需要一个IInputObjectSite接口�Q�用以和Band对象的IInputObject接口交互�Q�处理输入焦点�{�Uȝ��情况。接下来��可以通过Band对象的IDeskBand接口来显�C�、隐藏Band对象了（注意IDeskBand接口�z��自IDockingWindow接口,后者又�z��自IOleWindow接口�Q��?/font>

4、实�?/font>

　　实现分�ؓ(f��)两个部分�Q�其一是一个简单的�c�，用以模拟IE外壳�Q�我取名为CIESimulator。其二是一个管理IE扩展的类CIEBandPlugInManager�Q�用以管理Band对象的方斚w��面�?/font>

class CIESimulator : public IInputObjectSite

{

private:

IWebBrowser2 *m_pwb; //保存WebBrowser Control的接口指�?/font>

public:

CIESimulator(void){};

~CIESimulator(void){};

void SetIWebBrowser2(IWebBrowser2* pwb);

//IUnknown methods

STDMETHODIMP QueryInterface(REFIID, void **);

STDMETHODIMP_(ULONG) AddRef(void);

STDMETHODIMP_(ULONG) Release(void);

//IInputObjectSite specific methods

STDMETHOD(OnFocusChangeIS)(THIS_ IUnknown* punkObj, BOOL fSetFocus);

};

//IUnknown methods

STDMETHODIMP CIESimulator::QueryInterface( REFIID riid, void **ppv )

{

if ( riid == IID_IInputObjectSite ) //�q�个接口需要自己处�?/font>

{

*ppv = static_cast(this);

}

else if ( m_pwb ) //其它的交�l�WebBrowser Control��d��?/font>

{

m_pwb->QueryInterface( riid, ppv );

}

return S_OK;

}

//IInputObjectSite specific methods

STDMETHODIMP CIESimulator::OnFocusChangeIS(IUnknown* punkObj, BOOL fSetFocus)

{

return S_OK; //此处我们��单地�q�回

}

void CIESimulator::SetIWebBrowser2(IWebBrowser2* pwb)

{

m_pwb = pwb;

}

　　注意�q�里我们�q�没有实现IOleWindow接口来向B(t��i)and对象传递父�H�口对象�Q�窗口的宿主可以更改�Q�所以Band对象创徏的窗口的父窗口我们�ƈ不关心，Band对象查询IOleWindow接口的动作实际上是向WebBrowser Control查询�Q�，而是在稍后的CIEBandPlugInManager�c�M��通过调用IDeskBand的GetWindow�Ҏ(gu��)��获得Band对象的窗口句柄，再手动将其嵌入我们指定的�H�口中�?/font>

　　首先我们定义一个结构用以保存Band的信息：(x��)

enum eBANDTYPE

{

btVertical = 0,

btHorizontal = 1

};

enum eBANDSTATE

{

bsUnInitialized = -1,

bsVisible = 0,

bsInVisible = 1,

bsUnLoaded = 2

};

typedef struct tagIEBANDINFO

{

char

szCLSID[39];

char

szName[MAX_PATH];

IUnknown

*puk;

HWND

hBand;

UINT

uMinHeight;

UINT

uBandID;

eBANDTYPE

eBandType;

eBANDSTATE

eBandState;

} IEBANDINFO, *LPIEBANDINFO;

　　再用一个函数来获取所有Band的信息（以下代码为示例，具体实现是可从注册表把所有Band的信息一一��d��Q?/font>

void CIEBandPlugInManager::GetAllBandCLSID(void)

{

LPIEBANDINFO pIEBandInfo;

pIEBandInfo = new IEBANDINFO();

strcpy( pIEBandInfo->szCLSID, "{2318C2B1-4965-11d4-9B18-009027A5CD4F}\0"); //Google Toolbar的CLSID

strcpy( pIEBandInfo->szName, GetDisplayName(pIEBandInfo->szCLSID) );

pIEBandInfo->uMinHeight = 22;

pIEBandInfo->uBandID = m_BandCtrlID++;

pIEBandInfo->eBandType = btHorizontal;

pIEBandInfo->eBandState = bsUnInitialized;

m_oaBand.Add( (CObject*)pIEBandInfo );//m_oaBand是一个CObArray

�?/font>

//�Ҏ(gu��)��CLSID从注册表获取Band的名�U?/font>

CString CIEBandPlugInManager::GetDisplayName(CString strCLSID)

{

TCHAR

sz[MAX_PATH];

HKEY

hKey;

DWORD

dwSize;

strCLSID = "CLSID\\" + strCLSID;

if(RegOpenKey(HKEY_CLASSES_ROOT, strCLSID, &hKey) != ERROR_SUCCESS)

{

return _T("");

}

RegQueryValueEx(hKey, NULL, NULL, NULL, (LPBYTE)sz, &dwSize);

RegCloseKey(hKey);

return sz;

}

//通过Band的CLSID�Ȁ�z�Band

bool CIEBandPlugInManager::ActivateBand( CString strCLSID )

{

LPIEBANDINFO pIEBandInfo = GetBandInfo( strCLSID ); //从m_oaBand中找到符合条件的Band的信�?/font>

if ( !pIEBandInfo )

{

return false;

}

WCHAR wsz[MAX_PATH];

::MultiByteToWideChar(CP_ACP, 0, strCLSID, -1, wsz, MAX_PATH);

CLSID

clsid;

HRESULT hr2 = CLSIDFromString( wsz, &clsid);

if ( hr2 != NOERROR )

return false;

HRESULT hr = ::CoCreateInstance(clsid, NULL, LSCTX_INPROC_SERVER, IID_IUnknown, (void**)&pIEBandInfo->puk); //创徏Band对象的实�?/font>

IUnknown* puk = pIEBandInfo->puk;

if (FAILED(hr))

return false;

DoQueryBandInfo( pIEBandInfo ); //查询Band对象实例的信�?/font>

switch( pIEBandInfo->eBandType )

{

case btVertical:

break;

//我们不处理Vertical的面�?/font>

case btHorizontal:

{

g_pMainFrame->m_wndReBar.AddBar2( pIEBandInfo->hBand, pIEBandInfo->uBandID, pIEBandInfo->uMinHeight, 0, 0); //��Band嵌入�ȝ��口的ReBar�?/font>

REBARBANDINFO rbbi;

rbbi.cbSize = sizeof(rbbi);

rbbi.fMask = RBBIM_CHILDSIZE | RBBIM_IDEALSIZE | RBBIM_SIZE;

rbbi.cxMinChild = 0;

rbbi.cyMinChild = pIEBandInfo->uMinHeight;

rbbi.cx = rbbi.cxIdeal = 250;

UINT nCount = g_pMainFrame->m_wndReBar.GetReBarCtrl().GetBandCount();

g_pMainFrame->m_wndReBar.GetReBarCtrl().SetBandInfo(nCount-1, &rbbi);

break;

}

default:

break;

}

pIEBandInfo->eBandState = bsVisible;

return true;

}

//查询Band对象实例的信�?/font>

void CIEBandPlugInManager::DoQueryBandInfo(LPIEBANDINFO pIEBandInfo)

{

IObjectWithSite *pOWS;

//查询IObjectWithSite接口

HRESULT hr = pIEBandInfo->puk->QueryInterface(IID_IObjectWithSite, (void**)&pOWS);

if (SUCCEEDED(hr))

{     //讄��Site

pOWS->SetSite( (IUnknown *)&m_IESimulator ); //m_IESimulator是CIESimulator的一个实例对象，对Band对象而言�Q�它?y��u)��像IE

}

IDeskBand *pdb;

hr = pIEBandInfo->puk->QueryInterface(IID_IDeskBand, (void**)&pdb);

if (SUCCEEDED(hr))

{     //查询得到Band对象�H�口的句柄，�E�候通过该句柄将Band对象的窗口嵌入我们指定的�H�口

pdb->GetWindow(&pIEBandInfo->hBand);

}

ShowBand(pIEBandInfo, TRUE);//昄��Band

}

bool CIEBandPlugInManager::ShowBand(LPIEBANDINFO pIEBandInfo, bool bShow)

{

IDockingWindow *pdw;

HRESULT hr = pIEBandInfo->puk->QueryInterface(IID_IDockingWindow, (void**)&pdw);

if (SUCCEEDED(hr))

{

pdw->ShowDW(bShow);

}

else

{

return false;

}

return true;

}

　　下面是我��试的一个截图，Google的搜索、广告窗口拦截均可正常工作�?/font>

5、�ȝ��

　　上述的原理看来很��单，但具体实现的时候仍焉��要作较多的测试和考虑�Q�Band对象的管理和�~�存、接口的AddRef和Release�{�。时间有限，代码也很乱，不过只要原理交待清楚�Q�相信会(x��)�Ҏ(gu��)��兴趣的朋友有所帮助�?/font>

6、参考资�?/font>

MSDN:�?font face="Courier New">Creating Custom Explorer Bars, Tool Bands, and Desk Bands�?/font>

引用地址�Q��?a >Internet Explorer�~�程��q�ͼ��?ji��)）在自��q��览器中嵌入Google工具�?/a>�?/p>

Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=550698

旅�?/a> 2007-07-29 15:25 发表评论

Internet Explorer �~�程��q�ͼ�八）实现��览历史菜单

Sun, 29 Jul 2007 07:22:00 GMT

关键字：(x��)ITravelLogStg, IEnumTravelLogEntry, ITravelLogEntry

1、概�q?/p>
Internet Explorer的浏览历史菜单在4.0版本开始出玎ͼ�但直�?.5之前�Q�微软都未公布用于访问浏览历史的COM接口�Q�如今已是IE6.0大行光��的年代，用于讉K��览历史的接口也早已公布多时�Q�本文的目的则是试图抛砖引玉�Q�简单介�l�用于访问浏览历史的Travel Log接口�Q��ƈ用一个小��的�c�CIETravelLog来实现对Travel Log的封装�?/p>

2、IOmHistory接口

在早些时候的MSDN中，我们能够查阅到关于浏览历史的接口仅有IOmHistory�Q�而该接口实际上对应的是浏览器中可以通过脚本讉K��?#8220;history”对象。对�?#8220;history”对象�Q�MSDN中是�q�样说的�Q?/p>

For security reasons, the history object does not expose the actual URLs in the browser history. It does allow navigation through the browser history by exposing the back, forward, and go methods. A particular document in the browser history can be identified as an index relative to the current page. For example, specifying -1 as a parameter for the go method is the equivalent of clicking the Back button.

This object is available in script as of Microsoft Internet Explorer 3.0.

即�ؓ(f��)了安全的原因�Q�IOmHistory接口仅提供了有限的几个方法来完成在浏览器中前�q�、后退�{�操作，�q�没有提供访问历史列表Url的能力。这也难怪，该接口在IE 3.0时代已经存在�Q�而当时IE�q�不成熟�Q�可�~�程能力也不甚强大。一直到IE 4.0通过与Windows 98捆绑销售一�l�天下之后，相关的文档才逐渐丰富�Q�多�H�口��览器等��Z��Internet Explorer/WebBrowser Control的应用��Y件也才铺天盖地开来。但在IE 5.5接口公布之前�Q�要完全模拟IE的Travel Log行�ؓ(f��)�Q��ƈ不是一件容易的事。最�Ҏ(gu��)��惛_��的方法就是在BeforeNavigate、DocumentComplete�{�事件发生之时记�?修改Url�q�加以保存（我在早些时候也�q�样做过�Q�，但是效果不甚理想�Q�尤其是��览包含Frame的网��|��Q�处理更是麻烦。当�Ӟ��要完全模拟亦非难事，只不�q�开发�h员都知道微��Y公布接口是早晚的事，所以也没有��大力气在模拟IE的Travel Log行�ؓ(f��)上�?/p>

3、Travel Log��?/p>
Internet Explorer 5.5推出以后�Q�Travel Log接口也就开始出现在MSDN中，它是专门为OLE嵌入WebBrowser Control的应用程序设计的�Q�其目的�?#8220;提高和加强用��L(f��ng)��讉K��日志体验”�Q�improve and enhance the user's travel log experience�Q�。事实上�Q�稍后我�?x��)提刎ͼ�Travel Log接口正日益成为应用程序中的重要接口之一�?/p>
微��Y公布的Travel Log共包含三个接口：(x��)ITravelLogStg, IEnumTravelLogEntry和ITravelLogEntry�?/p>

ITravelLogStg——该接口提供了用于在Travel Log中添加、删除、枚举日志（��览历史�Q�的�Ҏ(gu��)��Q�本文需要用到的几个�Ҏ(gu��)��列�D如下�Q?

�Ҏ(gu��)��?nbsp;    用�?/p>
EnumEntries ��问日志项创徏枚�D器（IEnumTravelLogEntry接口指针�Q?/p>
GetRelativeEntry �q�回一个日志项

TravelTo 讉K��一个日志项

IEnumTravelLogEntry——该接口提供用于枚�D日志��Ҏ(gu��)��必需的方法，本文只用��C��个方法：(x��)

�Ҏ(gu��)��?nbsp;    用�?/p>
Next   枚�D下一个日志项�Q�返回ITravelLogEntry接口指针�Q?/p>

ITravelLogEntry——该接口只有两个�Ҏ(gu��)��Q�分别用于返回日志项的Title和Url�Q?

�Ҏ(gu��)��?nbsp;    用�?/p>
GetTitle �q�回日志��的Title

GetURL �q�回日志��的Url

接口准备好了�Q�我们也��很�Ҏ(gu��)��得知它们之间的关�p�：(x��)

要得到相对于当前��面的日志项列表�Q�首先应通过ITravelLogStg接口创徏一个枚丑֙��Q�IEnumTravelLogEntry接口�Q��?

通过IEnumTravelLogEntry枚�D器的Next�Ҏ(gu��)��枚�D��Z��个个的日志项�Q�ITravelLogEntry接口�Q��?

由ITravelLogEntry接口获取日志��Ҏ(gu��)��代表的网��늚�Title和Url�q�加以处理�?

讉K��相对于当前页面的某个日志��Ҏ(gu��)��Q�首先由ITravelLogStg的GetRelativeEntry�Ҏ(gu��)��Ҏ(gu��)��与当前页的距��d��到ITravelLogEntry接口�Q�再��后者传入ITravelLogStg的TravelTo�Ҏ(gu��)��以达到访问日志项的目的（如前�q�和后退�Q��?

也许不是太恰当，我对UML也不熟�?zh��n)��Q�借用一个伪UML序列图表�C�其关系如下�Q?/p>

4、封装Travel Log

接下来，我们��q��一个简单的�c�L��完成对Travel Log的封装。如下所�C�，tlogstg.h包含了Travel Log的相��x��口声明，该头文�g可以在Platform SDK中找到�?/p>

#include "tlogstg.h"

class CIETravelLog

{

private:

ITravelLogStg *m_pTravelLogStg;

IEnumTravelLogEntry *m_pEnumLogEntry;

ITravelLogEntry *m_pTravalLogEntry;

IWebBrowser2* m_pWebBrowser;

public:

CIETravelLog(void);

~CIETravelLog(void);

void SetWebBrowser(IWebBrowser2* pWebBrowser);

void BuildHistoryMenu(CMenu * pMenu, unsigned char nCount, bool bForward);

void TravelTo(int nPosition);

};

CIETravelLog::CIETravelLog(void)

: m_pTravelLogStg(NULL), m_pEnumLogEntry(NULL), m_pTravalLogEntry(NULL), m_pWebBrowser(NULL)

{

}

CIETravelLog::~CIETravelLog(void)

{

if ( m_pTravelLogStg != NULL )

{

m_pTravelLogStg->Release();

}

if ( m_pEnumLogEntry != NULL )

{

m_pEnumLogEntry->Release();

}

if ( m_pTravalLogEntry != NULL )

{

m_pTravalLogEntry->Release();

}

if ( m_pWebBrowser != NULL )

{

m_pWebBrowser->Release();

}

}

//��浏览器的IWebBrowser2接口指针赋予CIETravelLog的实�?/font>

void CIETravelLog::SetWebBrowser(IWebBrowser2* pWebBrowser)

{

if ( (m_pWebBrowser == pWebBrowser) || (m_pWebBrowser == NULL) )

{

return;

}

if ( m_pWebBrowser != NULL )

{

m_pWebBrowser->Release();

}

m_pWebBrowser = pWebBrowser;

IServiceProvider *pSP;

HRESULT hr = m_pWebBrowser->QueryInterface(IID_IServiceProvider, (LPVOID*)&pSP);

m_pWebBrowser->Release();

if (SUCCEEDED(hr))

{

hr = pSP->QueryService(SID_STravelLogCursor, IID_ITravelLogStg, (LPVOID*)&m_pTravelLogStg);

pSP->Release();

}

}

//创徏��览历史菜单�Q�bForward指明是前�q�还是后退菜单

void CIETravelLog::BuildHistoryMenu(CMenu * pMenu, unsigned char nCount, bool bForward)

{

if ( m_pTravelLogStg == NULL )

{

return;

}

TLENUMF eFlag = bForward ? TLEF_RELATIVE_FORE : TLEF_RELATIVE_BACK;

if ( FAILED(m_pTravelLogStg->EnumEntries( eFlag, &m_pEnumLogEntry ) ) )

{

return;

}

ULONG uFetched;

int i=0;

if ( m_pEnumLogEntry !=NULL )

{

while ( SUCCEEDED( m_pEnumLogEntry->Next( 1, &m_pTravalLogEntry, &uFetched ) ) &&

m_pTravalLogEntry && i<10 )//我们最多只需�?0条历史菜单，可根据实际情况修�?/font>

{

LPOLESTR pszTitle;

m_pTravalLogEntry->GetTitle( &pszTitle );

CString strTitle = pszTitle;

if ( bForward )

{

//ID_IEHISTORY_MIDDLE是预定义的某个菜单项ID�Q�从该ID开始前后可以创�?0个菜单项�Q�参见下一�?/font>

pMenu->InsertMenu( 0, MF_STRING, ID_IEHISTORY_MIDDLE + ++i, strTitle );

}

else

{

pMenu->InsertMenu( 0, MF_STRING, ID_IEHISTORY_MIDDLE - ++i, strTitle );

}

CoTaskMemFree( pszTitle );

m_pTravalLogEntry->Release();

}

}

}

//�Ҏ(gu��)��与当前页面的相对距离来访问历史网��?/font>

void CIETravelLog::TravelTo(int nPosition)

{

if ( m_pTravelLogStg == NULL )

{

return;

}

if SUCCEEDED(m_pTravelLogStg->GetRelativeEntry( nPosition, &m_pTravalLogEntry ))

{

m_pTravelLogStg->TravelTo( m_pTravalLogEntry );

}

}

5、��用CIETravelLog

假设是在我们自己�~�写的多�H�口��览器中使用Travel Log。�ؓ(f��)��单�v见，我们声明一个CIETravelLog的全局对象g_IETravelLog�Q�以便在��M��地方调用。然后在适当的地方，如CMainFrame的TBN_DROPDOWN消息�Q�工��h��菜单下拉消息�Q�处理函数OnDropDown中，��d��下面的代码，用以创徏��览历史菜单�Q?/p>
//GetActiveWebBrowserPtr�q�回�z�d��的浏览器IWebBrowser2接口指针

IETravelLog.SetWebBrowser( GetActiveWebBrowserPtr );

//bForward为true则创�?#8220;前进”菜单�Q�否则创�?#8220;后退”菜单

IETravelLog.BuildHistoryMenu( &Menu, 10, bForward);

以下定义��单项ID的范��_(d��)��前后共可以容�U?0个菜单项�Q�可�Ҏ(gu��)��实际情况修改�?/p>
#define ID_IEHISTORY_FIRST 60200

#define ID_IEHISTORY_MIDDLE 60210

#define ID_IEHISTORY_LAST   60220

��d��命��o(h��)处理函数OnTravelHistoryUrl用以响应从ID_IEHISTORY_FIRST到ID_IEHISTORY_LAST的菜单命令�?/p>

ON_COMMAND_RANGE(ID_IEHISTORY_FIRST, ID_IEHISTORY_LAST, OnTravelHistoryUrl)

void CMainFrame::OnTravelHistoryUrl(UINT nID /* Command ID */)

{

//nID - ID_IEHISTORY_MIDDLE即�ؓ(f��)要访问的��览历史到当前页面的距离

g_IETravelLog.TravelTo( nID - ID_IEHISTORY_MIDDLE );

}

6、再谈Travel Log

前面我提�?#8220;Travel Log接口正日益成为应用程序中的重要接口之一”�Q�此处加以说明。从微��Y�q�_��的开发模式及导向来看�Q�基于Internet Explorer/WebBrowser Control的应用势必会(x��)成�ؓ(f��)��L��。在下一代的操作�pȝ��Longhorn中，应用�E�序界面的描�q�将完全由XML的一个特化——XAML来完成，而XAML的解析将由浏览器完成。微软说未来应用�E�序的部�|�将�?x��)十分容易，本地应用和基于浏览器的应用之间的差异��?x��)被逐渐淡化�Q�而实现这一目标的一个重要表现就是，在将来的操作�pȝ��q�_��上，应用�E�序实际上时刻都��运行在Internet Explorer中，Internet Explorer在某�U�程度上来说变成了一个容器�?/p>
于是�Q�扎根于Internet Explorer的Travel Log自然而然地就被整合到了我们的应用�E�序中。君不见�Q�我们每天在资源��理器和��览器上完成的工作，不就是在Travel Log中来来回回地跑吗�Q�如果所有的应用�E�序都嵌入到Internet Explorer中运行，那么我们在应用程序中所作的操作便自然得��C��记录�Q?#8220;前进”�?#8220;后退”也就很Easy了�?/p>
很多软�g都已�l�或多或��地开始采用基于Internet Explorer的模式，如Microsoft Money、Microsoft Encarta、Visual Studio.net的安装程序等�{�，都是很好的范例。所以，��q��前来��_(d��)��我们的应用�E�序按这�U�模式编写（可参考�?a >利用��览器实现程序界面与实现的分��?/a>》）�Q�不是可以早一点获�?#8220;讉K��日志的体�?#8221;吗？

何乐而不为�?/p>

引用地址�Q��?a >Internet Explorer �~�程��q�ͼ�八）实现��览历史菜单�?/font>

Trackback: http://tb.blog.csdn.net/TrackBack.aspx?PostId=308620

旅�?/a> 2007-07-29 15:22 发表评论

Internet Explorer�~�程��q?�?

Sun, 29 Jul 2007 07:18:00 GMT

1、概�q?/strong>
Internet Explorer有实在太多没有公布的东西。上一��文章《Internet Explorer �~�程��q�ͼ�六）自定义浏览器上下文菜单》提到的获取“�~�码”菜单的方法就是利用了��览器的上层�H�口“Shell DocObject View”的未公布的命令ID。本文将要介�l�的是如何用�q�个ID�?#8220;�~�码”菜单攑ֈ�我们自己的菜单中来（如工��h��上的“�~�码”按钮的下拉菜单）�?/p>
#define SHDVID_GETMIMECSETMENU 27
......
CComPtr spCT;

hr = pcmdTarget->QueryInterface(IID_IOleCommandTarget, (void**)&spCT);
......
// Get the language submenu
hr = spCT->Exec(&CGID_ShellDocView, SHDVID_GETMIMECSETMENU, 0, NULL, &var);

2、原�?/strong>

上面指向IOleCommandTarget接口的智能指针spCT是从IDocHostUIHandler::ShowContextMenu的参数pcmdTarget得到的，它其实也可以从HTML文档接口得到�Q�这��是实现的关键�?/p>
3、实�?/strong>

下面的代码演�C�Z��如何��?#8220;�~�码”菜单攄��到我们自��q��~�码菜单上去�?/p>
void CMainFrame::OnDropDown( NMHDR* pNotifyStruct, LRESULT* pResult )

{

　const UINT CmdID_GetMimeSubMenu = 27;

　// Command ID for getting the Encoding submenu

　NMTOOLBAR* pNMToolBar = ( NMTOOLBAR* )pNotifyStruct;

　CMenu menu;

　CMenu* pPopup = 0;

　CMyHtmlView *pView = NULL;

　m_bIsEncodMenuPopup = false;//标志变量�Q�用以在WM_INITMENUPOPUP消息处理函数中检�?#8220;�~�码”菜单

　switch ( pNMToolBar->iItem )

　{

　......
　case ID_VIEW_ENCODE://按下“�~�码”按钮

　{

　　m_bIsEncodMenuPopup = true;

　　VERIFY( menu.LoadMenu( IDR_ENCODE ) );//IDR_ENCODE是预�|�的“�~�码”菜单资源�Q�内含�Q意一��占位用的菜�?/font>

　　CMyHtmlView = GetActiveMyHtmlView();//��查当前是否存在活动的��览器视囄��?/font>

　　if ( pView != NULL )

　　{

　　　LPDISPATCH lpDispatch =pView->GetHtmlDocument();//获得文档指针

　　　if ( lpDispatch != NULL )

　　　{

　　　　// Get an IDispatch pointer for the IOleCommandTarget interface.

　　　　IOleCommandTarget * pCmdTarget = NULL;

　　　　HRESULT hr = lpDispatch->QueryInterface(IID_IOleCommandTarget, (void**)&pCmdTarget);

　　　　if ( SUCCEEDED( hr ) )

　　　　{

　　　　　VARIANT varEncSubMenu;

　　　　　::VariantInit( &varEncSubMenu );

　　　　　hr = pCmdTarget->Exec( &::CGID_ShellDocView, CmdID_GetMimeSubMenu, OLECMDEXECOPT_DODEFAULT, NULL, &varEncSubMenu );

　　　　　if ( SUCCEEDED( hr ) )

　　　　　{

　　　　　　// ��d��“�~�码”菜单

　　　　　　MENUITEMINFO miiEncoding;

　　　　　　::memset( &miiEncoding, 0, sizeof(MENUITEMINFO) );

　　　　　　miiEncoding.cbSize = sizeof(MENUITEMINFO);

　　　　　　miiEncoding.fMask = MIIM_SUBMENU;

　　　　　　miiEncoding.hSubMenu = reinterpret_cast< HMENU > (varEncSubMenu.byref);

　　　　　　menu.SetMenuItemInfo(0, &miiEncoding, TRUE);//丢掉设计时占位用的菜单，替换�?#8220;�~�码”菜单

　　　　　 }

　　　　}

　　　}

　　}

　　pPopup = menu.GetSubMenu( 0 );

　　break;

　}

　......

　}

　

　if ( pPopup != 0 )

　{

　　CRect rc;

　　::SendMessage( pNMToolBar->hdr.hwndFrom, TB_GETRECT, pNMToolBar->iItem, ( LPARAM )&rc );

　　rc.top = rc.bottom;

　　::ClientToScreen( pNMToolBar->hdr.hwndFrom, &rc.TopLeft() );

　　long lResult = pPopup->TrackPopupMenu( TPM_LEFTALIGN | TPM_LEFTBUTTON | TPM_RETURNCMD, rc.left, rc.top, this );

　　m_bIsEncodMenuPopup = false;

　　if ( pNMToolBar->iItem == ID_VIEW_ENCODE )

　　{

　　　//其余的事教给��览器去做，参考�?a id="CategoryEntryList.ascx_EntryStoryList_Entries__ctl1_TitleUrl" >Internet Explorer �~�程��q�ͼ�五）调用IE隐藏的命令（中文版）�?/font>

　　　 CFindIEWnd FindIEWnd( pView->m_wndBrowser.m_hWnd, "Internet Explorer_Server");

　　　::SendMessage( FindIEWnd.m_hWnd, WM_COMMAND, MAKEWPARAM(LOWORD(lResult), 0x0), 0 );

　　}

　　else

　　{

　　　SendMessage( WM_COMMAND, MAKEWPARAM(LOWORD(lResult), 0x0), 0 );

　　}

　}

　*pResult = TBDDRET_DEFAULT;

}

void CMainFrame::OnInitMenuPopup(CMenu* pPopupMenu, UINT nIndex, BOOL bSysMenu)

{

　CMDIFrameWndEx::OnInitMenuPopup(pPopupMenu, nIndex, bSysMenu);

　if ( m_bIsEncodMenuPopup )

　{

　　//默认情况�?#8220;�~�码”的所有菜单项都是Disabled的，在此修改其状态�ؓ(f��)Enabled

　　for ( UINT i=0; i GetMenuItemCount(); i++ )

　　{

　　　pPopupMenu->EnableMenuItem( pPopupMenu->GetMenuItemID( i ), MF_ENABLED | MF_BYCOMMAND );

　　}

　}

}

�q�样一来，原本只在��览器上下文菜单中出现的“�~�码”菜单��出现在了我们自��q��工具条按钮下拉菜单上�Q�无需更多的处理，菜单状态的改变�Q�编码的讄��{�，一切都教给��览器自己去完成了�?/p>

旅�?/a> 2007-07-29 15:18 发表评论

Internet Explorer�~�程��q?�?

Sun, 29 Jul 2007 07:17:00 GMT

1、概�q?br> Internet Explorer提供了非常开发的接口�Q��开发�h员不仅可以把其浏览器核心嵌入应用�E�序�Q�还可以通过各种接口以实现更深层的控制。本文就��介�l�对��览器进行高�U�控制的话题之一——自定义上下文菜单�?/p>
2、最��单的情况
自定义的IE及WebBrowser的上下文菜单�Q�最��单的方式��是在注册表的HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt下添加自定义的键��|��步骤如下�Q?br> 1) ��d��一个新的键�Q�其名称即�ؓ(f��)��来昄��在上下文菜单中的菜单��名�U�ͼ�如：(x��)
　HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\&Google Search
2) ��新增的键的默认��D��|��ؓ(f��)一个包含脚本的�|�页的URL�Q�或文�g路径全名�Q�，该网��中的脚本将在用��L(f��ng)��M��下文菜单中的“Google Search”后被��览器执行�?/p>

3)在新增的键下�q�可以新��Z��个二�q�制值Contexts�Q�用以指定我们新增的菜单��w��对特定的�|�页对象是否出现�Q�其取值可以是如下值的�l�合�Q�逻辑或）

Context　　　　 Value
Default　　　　 0x1
Images　　　　　0x2
Controls　　　　0x4
Tables　　　　　0x8
Text selection　0x10
Anchor　　　　　0x20

4) �q�可以徏立一个DWORD�c�d��的Flags��ƈ��其��D��|��ؓ(f��)0x01�Q�这��得前�q�脚本在一个模态窗口中执行�Q�就好像是通过window.showModalDialog调用的，但不同的是在脚本中仍然可以访问window对象�?br> 5) 实例脚本如下�Q?/p>

通过修改注册表自定义菜单的方法适用于Internet Explorer和W(xu��)ebBrowser�Q�也��h��良好的扩展性。但我们如果希望执行的是不仅仅是脚本�Q�二是自��q��E�序中代码，�q�种�Ҏ(gu��)��׃��适用了�?/p>
3、��用完全自定义的菜�?br>1) IDocHostUIhandler接口提供了一个ShowContextMenu�Ҏ(gu��)��Q�在需要显�C�Z��下文菜单之前�Q�MSHTML引擎��׃��(x��)调用实现了IDocHostUIHandler接口�?br>宿主�E�序的ShowContextMenu�Ҏ(gu��)��?/p>
HRESULTIDocHostUIHandler::ShowContextMenu(
　　DWORD dwID,
　　POINT *ppt,
　　IUnknown *pcmdtReserved,
　　IDispatch *pdispReserved
);

dwID参数的意义与Contexts的组合类��|��ppt��单的弹出点屏�q�坐标；pcmdtReserved接口指向 IOleCommandTarget接口�Q�可用于��网��对象的状态和执行命��o(h��)�{�操作。pdispReserved在IE5以上版本中指向的是网��对象的 IDispatch接口�Q�用以区分不同对象，比如我们可以�q�样来获得网��对象的指针�Q?/p>
IHTMLElement *pElem;
HRESULT hr;
hr = pdispReserved->QueryInterface(IID_IHTMLElement, (void**)pElem);
if(SUCCEEDED (hr)) {
　　BSTR bstr;
　　pElem->get_tagName(bstr);
　　USES_CONVERSION;
　　ATLTRACE("TagName:%s\n", OLE2T(bstr));
　　SysFreeString(bstr);
　　pElem->Release();
}

如果我们在该�Ҏ(gu��)��中返回S_OK�Q�则告诉MSHTML我们��用自��q��菜单�Q�界面）�Q�如果是S_FALSE�Q�则弹出默认的菜单�?/p>
2) 实现
原理清楚之后�Q�实现�v来非常简单，和弹��Z��般的菜单没什么两��P��举例如下�Q�显�C�Z��框架�?#8220;文�g菜单”�Q?/p>
HRESULT CMyHtmlView::OnShowContextMenu(DWORD dwID, LPPOINT ppt, IUnknown * pcmdtReserved, IDispatch *)
{
　// 载入主菜�?br>　HMENU hMenuParent = ::LoadMenu( ::AfxGetInstanceHandle(), MAKEINTRESOURCE(IDR_MAINFRAME) );
　if (hMenuParent)
　{
　　HMENU hMenu = ::GetSubMenu( hMenuParent, 0 ); // 取得“文�g”子菜�?br>　　if (hMenu)
　　{
　　 // 昄��菜单
　　　TrackPopupMenuEx( hMenu,
　　　　TPM_LEFTALIGN | TPM_TOPALIGN,
　　　　ppt->x,
　　　　ppt->y,
　　　　::AfxGetMainWnd()->m_hWnd,
　　　　NULL );
　　}
　　::DestroyMenu( hMenuParent );
　}
　return S_OK;
}

4、自定义标准上下文菜�?br>1) 原理
更多的时候我们希望能在浏览器原来菜单的基��上作一些修改，如删�?#8220;查看源文�?#8221;�Q�添加自��q��菜单��，�{�等�Q�而不是完全不要原始的菜单�Q�怎么办呢�Q�借助MSDN提供的例子，我们来看看：(x��)

HRESULT CBrowserHost::ShowContextMenu(DWORD dwID, POINT *ppt,IUnknown *pcmdTarget,IDispatch *pdispObject)
{
　#define IDR_BROWSE_CONTEXT_MENU 24641
　#define IDR_FORM_CONTEXT_MENU 24640
　#define SHDVID_GETMIMECSETMENU 27
　#define SHDVID_ADDMENUEXTENSIONS 53

　HRESULT hr;
　HINSTANCE hinstSHDOCLC;
　HWND hwnd;
　HMENU hMenu;

　CComPtr spCT;
　CComPtr spWnd;

　MENUITEMINFO mii = {0};
　CComVariant var, var1, var2;
　hr = pcmdTarget->QueryInterface(IID_IOleCommandTarget, (void**)&spCT);
　hr = pcmdTarget->QueryInterface(IID_IOleWindow, (void**)&spWnd);
　hr = spWnd->GetWindow(&hwnd);//取得��览器窗口句�?br>　hinstSHDOCLC = LoadLibrary(TEXT("SHDOCLC.DLL"));
　if (hinstSHDOCLC == NULL)
　{
　　// Error loading module -- fail as securely as possible
　　return;
　}
　hMenu = LoadMenu(hinstSHDOCLC, MAKEINTRESOURCE(IDR_BROWSE_CONTEXT_MENU));
　hMenu = GetSubMenu(hMenu, dwID);
　// Get the language submenu
　hr = spCT->Exec(&CGID_ShellDocView, SHDVID_GETMIMECSETMENU, 0, NULL, &var);
　mii.cbSize = sizeof(mii);
　mii.fMask = MIIM_SUBMENU;
　mii.hSubMenu = (HMENU) var.byref;
　// Add language submenu to Encoding context item
　SetMenuItemInfo(hMenu, IDM_LANGUAGE, FALSE, &mii);
　// Insert Shortcut Menu Extensions from registry
　V_VT(&var1) = VT_INT_PTR;
　V_BYREF(&var1) = hMenu;
　V_VT(&var2) = VT_I4;
　V_I4(&var2) = dwID;
　hr = spCT->Exec(&CGID_ShellDocView, SHDVID_ADDMENUEXTENSIONS, 0, &var1, &var2);
　// Remove View Source
　DeleteMenu(hMenu, IDM_VIEWSOURCE, MF_BYCOMMAND);//删除“查看源文�?#8221;菜单��?br>　// Show shortcut menu
　int iSelection = ::TrackPopupMenu(hMenu,
　　TPM_LEFTALIGN | TPM_RIGHTBUTTON | TPM_RETURNCMD ,//�q�回用户选择的菜单命令ID
　　ppt->x,
　　ppt->y,
　　0,
　　hwnd,
　　(RECT*)NULL);
　// Send selected shortcut menu item command to shell
　LRESULT lr = ::SendMessage(hwnd, WM_COMMAND, iSelection, NULL);//发送到Internet Explorer_Server�q�行内部处理�?br>　FreeLibrary(hinstSHDOCLC);
　return S_OK;
}

�? 上面的例子我们看出，基本的方法就是根�?#8220;shdoclc.dll”文�g中的菜单资源建立菜单�Q�再通过来自pcmdTarget�? IOlcCommandTarget接口获得“�~�码”菜单以及HKEY_CURRENT_USER\Software\Microsoft\ Internet Explorer\MenuExt下的定义扩展菜单�Q�然后以TPM_RETURNCMD标志调用TrackPopupMenu�? TrackPopupMenuEx弹出菜单�Q��ƈ��返回的菜单命��o(h��)ID教给��览器窗口进行处理。这�U�方法可以调用许多通过��览器无法直接调用的命��o(h��)和对话框 �Q�参阅：(x��)�?a >Internet Explorer �~�程��q�ͼ�五）调用IE隐藏的命�?/font>》）�?/font>

所以，我们只需要在弹出菜单之前做一些自定义操作卛_��辑ֈ�修改默认菜单的目的，如上面代码中��q��删除�?#8220;查看源文�?#8221;菜单��V�?/font>

2) 问题
如果我们不仅仅是删除默认的菜单项或是修改了默认的菜单��，�q�添加了自己的菜单项�Q�会(x��)出现什么情况呢�Q�由于��用了�c�M��于MFC中UpdateUI的机�Ӟ��遇到不认识的CommandID�Q�浏览器��׃��(x��)��其状态设�|��ؓ(f��)Disabled�Q�所以我们自己添加的菜单是无法被选择的�?br>�? 以想刎ͼ�如果把菜单状态设�|��ؓ(f��)Enabled�Q��ƈ通过TPM_RETURNCMD标志调用TrackPopupMenu�? TrackPopupMenuEx�Q�再把返回的命��o(h��)ID教给合适的�H�口�Q�如��L��架窗口）��d��理不��p��了。关键点��在于如何把菜单状态设�|��ؓ(f��) Enabled�?/font>

3) 实现
解决的办法是截获 WM_INITMENUPOPUP 消息�Q�在菜单创徏以后�Q�尚未显�C�Z��前修改菜单项状态，那浏览器��没有办法了。截获WM_INITMENUPOPUP消息则可使用子类化（subclass�Q�的技术，前面通过IOleWindow接口我们得到了浏览器�H�口的句柄hwnd�Q�则可以�q�样做：(x��)

HMENU g_hPubMenu = NULL;
WNDPROC g_lpPrevWndProc = NULL;

LRESULT CALLBACK CustomMenuWndProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
　if (uMsg == WM_INITMENUPOPUP)
　{
　　if (wParam == (WPARAM) g_hPubMenu)
　　{
　　　::EnableMenuItem( 自定义的菜单命��o(h��)ID, MF_ENABLED | MF_BYCOMMAND );
　　　::CheckMenuItem( 自定义的菜单命��o(h��)ID, MF_BYCOMMAND);
　　　return 0;
　　}
　}
　return CallWindowProc(g_lpPrevWndProc, hwnd, uMsg, wParam, lParam);
}

HRESULT CMyHtmlView::OnShowContextMenu(DWORD dwID, LPPOINT ppt,
LPUNKNOWN pcmdtReserved, LPDISPATCH pdispReserved)
{
//��览器菜单句柄保存在g_hPubMenu�?br>......
// subclass��览器窗�?br>g_lpPrevWndProc = (WNDPROC)::SetWindowLong(hwnd, GWL_WNDPROC, (LONG)CustomMenuWndProc);
//m_SubclassWnd.SubclassWindow( hwnd );//MFC中用此方法更��?/font>

// Show shortcut menu
int iSelection = ::TrackPopupMenu(hSubMenu,
　TPM_LEFTALIGN | TPM_RIGHTBUTTON | TPM_RETURNCMD,
　ppt->x,
　ppt->y,
　0,
　hwnd,
　(RECT*)NULL);
// Unsubclass��览器窗�?br>::SetWindowLong(hwnd, GWL_WNDPROC, (LONG)g_lpPrevWndProc);
g_lpPrevWndProc = NULL;
//m_SubclassWnd.UnsubclassWindow();

if (iSelection == 自定义的菜单命��o(h��)ID )
{
　::SendMessage( ::AfxGetMainWnd()->m_hWnd, WM_COMMAND, MAKEWPARAM(LOWORD(lResult), 0x0), 0 );
}
else
{
　LRESULT lr = ::SendMessage(hwnd, WM_COMMAND, iSelection, NULL);
}
......
}

在MFC 中则更�ؓ(f��)方便�Q�从CWnd�l�承一个窗口类�Q�假设�ؓ(f��)CWebBrowserSubclassWnd�Q��ؓ(f��)CMyHtmlView��d��一�? CWebBrowserSubclassWnd�c�d��的成员变量m_SubclassWnd�Q�在子类化和去除子类化时调用 m_SubclassWnd.SubclassWindow( hwnd )和m_SubclassWnd.UnsubclassWindow()卛_��。相应的WM_INITMENUPOPUP消息处理函数如下所�C�：(x��)

void CWebBrowserSubclassWnd::OnInitMenuPopup(CMenu* pPopupMenu, UINT nIndex, BOOL bSysMenu)
{
　CWnd::OnInitMenuPopup(pPopupMenu, nIndex, bSysMenu);

　pPopupMenu->EnableMenuItem( 自定义的菜单命��o(h��)ID, MF_ENABLED | MF_BYCOMMAND );
　pPopupMenu->CheckMenuItem( 自定义的菜单命��o(h��)ID, MF_BYCOMMAND);
}

下面的图片显�C�Z��?#8220;文字大小”菜单��Ҏ(gu��)��加到“�~�码”菜单��的下面的效果�?/font>

5、新的问�?br> 看完上面的代码，我们又自然地惛_��览器编�E�中的另一个问题，那就�?#8220;�~�码”菜单。我们指定，手动建立一�?#8220;�~�码”菜单是比较麻烦的事，而且很难做到与浏览器上下文菜单上�?#8220;�~�码”菜单一��L(f��ng)��效果。何不��用上�q�的�Ҏ(gu��)��让浏览器自己建立“�~�码”菜单和处理相应的命��o(h��)呢？

具体实现��L(f��ng)��下一��文章《Internet Explorer �~�程��q�ͼ�七）完美�?#8220;�~�码”菜单�?/font>

参考资�?/strong> �Q?br>MSDN:Adding Entries to the Standard Context Menu
MSDN:How To Adding to the Standard Context Menus of the WebBrowser Control
MSDN:IDocHostUIHandler::ShowContextMenu Method
BeginThread.com:Custom WebBrowser Context Menus

旅�?/a> 2007-07-29 15:17 发表评论

Internet Explorer�~�程��q?�?

Sun, 29 Jul 2007 07:14:00 GMT
1、概�q?br>
　　除了“整理收藏�?#8221;�?#8220;��d��到收藏夹”对话框外�Q�还有其它一些对话框是我们希望直接通过WebBrowser调用的，比如“导入/导出”对话框，用一般的�Ҏ(gu��)��很难调用。IShellUIHelper��管提供了ImportExportFavorites�Ҏ(gu��)��Q�但�l�果只是昄��一个选择文�g的对话框�Q�且只能导入/导出收藏夹而不能对Cookies操作�?br>

　　2、契�?br>
　　MSDN中有一��叫“WebBrowser Customization”的文章，其中介绍了通过IDocHostUIHandler.ShowContextMenu�Ҏ(gu��)��自定义WebBrowser上下文菜单的�Ҏ(gu��)��?br>
�? 原理是从“shdoclc.dll”的资源中创徏菜单�Q�作一些修改之后用TrackPopupMenu函数�Q�注意在标志中包�? TPM_RETURNCMD�Q�将菜单弹出�Q�然后把�q�回的Command ID发送给“Internet Explorer_Server”�H�口�q�行处理�?/p>

　　......
　　// 昄��菜单
　　int iSelection = ::TrackPopupMenu(hMenu,
　　TPM_LEFTALIGN | TPM_RIGHTBUTTON | TPM_RETURNCMD,
　　ppt->x,
　　ppt->y,
　　0,
　　hwnd,
　　(RECT*)NULL);
　　// 发送Command ID到外壳窗�?br>　　LRESULT lr = ::SendMessage(hwnd, WM_COMMAND, iSelection, NULL);
　　......

　　好，如果扑ֈ�所有上下文菜单的Command ID�Q�不��可以随时调用了�Q�确实是�q�样的�?br>
　　3、实�?br>　　用eXeScope之类应用�E�序资源探烦器打开“shdoclc.dll”便可以在菜单资源下找��C��下文菜单的设计，如下图：(x��)

　　我们要做的，��是��这些ID发送到“Internet Explorer_Server”�H�口�q�行处理。问题是WebBrowser其实是一个OLE容器�Q�我们��用的CHtmlView又是更外层的��装�Q�他�? 的m_hWnd成员变量�q�不是IE�H�口的句柄，如何扑ֈ�我们需要的句柄呢？��L(f��ng)��下面的图�Q?/p>

　　�Ҏ(gu��)��图中昄��的从属关�p�，��摸瓜�Q�最内层的窗�?#8220;Internet Explorer_Server”的句柄就是我们需要的东西。�ؓ(f��)了简化问题，我这里��用了来自MSDN Magazine资深专栏撰稿人Paul Dilascia的CFindWnd�c�，非常好用�?/p>

　　////////////////////////////////////////////////////////////////
　　// MSDN Magazine -- August 2003
　　// If this code works, it was written by Paul DiLascia.
　　// If not, I don't know who wrote it.
　　// Compiles with Visual Studio .NET on Windows XP. Tab size=3.
　　//
　　// ---
　　// This class encapsulates the process of finding a window with a given class name
　　// as a descendant of a given window. To use it, instantiate like so:
　　//
　　// CFindWnd fw(hwndParent,classname);
　　//
　　// fw.m_hWnd will be the HWND of the desired window, if found.
　　//
　　class CFindWnd {
　　private:
　　//////////////////
　　// This private function is used with EnumChildWindows to find the child
　　// with a given class name. Returns FALSE if found (to stop enumerating).
　　//
　　static BOOL CALLBACK FindChildClassHwnd(HWND hwndParent, LPARAM lParam) {
　　CFindWnd *pfw = (CFindWnd*)lParam;
　　HWND hwnd = FindWindowEx(hwndParent, NULL, pfw->m_classname, NULL);
　　if (hwnd) {
　　pfw->m_hWnd = hwnd; // found: save it
　　return FALSE; // stop enumerating
　　}
　　EnumChildWindows(hwndParent, FindChildClassHwnd, lParam); // recurse
　　return TRUE; // keep looking
　　}
　　public:
　　LPCSTR m_classname; // class name to look for
　　HWND m_hWnd; // HWND if found
　　// ctor does the work--just instantiate and go
　　CFindWnd(HWND hwndParent, LPCSTR classname)
　　: m_hWnd(NULL), m_classname(classname)
　　{
　　FindChildClassHwnd(hwndParent, (LPARAM)this);
　　}
　　};

　　再写一个函数InvokeIEServerCommand�Q�调用就很方便了�Q�《Internet Explorer �~�程��q�ͼ�四）“��d��到收藏夹”对话框》中最后给出的�Ҏ(gu��)��是从这里来的�?/p>

　　void CMyHtmlView::InvokeIEServerCommand(int nID)
　　{
　　CFindWnd FindIEWnd( m_wndBrowser.m_hWnd, "Internet Explorer_Server");
　　::SendMessage( FindIEWnd.m_hWnd, WM_COMMAND, MAKEWPARAM(LOWORD(nID), 0x0), 0 );
　　}

void CMyHtmlView::OnFavAddtofav()
　　{
　　InvokeIEServerCommand(ID_IE_CONTEXTMENU_ADDFAV);//调用“��d��到收藏夹”对话�?br>　　}

　　4、Command IDs
　　�Ҏ(gu��)��有的Command ID逐一��试后我们发玎ͼ�(x��)
　　1)不是所有的Command ID都可以用上面的方法调用；
　　2)不是所有的Command ID都是�?#8220;Internet Explorer_Server”�H�口处理�Q?br>　　3)有一些Command ID是由上一�U�窗�?#8220;Shell DocObject View”处理�?br>　　所以我们还需要写一个函数�?/p>

　　void CMyHtmlView::InvokeShellDocObjCommand(int nID)
　　{
　　CFindWnd FindIEWnd( m_wndBrowser.m_hWnd, "Shell DocObject View");
　　::SendMessage( FindIEWnd.m_hWnd, WM_COMMAND, MAKEWPARAM(LOWORD(nID), 0x0), 0 );
　　}

　　调用文章开头提到的“导入/导出”对话框可以这��h��做：(x��)

　　void CDemoView::OnImportExport()
　　{
　　InvokeShellDocObjCommand(ID_IE_FILE_IMPORTEXPORT);//调用“导入/导出”对话�?br>　　}

　　�?Internet Explorer_Server"�H�口处理的Command ID:
　　#define ID_IE_CONTEXTMENU_ADDFAV 2261
　　#define ID_IE_CONTEXTMENU_VIEWSOURCE 2139
　　#define ID_IE_CONTEXTMENU_REFRESH 6042

　　�?Shell DocObject View"�H�口处理的Command ID:
　　#define ID_IE_FILE_SAVEAS 258
　　#define ID_IE_FILE_PAGESETUP 259
　　#define ID_IE_FILE_PRINT 260
　　#define ID_IE_FILE_NEWWINDOW 275
　　#define ID_IE_FILE_PRINTPREVIEW 277
　　#define ID_IE_FILE_NEWMAIL 279
　　#define ID_IE_FILE_SENDDESKTOPSHORTCUT 284
　　#define ID_IE_HELP_ABOUTIE 336
　　#define ID_IE_HELP_HELPINDEX 337
　　#define ID_IE_HELP_WEBTUTORIAL 338
　　#define ID_IE_HELP_FREESTUFF 341
　　#define ID_IE_HELP_PRODUCTUPDATE 342
　　#define ID_IE_HELP_FAQ 343
　　#define ID_IE_HELP_ONLINESUPPORT 344
　　#define ID_IE_HELP_FEEDBACK 345
　　#define ID_IE_HELP_BESTPAGE 346
　　#define ID_IE_HELP_SEARCHWEB 347
　　#define ID_IE_HELP_MSHOME 348
　　#define ID_IE_HELP_VISITINTERNET 349
　　#define ID_IE_HELP_STARTPAGE 350
　　#define ID_IE_FILE_IMPORTEXPORT 374
　　#define ID_IE_FILE_ADDTRUST 376
　　#define ID_IE_FILE_ADDLOCAL 377
　　#define ID_IE_FILE_NEWPUBLISHINFO 387
　　#define ID_IE_FILE_NEWCORRESPONDENT 390
　　#define ID_IE_FILE_NEWCALL 395
　　#define ID_IE_HELP_NETSCAPEUSER 351
　　#define ID_IE_HELP_ENHANCEDSECURITY 375

　　5、Refresh

　　熟�?zh��n)�TEmbeddedWB的读者可能注意到了ID_IE_CONTEXTMENU_REFRESH(6042)�q�个ID�Q�在TEmbeddedWB中给��Z��一个当�|�页��h��时触发的OnRefresh事�g�Q�其中的关键代码如下�Q?/p>

　　......
　　if Assigned(FOnRefresh) and ((nCmdID = 6041 { F5}) or (nCmdID = 6042 { ContextMenu}) or (nCmdID = 2300)) then
　　begin
　　FCancel := False;
　　FOnRefresh(self, nCmdID, FCancel);
　　if FCancel then Result := S_OK;
　　end;
　　......

其中�?402��是我们�q�里的ID_IE_CONTEXTMENU_REFRESH�Q?300是内�|�的��h��命��o(h��)�Q�那6041呢。见下图�Q�还�? “shdoclc.dll”�Q?041原来是IE“查看”菜单�?#8220;��h��”菜单的命令ID。实际开发中我们发现直接调用WebBrowser�? Refresh命��o(h��)有时候会(x��)��D��一些错误，可以用这里的�Ҏ(gu��)��替换一下�?br>

　　6、需要注意的问题

　　1)用InvokeIEServerCommand (ID_IE_CONTEXTMENU_ADDFAV)调用“��d��到收藏夹”对话框时需要注意的是，IE接收�? ID_IE_CONTEXTMENU_ADDFAV命��o(h��)时是对网��中当前被选中的链接来执行“��d��到收藏夹”操作的，如果没有选中的链接，才是��当前网��? ��d��到收藏夹�?br>
　　2)新徏IE�H�口。这是浏览器�~�程中的��N��之一�Q�即从当前窗口新��Z��个Internet Explorer�H�口�Q�完全复制当前页的内容（包括“前进”�?#8220;后退”的状态）�Q�这可以通过InvokeShellDocObjCommand (ID_IE_FILE_NEWWINDOW)来实现�?br>
　　3)昄��IE的版本信息。调用InvokeShellDocObjCommand(ID_IE_HELP_ABOUTIE)�Q�如下：(x��)

　　4)InvokeShellDocObjCommand(ID_IE_FILE_PRINT)调出�?#8220;打印”对话框是非模态的�Q�我们不太清�? Microsoft的设计意图，我认�?#8220;打印”对话框应该是模态的�Q�，昄��模态窗口的�Ҏ(gu��)��请参考我的另一��文章《利用WH_CBT Hook��非模态对话框昄��为模态对话框�?/p>

旅�?/a> 2007-07-29 15:14 发表评论

Internet Explorer�~�程��q?�?

Sun, 29 Jul 2007 07:12:00 GMT
　1、概�q?
　　调用“��d��到收藏夹”对话框（如下�Q�与调用“整理收藏�?#8221;对话框有不同之处�Q�前者所做的工作比后者要来得复杂。将链接��d��到收藏夹除了��链接保存之外，�q�可能会(x��)有脱��问的讄��Q�从IE 4.0到IE 5.0�Q�处理的方式也发生了一些变化�?br>

　　2、IShellUIHelper接口

　　微��Y专门提供了一个接口IShellUIHelper来实现对Windows Shell API一些功能的讉K��Q�将链接��d��到收藏夹也是其中之一�Q�就是下面的AddFavorite函数�?/p>

　　HRESULT IShellUIHelper::AddFavorite(BSTR URL, VARIANT *Title);

　　实例代码如下�Q?/p>

　　void CMyHtmlView::OnAddToFavorites()
　　{
　　IShellUIHelper* pShellUIHelper;
　　HRESULT hr = CoCreateInstance(CLSID_ShellUIHelper, NULL,
　　CLSCTX_INPROC_SERVER, IID_IShellUIHelper,(LPVOID*)&pShellUIHelper);

　　if (SUCCEEDED(hr))
　　{
　　_variant_t vtTitle(GetTitle().AllocSysString());
　　CString strURL = m_webBrowser.GetLocationURL();

　　pShellUIHelper->AddFavorite(strURL.AllocSysString(), &vtTitle);
　　pShellUIHelper->Release();
　　}
　　}

　　我们注意到这里的“AddFavorite”函数�q�没有像“DoOrganizeFavDlg”那样需要一个父�H�口句柄。这也导致与在IE中打开不同�Q�通过IShellUIHelper接口昄��出来�?#8220;��d��到收藏夹”对话框是“非模�?#8221;的，有一个独立于我们应用�E�序的�Q务栏按钮�Q�这使我们的��览器显得非�怸�专业�Q�我是个�q�求完美的�h�Q�这也是我的��览器迟�q�不能发布的原因之一�Q��?br>
　　于是我们很自然地惛_��“shdocvw.dll”中除�?#8220;DoOrganizeFavDlg”外，应该�q�有一个类似的函数�Q�可以传入一个父�H�口句柄用以昄��模态窗口，也许��像�q�样�Q?/p>

　　typedef UINT (CALLBACK* LPFNADDFAV)(HWND, LPTSTR, LPTSTR);

　　事实上，�q�样的函数确实存在于“shdocvw.dll”中，那就�?#8220;DoAddToFavDlg”�?/p>

　　3、DoAddToFavDlg函数

　　“DoAddToFavDlg”函数也是“shdocvw.dll”暴露出来的函��C��一�Q�其原型如下�Q?/p>

　　typedef BOOL (CALLBACK* LPFNADDFAV)(HWND, TCHAR*, UINT, TCHAR*, UINT,LPITEMIDLIST);

　　�W�一个参数正是我们想要的父窗口句柄，�W�二和第四个参数分别是初始目录（一般来说就是收藏夹目录�Q�和要添加的链接的名字（比如�|�页�? Title�Q�，�W�三和第五个参数分别是第二和�W�四两个�~�冲区的长度�Q�而最后一个参数则是指向与�W�二个参数目录相关的item identifier list的指�?PIDL)。但最奇怪的是这里�ƈ没有�?#8220;AddFavorite”函数一��L(f��ng)��链接URL�Q�那链接是怎样��d��的呢�Q�答案是“手动创徏”�?br>
�W�二个参数在函数调用�q�回后会(x��)包含用户�?#8220;��d��到收藏夹”对话框中选择或创建的完整链接路径名（�?#8220;X:\XXX\mylink.url”�Q�，我们��根据这个�\径和�|�页的URL来创建链接，代码如下�Q��ؓ(f��)��化，此处省去��?shdocvw.dll"是否已在内存中的代码�Q�参见《Internet Explorer �~�程��q�ͼ�三）“整理收藏�?#8221;对话框》）�Q?/p>

　　void CMyHtmlView::OnFavAddtofav()
　　{
　　typedef BOOL (CALLBACK* LPFNADDFAV)(HWND, TCHAR*, UINT, TCHAR*, UINT,LPITEMIDLIST);

　　HMODULE hMod = (HMODULE)LoadLibrary("shdocvw.dll");
　　if (hMod)
　　{
　　LPFNADDFAV lpfnDoAddToFavDlg = (LPFNADDFAV)GetProcAddress( hMod, "DoAddToFavDlg");
　　if (lpfnDoAddToFavDlg)
　　{
　　TCHAR szPath[MAX_PATH];
　　LPITEMIDLIST pidlFavorites;

　　if (SHGetSpecialFolderPath(NULL, szPath, CSIDL_FAVORITES, TRUE) &&
　　(SUCCEEDED(SHGetSpecialFolderLocation(NULL, CSIDL_FAVORITES, &pidlFavorites))))
　　{
　　TCHAR szTitle[MAX_PATH];
　　strcpy(szTitle, GetLocationName());

　　TCHAR szURL[MAX_PATH];
　　strcpy(szURL, GetLocationURL());

　　BOOL bOK = lpfnDoAddToFavDlg(m_hWnd, szPath,
　　sizeof(szPath)/sizeof(szPath[0]), szTitle,
　　sizeof(szTitle)/sizeof(szTitle[0]), pidlFavorites);
　　CoTaskMemFree(pidlFavorites);

　　if (bOK)
　　CreateInternetShortcut( szURL, szPath, ""); //创徏Internet快捷方式
　　}
　　}
　　FreeLibrary(hMod);
　　}
　　return;
　　}

　　实现CreateInternetShortcut函数创徏Internet快捷方式�Q�可以用��d��INI文�g的方法，但更好的则是利用IUniformResourceLocator接口�?/p>

　　HRESULT CMyHtmlView::CreateInternetShortcut(LPCSTR pszURL, LPCSTR pszURLfilename,
　　LPCSTR szDescription,LPCTSTR szIconFile,int nIndex)
　　{
　　HRESULT hres;

　　CoInitialize(NULL);

　　IUniformResourceLocator *pHook;

　　hres = CoCreateInstance (CLSID_InternetShortcut, NULL, CLSCTX_INPROC_SERVER,
　　IID_IUniformResourceLocator, (void **)&pHook);

　　if (SUCCEEDED (hres))
　　{
　　IPersistFile *ppf;
　　IShellLink *psl;

　　// Query IShellLink for the IPersistFile interface for
　　hres = pHook->QueryInterface (IID_IPersistFile, (void **)&ppf);
　　hres = pHook->QueryInterface (IID_IShellLink, (void **)&psl);

　　if (SUCCEEDED (hres))
　　{
　　WORD wsz [MAX_PATH]; // buffer for Unicode string

　　// Set the path to the shortcut target.
　　pHook->SetURL(pszURL,0);

　　hres = psl->SetIconLocation(szIconFile,nIndex);

　　if (SUCCEEDED (hres))
　　{
　　// Set the description of the shortcut.
　　hres = psl->SetDescription (szDescription);

　　if (SUCCEEDED (hres))
　　{
　　// Ensure that the string consists of ANSI characters.
　　MultiByteToWideChar (CP_ACP, 0, pszURLfilename, -1, wsz, MAX_PATH);

　　// Save the shortcut via the IPersistFile::Save member function.
　　hres = ppf->Save (wsz, TRUE);
　　}
　　}

　　// Release the pointer to IPersistFile.
　　ppf->Release ();
　　psl->Release ();
　　}

　　// Release the pointer to IShellLink.
　　pHook->Release ();

　　}
　　return hres;
　　}

　　好，上面的方法虽焉��烦一点，但�ȝ��解决�?#8220;模态窗�?#8221;的问题，使得我们的程序不至于让用户鄙视。但是问题又来了�Q�我们发�?#8220;允许脱机使用”是Disabled的，�?#8220;自定�?#8221;也就无从谈�v了，��管90%的�h都没有��用过IE提供的脱机浏览�?br>

　　��N��我们的希望要破灭吗？我们一斚w��惛_��调用“AddFavorite”函数一��L(f��ng)��不必手动创徏链接�Q�一斚w��又要模态显�C�窗口，��像IE那样�Q�还能自定义脱机��览�?/p>
　　3、脚本方�?/p>
　　许多�|�页上都�?x��)有一个按钮或链接“��d��本页到收藏夹”�Q�实际上通过下面的脚本显�C�模态的“��d��到收藏夹”对话框将�|�页加入到收藏夹�?/p>

　　window.external.AddFavorite(location.href, document.title);

　　�q�里的external对象是WebBrowser内置的COM自动化对象，以实现对文档对象模型�Q�DOM�Q�的扩展�Q�我们也可以通过 IDocHostUIHandler实现自己的扩展）.查阅MSDN可以得知external对象的的�Ҏ(gu��)��与IShellUIHelper接口提供的方�? 是一��L(f��ng)��。我们有理由�怿��Q�IShellUIHelper提供了对WebBrowser内置的external对象的访问，如果在适当的地方创�? IShellUIHelper接口的实例，也许调用“AddFavorite”函数昄��出来的就是模态对话框了。问题是我们�q�没有找到这��L(f��ng)��地方�?/p>
　　从上面的脚本�Q�我们很自然地又惛_��另一个方法。如果能够让�|�页来执行上面的脚本�Q�岂不是问题��p��决了�Q�说做就做，如下�Q?/p>

　　void CMyHtmlView::OnFavAddtofav()
　　{
　　CString strUrl = GetLocationURL();
　　CString strTitle = GetLocationName();
　　CString strjs = "javascript:window.external.AddFavorite('" + strUrl + "'," + "'" + strTitle + "');";
　　ExecScript(strjs);
　　}

　　void CMIEView::ExecScript(CString strjs)
　　{
　　CComQIPtr   pHTMLDoc = (IHTMLDocument2*)GetHtmlDocument();
　　if ( pHTMLDoc != NULL )
　　{
　　CComQIPtr   pHTMLWnd;
　　pHTMLDoc->get_parentWindow( &pHTMLWnd );

　　if ( pHTMLWnd != NULL )
　　{
　　CComBSTR bstrjs = strjs.AllocSysString();
　　CComBSTR bstrlan = SysAllocString(L"javascript");
　　VARIANT varRet;
　　pHTMLWnd->execScript(bstrjs, bstrlan, &varRet);
　　}
　　}
　　}

　　先从CHtmlView获得文档的父�H�口window对象的指针，再调用其�Ҏ(gu��)��execScript来执行脚本（事实上可以执行�Q意的脚本�Q��? 试验发现�Q�这个方法非常有效，不仅�H�口是模态的�Q�而且不需要手动创建链接，更重要的�?#8220;允许脱机使用”�?#8220;自定�?#8221;按钮也可以用了�?/p>
　　4、问题仍旧没有解�?/p>
　　执行脚本的方式看��h��有效�Q�可一旦我们的�E�序实现了IDocHostUIHandler接口对WebBrowser�q�行高��控制�Q�就�?x��)发��C��? 执行的脚本包含有�?#8220;external”对象的调用，��׃��(x��)出现“找不到对�?#8221;的脚本错误。原因是当MSHTML解析引擎�Q��ƈ非WebBrowser�Q�检�? 到宿��d��C��IDocHostUIHandler接口�Q�就�?x��)调用其GetExternal�Ҏ(gu��)��以获得一个用以扩展DOM的自动化接口的引用�?/p>

　　HRESULT IDocHostUIHandler::GetExternal(IDispatch **ppDispatch�Q?/p>

　　但有时候我们�ƈ没有惌��扩展DOM�Q�同时我们还希望WebBrowser使用它自��q��DOM扩展。糟�p�的是GetExternal�Ҏ(gu��)��的文档中说这�U�情况下必须把ppDispatch讄��为NULL�Q�换句话��_(d��)��W(xu��)ebBrowser�q�它内置的external对象也不用了�Q�那我们�? window.external.AddFavorite��变得无处�ؓ(f��)家了�?/p>
　　我曾多方��试��WebBrowser内置的external对象扑և�来，虽然都没有成功，但是解决问题的方法却被我扑ֈ�了�?/p>
　　5、完��的�Ҏ(gu��)��

　　WebBrowser内置的external对象我们虽然找不刎ͼ�但它肯定存在�Q�我们只要想办法让WebBrowser自己完成对其调用卛_��? 实现非常��单，扑ֈ�WebBrowser中包含的“Internet Explorer_Server”�H�口的句柄，发一个消息就完成了。下面的代码中假设m_hWndIE��是“Internet Explorer_Server”�H�口的句柄�?/p>

　　#define ID_IE_ID_ADDFAV 2261
　　::SendMessage( m_hWndIE, WM_COMMAND, MAKEWPARAM(LOWORD(ID_IE_ID_ADDFAV), 0x0), 0 );

　　试一试成果，是不是和在Internet Explorer中选择“��d��到收藏夹”的效果一模一栗��?/p>
　　至于��Z��么这样做�Q�后�l�文章再说�?/p>

旅�?/a> 2007-07-29 15:12 发表评论

Internet Explorer�~�程��q?�?

Sun, 29 Jul 2007 07:10:00 GMT
关于Internet Explorer的收藏夹�Q�比较常见的两个问题��是调用“整理收藏�?#8221;对话框和“��d��到收藏夹”对话框。调用的�Ҏ(gu��)��有多�U�，但其中还是有些值得讨论的地斏V�?
　　关键字：(x��)��d��到收藏夹�Q�整理收藏夹�Q�DoAddToFavDlg�Q?DoOrganizeFavDlg

　　 1、整理收藏夹

　　调用“整理收藏�?#8221;对话框（如下�Q�，基本上来说都用的是同一个方法，卌��?#8220;shdocvw.dll”中的“DoOrganizeFavDlg”函数�Q�把父窗口句柄和收藏夹�\径作为参��C��入即可�?/p>

　　 2、代�?/strong>

　　代码实例如下所�C�，值得注意的是�?#8220;shdocvw.dll”的处理，为避免重复调用，应该先检查其是否已经在内存中�?/p>

　　void CMyHtmlView::OnFavOrganizefav()
　　{
　　typedef UINT (CALLBACK* LPFNORGFAV)(HWND, LPTSTR);

　　bool bResult = false;

　　HMODULE hMod = ::GetModuleHandle( _T("shdocvw.dll") );

　　if (hMod == NULL)//如果"shdocvw.dll"��未载入则蝲入之
　　{
　　hMod = ::LoadLibrary( _T("shdocvw.dll") );

　　if (hMod == NULL)
　　{

　　MessageBox( _T("The dynamic link library ShDocVw.DLL cannot be found."),
　　_T("Error"), MB_OK | MB_ICONSTOP );
　　return;
　　}
　　LPFNORGFAV lpfnDoOrganizeFavDlg = (LPFNORGFAV)
　　::GetProcAddress( hMod, "DoOrganizeFavDlg" );

　　if (lpfnDoOrganizeFavDlg == NULL)
　　{
　　MessageBox( _T("The entry point DoOrganizeFavDlg cannot be found\n")
　　_T("in the dynamic link library ShDocVw.DLL."),
　　_T("Error"), MB_OK | MB_ICONSTOP );
　　return;
　　}

　　TCHAR szPath [ MAX_PATH ];
　　HRESULT hr;

　　hr = ::SHGetSpecialFolderPath( m_hWnd, szPath, CSIDL_FAVORITES, TRUE );
　　if (FAILED(hr))
　　{
　　MessageBox( _T("The path of the Favorites folder cannot be found."),
　　_T("Error"), MB_OK | MB_ICONSTOP );
　　return;
　　}

　　bResult = (*lpfnDoOrganizeFavDlg) ( m_hWnd, szPath ) ? true : false;

　　::FreeLibrary( hMod );
　　}
　　else//如果"shdocvw.dll"已经在调用者进�E�的地址�I�间中则直接使用�?br>　　{
　　LPFNORGFAV lpfnDoOrganizeFavDlg = (LPFNORGFAV)
　　::GetProcAddress( hMod, "DoOrganizeFavDlg" );

　　if (lpfnDoOrganizeFavDlg == NULL)
　　{
　　MessageBox( _T("The entry point DoOrganizeFavDlg cannot be found\n")
　　_T("in the dynamic link library ShDocVw.DLL."),
　　_T("Error"), MB_OK | MB_ICONSTOP );
　　return;
　　}

　　TCHAR szPath [ MAX_PATH ];
　　HRESULT hr;

　　hr = ::SHGetSpecialFolderPath( m_hWnd, szPath, CSIDL_FAVORITES, TRUE );
　　if (FAILED(hr))
　　{
　　MessageBox( _T("The path of the Favorites folder cannot be found."),
　　_T("Error"), MB_OK | MB_ICONSTOP );
　　return;
　　}

　　bResult = (*lpfnDoOrganizeFavDlg) ( m_hWnd, szPath ) ? true : false;
　　}

　　return;

　　}

　　 3、讨�?/strong>

　　实际上，�?#8220;DoOrganizeFavDlg”函数的原型声明我们可以看刎ͼ��׃��需要一个�\径，所�?#8220;整理收藏�?#8221;对话框其实不仅可以用来整理收藏夹�Q�还可以整理��盘上的目录。而且所谓的整理也不�q�是提供了一个对话框使用��L(f��ng)��h��比较方便而已�Q�和直接在资源管理器中整理没有实质性的差别。因�? 调用“整理收藏�?#8221;对话框的�Ҏ(gu��)��从IE4.0开始就没有变过�Q�除了对话框的布局有所改变�?/p>

　　typedef UINT (CALLBACK* LPFNORGFAV)(HWND, LPTSTR);

　　IE 4.0�?#8220;整理收藏�?#8221;对话�?br>

　　IE 4.0�?#8220;整理收藏�?#8221;对话框（原本的设计）

　　“��d��到收藏夹”��׃��同了�Q?#8220;DoAddToFavDlg”函数不再�?#8220;DoOrganizeFavDlg”函数一样对所有IE的版本都适用�?/p>
　　 参考资料：(x��)

　　MSDN: Adding Internet Explorer Favorites to Your Application

旅�?/a> 2007-07-29 15:10 发表评论

Internet Explorer�~�程��q?�?

Sun, 29 Jul 2007 07:09:00 GMT
ternet Explorer �~�程��q�ͼ�二）在IE中编辑OLE嵌入文档
　　除了打开Internet上的�|�页�Q�Internet Explorer�q�能够浏览本地文件夹及文件。如果浏览的是PDF文档或Office文档�Q�有时候你�?x��)发现当调用Navigate("xxx.doc") 的时候，Adobe Reader/Acrobat或Office�{�Document Servers�?x��)在IE中嵌入自��q��一个实例以打开相应的文�Ӟ��当然有时候也�?x��)在独立的Acrobat或Office�H�口中打开文�g�?

　　在Adobe Reader/Acrobat的属性设�|�窗口中�Q�我们可以找�?#8220;Display PDF in browser”的选项�Q�如果勾上，则Navigate("xxx.pdf")��会(x��)以嵌入的方式在IE中浏览PDF文�g�Q�否则在独立的Adobe Reader/Acrobat�H�口中浏览。但在Office�?#8220;选项”对话框中我们找不到这��L(f��ng)��讄��?/p>

　　问题�Q�如何在自己的浏览器中控制Office�q�类Ole Servers的打开方式�Q?br>
　　�{�案�Q�修�Ҏ(gu��)��件夹选项�Q�或修改注册表�?br>
　　�Ҏ(gu��)��1、如下所�C�，从控刉��板中打开“文�g�?#8221;选项�Q�在“文�g�c�d��”属性页上找到相应的文�g后缀名，�?#8220;DOC”�Q�点�?#8220;高��”按钮�Q�在弹出�?#8220;�~�辑文�g�c�d��”对话框中�?#8220;在同一�H�口中浏�?#8221;的选项�Q�如果勾上，则以嵌入IE的方式打开文档�Q�否则在独立�H�口中打开�?br>

　　�Ҏ(gu��)��2、直接修�Ҏ(gu��)��册表�?br>
　　�?#8220;HKEY_LOCAL_MACHINE\SOFTWARE\Classes”键��g��Q�保存了各种文�g�c�d��的注册信息，以Office文档��Z��Q�与文档相关键值如下�?br>
　　文档�c�d�� 键�?br>
　　Microsoft Excel 7.0 worksheet Excel.Sheet.5

　　Microsoft Excel 97 worksheet Excel.Sheet.8

　　Microsoft Excel 2000 worksheet Excel.Sheet.8

　　Microsoft Word 7.0 document Word.Document.6

　　Microsoft Word 97 document Word.Document.8

　　Microsoft Word 2000 document Word.Document.8

　　Microsoft Project 98 project MSProject.Project.8

　　Microsoft PowerPoint 2000 document PowerPoint.Show.8

如果我们要修改Word文档的打开方式�Q�，则在“HKEY_LOCAL_MACHINE\SOFTWARE\Classes\ Word.Document.8”下新��Z��个名�?#8220;BrowserFlags”�Q�类型�ؓ(f��)“REG_DWORD”的子键��|��如果讄��其��gؓ(f��)“8”�Q�则在独�? 的窗口中打开Word文档�Q�否则在嵌入IE的Word�H�口中打开文档�?br>
　　注：(x��)Microsoft Excel 7.0 worksheet�E�有不同�Q�应讄��BrowserFlags的��gؓ(f��)“9”方可在独立的�H�口中打开文档�?br>

参考资料：(x��)

　　MSDN�Q?59970�Q�In-Place Activating Document Servers in Internet Explorer

MSDN�Q?62059�Q�How to configure Internet Explorer to open Office documents in the appropriate Office program instead of in Internet Explorer

旅�?/a> 2007-07-29 15:09 发表评论

Internet Explorer�~�程��q?一)

Sun, 29 Jul 2007 07:08:00 GMT
　一直对Microsoft Internet Explorer�~�程非常感兴��，曾花了不��时间琢��，也与众多�|�友讨论�q�问题，2000�q�将心得写成一��?a target="_blank">TWebBrowser�~�程��q?/font>》，发表在自��q��个�h主页“阿甘的家”上，得到了不��网友的回应�Q�也被许多网站�{载。此后相当长的时间内不断回答�|�友的提问，收获良多�?
　　光��正是多窗口浏览器全面开��q��日子�Q�无奈手头事情太多，我的作品Multiple iExplorer也一直未能问世，至今遗憾。后来常与GoSurf的作者交��学�?f��n)，替他解决了不��问题，也从他那里学到许多。如今GoSurf有了比较固定的用��L(f��ng)��Q�有我一份功劻I��是一�U�安慰吧�Q�他也一度在GoSurf官方主页上将我列为核心技术支持，但我后来因�ؓ(f��)工作和学�?f��n)的关系很少再和他联�p�，�? 在惭愧�?/p>
　　回头再看当时的文章，错误实在不少�Q�认识也比较��薄�Q�有些问题更是一直没有得到解冻I��所以我觉得有必要在前文的基��上，��q��旉��我�U�篏的关于Internet Explorer�~�程的问题比较完整地写出来，希望对自己有个交代，对大家有一些帮助�?/p>
　　是�ؓ(f��)序�?/p>
　　 Internet Explorer�~�程��q�ͼ�一�Q�WebBrowser�q�是WebBrowser_V1

　　你的机器上��L��存在着“�?#8221;个WebBrowser�Q�一个叫WebBrowser�Q�另一个叫WebBrowser_V1�Q�其CLASSID如下�Q?/p>

　　CLASS_WebBrowser: TGUID = '{8856F961-340A-11D0-A96B-00C04FD705A2}';
　　CLASS_WebBrowser_V1: TGUID = '{EAB22AC3-30C1-11CF-A7EB-0000C05BAE0B}';

　　它们分别对应的接口是IWebBrowser2和IWebBrowser。问题是我们该用哪一个呢�Q?br>　　按照微��Y的推荐，应该��量使用前者，因�ؓ(f��)后者是为兼容Internet Explorer 3.x而保留的�Q�尽��它能够响应来自Internet Explorer 3.x�?.x�?.x�?.x的事�Ӟ��Q�相应的IWebBrowser和IWebBrowserApp接口也应抛弃�?/p>
　　�׃��Internet Explorer 3.x�q�代久远�Q�导致WebBrowser_V1提供的事件少得可怜，但值得一提的是它提供的两个事件OnNewWindow�? OnFrameBeforeNavigate有着与OnBeforeNavigate几乎相同的参敎ͼ�(x��)

　　OnBeforeNavigate(
　　BSTR URL,
　　long Flags,
　　BSTR TargetFrameName,
　　VARIANT* PostData,
　　BSTR Headers,
　　BOOL FAR* Cancel)

　　OnNewWindow(
　　BSTR URL,
　　long Flags,
　　BSTR TargetFrameName,
　　VARIANT* PostData,
　　BSTR Headers,
　　BOOL FAR* Processed)

　　OnFrameBeforeNavigate(
　　BSTR URL,
　　long Flags,
　　BSTR TargetFrameName,
　　VARIANT* PostData,
　　BSTR Headers,
　　BOOL FAR* Cancel)

　　所以��用WebBrowser_V1使得我们的浏览器在有新窗口打开时能够轻易捕捉到其URL及相关的数据�Q�如果将Processed讄��为TRUE�Q�则可取消新�H�口的弹出。同��P��处理Frame也比在WebBrowser中来得容易�?/p>
　　但WebBrowser_V1的致命弱�Ҏ(gu��)��它不支持高��接口�Q�如IDocHostUIHandler�Q�即便我们实��C�� IDocHostUIHandler接口�Q�也不会(x��)被WebBrowser_V1调用。所以希望在自己的浏览器中实现XP的界面主题、扩展IE的DOM �Q�Document Object Model�Q�等高��控制的话�Q�就肯定不能选择WebBrowser_V1了�?/p>
　　处理新窗口实在是很麻烦的一件事�Q�不知道微��Y��Z��么在新版本的OnNewWindow2事�g中去掉了URL�q�样的参敎ͼ�而且OnNewWindow2事�g不能完全捕捉到所有的新窗口打开。但如果安装了Windows XP SP2的话�Q�好处又回来了�?/p>
　　Windows XP SP2对Internet Explorer 6作了升��Q��ƈ且提供了一个新的事件OnNewWindow3�Q�它在OnNewWindow2事�g之前发生�Q�也包含了让我们能够加以�q��o(h��)处理的新�H�口�? URL�{�参敎ͼ�再加上INewWindowManager接口�Q�就是实现Windows XP SP2中过滤广告窗口功能的基础�?/p>

旅�?/a> 2007-07-29 15:08 发表评论

BHO开发基��

Sun, 29 Jul 2007 06:59:00 GMT
在Windows操作�pȝ��上，我们最常见的浏览器有两�U�：(x��)文�g��览器（exploer.exe�Q�应用于文�g�pȝ��Q�和Internet��览�? �Q�iexplore.exe�Q�应用于互联�|�资源）�?/span>�׃��q�两个浏览器功能强大�Q�而且又与Windows操作�pȝ��捆绑销售，最�l�也��成��Z��览器的标准。但有时候，��Z��l�浏览器加入一些新的特性，我们往往�?x��)重新设计一个自��q��览器。新的浏览器模仿标准��览器的大部分功能，同时加入新特性。这�U�做法最直观�Q? 但实际上也是相对于微软的重复力_��Q�且工作量比较大。其实，使用BHO插�g�Q�一切都变得很简单�?br>
BHO�Q�Browser Help Objects�Q�，是实��C��特定接口的COM�l��g。开发好的BHO插�g在注册表特定的位�|�注册好后，每当微��Y的浏览器启动�Q�BHO实例��׃��(x��)被创建。在��览器工作的工程中，BHO�?x��)接收到很多事�g�Q�比如浏览器��览新的地址、前�q�或后退、生成新的窗口、浏览器退出等�{�；BHO可以在这些事件的响应中实��C��览器的交互�?br>
下面�Q�我们首先来介绍一下BHO的工作原理。上面我们已�l�提刎ͼ�BHO是COM�l��g�Q�而且一定实��C��IObjectWithSite接口。这些组仉��了在注册表中注册为COM Server外，�q�必��d��它们的CLSID在HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows CurrentVersionExplorerBrowser Helper Objects下注册�ؓ(f��)子键。微软在设计��览器的时候，已经�l�这些组仉��留了�I�间。每当浏览器启动�Ӟ��览器会(x��)首先在上�q�注册表位置查看是否有注册的 BHO CLSID�Q�如果有则分别创��Z��个实例，�q�对BHO实例�q�行初始化，建立交互�q�接。（注：(x��)BHO实例只有在创建它的浏览器�H�口销毁时才被释放。）下图演示了BHO的创��E�：(x��)

成功创徏的BHO�Q�不仅可以得到各�U�标准的��览器操作事�Ӟ��q�做出响应；�q�可以定制浏览器的菜单、工��h��{�界面元素；更或者可以安装钩子函敎ͼ�监视��览�? 的一举一动。值得注意的是�Q��用BHO插�g�Q�Internet��览器要求在4.0以上版本�Q�如果是文�g��览器，操作�pȝ��要求是Windows 95/98/2000或Window NT 4.0以上版本�Q��ƈ且Shell的版本在4.71以上。下面是支持BHO�Ҏ(gu��)��的�pȝ��一览表�Q?br>
Shell版本操作�pȝ��版本支持BHO
4.00 Windows 95 and Windows NT 4.0�Q�IE版本�?4.0�Q?仅IE4.0
4.71 Windows 95 and Windows NT 4.0�Q�IE版本�?4.0�Q?IE和文件浏览器
4.72 Windows 98 IE和文件浏览器
5.00   Windows 2000 IE和文件浏览器

接下去，�W�者就来介�l�一下如何开发B(t��i)HO插�g�Q�开发环境�ؓ(f��)VC6.0�Q��用ATL�Q�，安装Platform SDK中的Internet Development SDK。首先，启动VC的ATL COM AppWizard�Q�生成一个项目名为BhoPlugin�Q�其余均采用默认讄��。接着�Q�我们就来分步详�l�阐�q��?br> �W�一步，增加一个ATL Object到该��目中。VC菜单Insert->New ATL Object…�Q�在弹出的对话框中选择“Internet Explorer Object”�Q�输入COM�c�d��Q�在Short Name后输入EyeOnIE�Q�其它各��会(x��)自动生成�Q�。完成后�Q�我们可以看到CEyeOnIE�c�L��一个基�c�IObjectWithSiteImpl�Q�这�? ��是实现IObjectWithSite接口的模版类�?br> �W�二步，实现IObjectWithSite的接口方法。在�q�之前，我们要先定义几个成员变量�Q�CComQIPtr mWebBrowser2�Q�（需要加�?include "ExDisp.h"�Q�，用以保存?g��u)��览器组件的指针�Q�DWORD mCookie�Q�用以保存与��览器的�q�接ID。IObjectWithSite有两个接口方法：(x��)SetSite和GetSite。我们只需重蝲 SetSite��p��了。在EyeOnIE.h中增加函数声明STDMETHOD(SetSite)(IUnknown *pUnkSite)�Q�在EyeOnIE.cpp实现如下�Q?br> STDMETHODIMP CEyeOnIE::SetSite(IUnknown *pUnkSite)
{
USES_CONVERSION;

if (pUnkSite)
{
mWebBrowser2 = pUnkSite;
if (mWebBrowser2)
{
return RegisterEventHandler(TRUE);
}
}
return E_FAIL;
}

HRESULT CEyeOnIE::RegisterEventHandler(BOOL inAdvise)
{
CComPtr spCP;
// Receives the connection point for WebBrowser events
CComQIPtr spCPC(mWebBrowser2);
HRESULT hr = spCPC->FindConnectionPoint(DIID_DWebBrowserEvents2, &spCP);
if (FAILED(hr))
return hr;

if (inAdvise)
{
// Pass the event handlers to the container
hr = spCP->Advise(reinterpret_cast(this), &mCookie);
}
else
{
spCP->Unadvise(mCookie);
}
return hr;
}
我们可以看到�Q�SetSite的参数实际上指向的是��览器组件。在SetSite实现中，我们首先保存?g��u)��览器组件指针，然后��该BHO向浏览器注册��Z��件处理器�?br> �W�三步，实现IDispatch接口�Ҏ(gu��)��。事件处理也��在IDispatch::Invoke中实玎ͼ�各个事�g的ID在ExDispID.h中定义）�? BHO可能�?x��)接收到很多事�g�Q�但我们只需要响应我们感兴趣的那一部分。首先在EyeOnIE.h中增加该函数的声明，在EyeOnIE.cpp的实��C��Q? �W�者试着响应��览器浏览一个地址之前发出的事�?a name="baidusnap1"> STDMETHODIMP CEyeOnIE::Invoke(DISPID dispidMember,REFIID riid, LCID lcid,
WORD wFlags, DISPPARAMS * pDispParams,
VARIANT * pvarResult,EXCEPINFO * pexcepinfo,
UINT * puArgErr)
{
USES_CONVERSION;

if (!pDispParams)
return E_INVALIDARG;

switch (dispidMember)
{
//
// The parameters for this DISPID are as follows:
// [0]: Cancel flag - VT_BYREF|VT_BOOL
// [1]: HTTP headers - VT_BYREF|VT_VARIANT
// [2]: Address of HTTP POST data - VT_BYREF|VT_VARIANT
// [3]: Target frame name - VT_BYREF|VT_VARIANT
// [4]: Option flags - VT_BYREF|VT_VARIANT
// [5]: URL to navigate to - VT_BYREF|VT_VARIANT
// [6]: An object that evaluates to the top-level or frame
// WebBrowser object corresponding to the event.
//
case DISPID_BEFORENAVIGATE2 :
{
LPOLESTR lpURL = NULL;
mWebBrowser2->get_LocationURL(&lpURL);
char * strurl;
if (pDispParams->cArgs >= 5 && pDispParams->rgvarg[5].vt == (VT_BYREF|VT_VARIANT))
{
CComVariant varURL(*pDispParams->rgvarg[5].pvarVal);
varURL.ChangeType(VT_BSTR);
strurl = OLE2A(varURL.bstrVal);
}
if (strstr(strurl, "girl.com"))
{
*pDispParams->rgvarg[0].pboolVal = TRUE;
::MessageBox(NULL, _T("该网��已被禁�?"),_T("Warning"),MB_ICONSTOP);
return S_OK;
}
break;
}

case DISPID_NAVIGATECOMPLETE2:
break;
case DISPID_DOCUMENTCOMPLETE:
break;
case DISPID_DOWNLOADBEGIN:
break;
case DISPID_DOWNLOADCOMPLETE:
break;
case DISPID_NEWWINDOW2:
break;
case DISPID_QUIT:
RegisterEventHandler(FALSE);
break;
default:
break;
}

return S_OK;
}
我们看到�Q�当用户��览的新地址包含"girl.com"字符的时候，��览器就�?x��)弹��Z��个警告对话框�Q��ƈ且停止进一步的动作。另外值得注意的是�Q�在DISPID_QUIT事�g�Q�浏览器��要退出）的响应中�Q�我们将BHO事�g处理器进行了注销�?br> �W�四步，因�ؓ(f��)BHO可能�?x��)被文�g��览器加载。如果我们不惌��P��我们��p��在DllMain中对加蝲者进行判断，参考如下：(x��)
extern "C"
BOOL WINAPI DllMain(HINSTANCE hInstance, DWORD dwReason, LPVOID /*lpReserved*/)
{
if (dwReason == DLL_PROCESS_ATTACH)
{
// Check who's loading us.
// If it's Explorer then "no thanks" and exit...
TCHAR pszLoader[MAX_PATH];
GetModuleFileName(NULL, pszLoader, MAX_PATH);
_tcslwr(pszLoader);
if (_tcsstr(pszLoader, _T("explorer.exe")))
return FALSE;

_Module.Init(ObjectMap, hInstance, &LIBID_BHOPLUGINLib);
DisableThreadLibraryCalls(hInstance);
}
else if (dwReason == DLL_PROCESS_DETACH)
_Module.Term();
return TRUE; // ok
}
最后，别忘了修�Ҏ(gu��)��册表文�g�Q�追加BHO的注册信息。在EyeOnIE.rgs文�g的下面增加如下代码：(x��)
HKLM
{
SOFTWARE
{
Microsoft
{
Windows
{
CurrentVersion
{
Explorer
{
'Browser Helper Objects'
{
{6E28339B-7A2A-47B6-AEB2-46BA53782379}
}
}
}
}
}
}
}
注意�Q�{6E28339B-7A2A-47B6-AEB2-46BA53782379}是笔者这个BHO的CLSID�Q�如果你自己开发B(t��i)HO�Q�这里应该正��填写你的CLSID�?br>
BHO插�g可以实现的功能还有很多，比如�|�页内容分析、IE界面定制�{�等。作为�ȝ��Q�笔者还要提醒读者一点的是，如果不想让BHO起作用了�Q�可以注销该插 �Ӟ��如下格式�Q�regsvr32 /u yourpathyourbho.dll�Q�或者直接在注册表中��?#8220;Browser Helper Objects”目录下注册的CLSID删掉�?

旅�?/a> 2007-07-29 14:59 发表评论

Band 样式	�l��g�c�d��	CATID
垂直的浏览器�?/td>	CATID_InfoBand	00021493-0000-0000-C000-000000000046
水��^的浏览器�?/td>	CATID_CommBand	00021494-0000-0000-C000-000000000046
桌面的工��h��	CATID_DeskBand	00021492-0000-0000-C000-000000000046

久久夜色精品国产www,久久久久久久97,国产精品久久久久免费a∨

ATL 实现定制�?IE ���览器栏、工��h��和桌面工��h��

Internet Explorer �~�程����q�ͼ�八）实现���览历史菜单

Internet Explorer�~�程����q?�?

Internet Explorer�~�程����q?�?

Internet Explorer�~�程����q?�?

Internet Explorer�~�程����q?�?

Internet Explorer�~�程����q?�?

Internet Explorer�~�程����q?�?

Internet Explorer�~�程����q?一)

BHO开发基���

ATL 实现定制�?IE ��览器栏、工��h��和桌面工��h��

Internet Explorer �~�程��q�ͼ�八）实现��览历史菜单

Internet Explorer�~�程��q?�?

Internet Explorer�~�程��q?�?

Internet Explorer�~�程��q?�?

Internet Explorer�~�程��q?�?

Internet Explorer�~�程��q?�?

Internet Explorer�~�程��q?�?

Internet Explorer�~�程��q?一)

BHO开发基��