C++中利用BHO来屏蔽特定网站

副标题#e#

BHO（欣赏器帮助工具）是一种简朴的ATL COM工具，而Internet Explorer会在每次运行时都加载它；换句话来说，即每个Internet Explorer的实例城市加载它。BHO运行在Internet Explorer的地点空间内，能对可会见的工具（如窗口、模块等等）执行任何操纵，且因为它依附于欣赏器的主窗口，所以其生命期与欣赏器实例的生命期一致。

假如在系统中打开了勾当桌面，BHO也能伴同Windows Explorer一起启动。假如不想在Windows Explorer中运行BHO，可将如下代码添加到DLLMain中：

TCHAR strLoader[MAX_PATH];
::GetModuleFileName (NULL, strLoader, MAX_PATH);
if(stricmp("explorer.exe", strLoader) == 0)
return FALSE;

BHO的COM Server必需实现IObjectWithSite，以便工具可以挂钩到欣赏器事件，Internet Explorer会依靠IObjectWithSite将一个指针通报到它的IUnknown接口，所以，只需实现IObjectWithSite的SetSite要领就行了，如下所示：

STDMETHODIMP CBhoApp::SetSite(IUnknown *pUnkSite)
{
　//获取并存储IWebBrowser2指针
　m_spWebBrowser2 = pUnkSite;
　if (m_spWebBrowser2 == NULL)
　　return E_INVALIDARG;
　//获取并存储IConnectionPointerContainer指针
　m_spCPC = m_spWebBrowser2;
　if (m_spCPC == NULL)
　　return E_POINTER;
　//毗连到宿主措施以吸收事件通知
　return Connect();
}

以下是Connect函数较量简朴的实现：

HRESULT CBhoApp::Connect()
{
　HRESULT hr;
　CComPtr<IConnectionPoint> spCP;
　//获取会见WebBrowser事件的毗连指针
　hr = m_spCPC->FindConnectionPoint(DIID_DWebBrowserEvents2, &spCP);
　if (FAILED(hr))
　　return hr;
　//把事件处理惩罚措施通报给宿主措施Each time an event
　//每次有事件发生时，宿主措施城市挪用我们实现的IDispatch接口的函数
　hr = spCP->Advise(reinterpret_cast<IDispatch*>(this),&m_dwCookie);
　return hr;
}

#p#副标题#e#

通过挪用Advise要领，告之欣赏器BHO想要接管事件通知，这意味着BHO会把指向IDispatch的指针提供应欣赏器（这是由于要举办组件事件处理惩罚），接下来，欣赏器会挪用IDispatch的Invoke要领，并通报给它一个事件的ID作为参数，因此，BHO必需实现Invoke要领以处理惩罚所产生的事件。

STDMETHODIMP CBhoApp::Invoke(DISPID dispidMember,REFIID riid,
LCID lcid,WORD wFlags,
DISPPARAMS *pDispParams,VARIANT
*pvarResult, EXCEPINFO *pExcepInfo,
UINT *puArgErr)
{
　 //在利用ATL字符串转换宏（此处用的是OLE2T）防备编译错误时，必需先挪用这个宏
　 USES_CONVERSION;
　 if(dispidMember == DISPID_BEFORENAVIGATE2)
　 {
　　 BSTR bstrUrlName;
　　 HRESULT hr = m_spWebBrowser2->get_LocationURL(&bstrUrlName);
　　 if(FAILED(hr))
　　　 return hr;
　　 LPTSTR psz = new TCHAR[SysStringLen(bstrUrlName)];
　　 lstrcpy(psz, OLE2T(bstrUrlName));
　　 //此处，直接较量www.xyz.com，也可从一个要屏蔽的网站列表中举办较量。
　　 if(stricmp("http://www.xyz.com/",psz) == 0)
　　 {
　　　 VARIANT vFlags = {0},vTargetFrameName = {0};
　　　 //假如不想显示"空缺页"，也可重定向至某个表白此网站已被屏蔽的页面。
　　　 m_spWebBrowser2->Navigate(SysAllocString(L"about:blank"),&vFlags,&vTargetFrameName,
NULL,NULL);
　　　 m_spWebBrowser2->put_Visible(VARIANT_TRUE);
　　　 return S_FALSE;
　　 }
　　 return S_OK;
　 }
　 else if(dispidMember == DISPID_NAVIGATECOMPLETE2)
　 //查抄以防备页面的post导航加载（post-navigation loading）
　 {
　　 BSTR bstrUrlName;
　　 HRESULT hr = m_spWebBrowser2->get_LocationURL(&bstrUrlName);
　　 if(FAILED(hr))
　　　 return hr;
　　 //把文本从Unicode转换为ANSI
　　 LPTSTR psz = new TCHAR[SysStringLen(bstrUrlName)];
　　 lstrcpy(psz, OLE2T(bstrUrlName));
　　 ::OutputDebugString("In Navigate Complete");
　　 ::OutputDebugString(psz);
　　 if(stricmp("http://www.xyz.com/",psz) == 0)
　　 {
　　　 VARIANT vFlags = {0},vTargetFrameName = {0};
　　　 m_spWebBrowser2->Navigate(SysAllocString(L"about:blank"),
　　　　 &vFlags,&vTargetFrameName,
　　　　 NULL,NULL);
　　　 m_spWebBrowser2->put_Visible(VARIANT_TRUE);
　　 }
　　 return S_OK;
　 }
　 return S_FALSE;
}

还需修改工程的.rgs文件，依据所命名目添加以下注册表项：

HKLM\ SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects
ForceRemove {0CB66BA8-5E1F-4963-93D1-E1D6B78FE9A2}

在编译完成后，利用regsvr32注册组件，假如想卸载，只需在regsvr32后带上/u。