描述:
我最近想做一个ie监控的东东，对用户在浏览器里面的操作事件进行监控，比如输入url，下载东西、添加书签等，查阅了很多资料，原来用browser helper object来实现。找到一个例子，可是按照上面所说的弄下来，效果就是出不来，请大家给看看是怎么回事。
这个例子就是当用户输入一个网址、或者改变网址的时候，程序能够知道这个事件，弹出一个对话框！
这个例子的网址是
http://www.programfan.com/article/showarticle.asp?id=2872
下面是主程序的源码：
头文件：
// EyeOnIE.h : Declaration of the CEyeOnIE
#ifndef __EYEONIE_H_
#define __EYEONIE_H_
#include "resource.h" // main symbols
#include "ExDispID.h"
#include "ExDisp.h"
/////////////////////////////////////////////////////////////////////////////
// CEyeOnIE
class ATL_NO_VTABLE CEyeOnIE :
public CComObjectRootEx<CComSingleThreadModel>,
public CComCoClass<CEyeOnIE, &CLSID_EyeOnIE>,
public IObjectWithSiteImpl<CEyeOnIE>,
public IDispatchImpl<IEyeOnIE, &IID_IEyeOnIE, &LIBID_IEPLUGINLib>
{
public:
CEyeOnIE()
{
}
DECLARE_REGISTRY_RESOURCEID(IDR_EYEONIE)
DECLARE_PROTECT_FINAL_CONSTRUCT()
BEGIN_COM_MAP(CEyeOnIE)
COM_INTERFACE_ENTRY(IEyeOnIE)
COM_INTERFACE_ENTRY(IDispatch)
COM_INTERFACE_ENTRY(IObjectWithSite)
END_COM_MAP()
// IEyeOnIE
public:
CComQIPtr<IWebBrowser2, &IID_IWebBrowser2> mWebBrowser2;
DWORD mCookie;
STDMETHOD(SetSite)(IUnknown *pUnkSite);
HRESULT RegisterEventHandler(BOOL inAdvise);
STDMETHODIMP Invoke (DISPID dispidMember,REFIID riid, LCID lcid,
WORD wFlags, DISPPARAMS * pDispParams,
VARIANT * pvarResult,EXCEPINFO * pexcepinfo,
UINT * puArgErr);
};
#endif //__EYEONIE_H_
==========================================================
实现代码：
// EyeOnIE.cpp : Implementation of CEyeOnIE
#include "stdafx.h"
#include "IEplugin.h"
#include "EyeOnIE.h"
#include "ExDisp.h"
/////////////////////////////////////////////////////////////////////////////
// CEyeOnIE
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<IConnectionPoint> spCP;
// Receives the connection point for WebBrowser events
CComQIPtr<IConnectionPointContainer, &IID_IConnectionPointContainer> 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<IDispatch*>(this), &mCookie);
}
else{
spCP->Unadvise(mCookie);
}
return hr;
}
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)
{
case DISPID_BEFORENAVIGATE2:
{
::MessageBox(NULL, _T("该网页已被禁止!"),_T("Warning"),MB_ICONSTOP);
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,"girls.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;
}
=============================================
EyeOnIE.rgs
HKCR
{
IEplugin.EyeOnIE.1 = s 'EyeOnIE Class'
{
CLSID = s '{71413549-66A6-4ACB-B5D6-2BB7A757BA20}'
}
IEplugin.EyeOnIE = s 'EyeOnIE Class'
{
CLSID = s '{71413549-66A6-4ACB-B5D6-2BB7A757BA20}'
CurVer = s 'IEplugin.EyeOnIE.1'
}
NoRemove CLSID
{
ForceRemove {71413549-66A6-4ACB-B5D6-2BB7A757BA20} = s 'EyeOnIE Class'
{
ProgID = s 'IEplugin.EyeOnIE.1'
VersionIndependentProgID = s 'IEplugin.EyeOnIE'
ForceRemove 'Programmable'
InprocServer32 = s '%MODULE%'
{
val ThreadingModel = s 'Apartment'
}
'TypeLib' = s '{5F5E0AE2-A75E-4084-9DE2-C624C578B5EE}'
}
}
}
HKLM
{
SOFTWARE
{
Microsoft
{
Windows
{
CurrentVersion
{
Explorer
{
'Browser Helper Objects'
{
{6E28339B-7A2A-47B6-AEB2-46BA53782379}
}
}
}
}
}
}
}
解决方案1:
HKLM
{
SOFTWARE
{
Microsoft
{
Windows
{
CurrentVersion
{
Explorer
{
'Browser Helper Objects'
{
// 下面的必须是自己的CLSID
// 在你这个工程里，CLSID是'{71413549-66A6-4ACB-B5D6-2BB7A757BA20}
{6E28339B-7A2A-47B6-AEB2-46BA53782379}
}
}
}
}
}
}
}