delphi.!!! 100分求一源码.监控IE浏览过的记录,在线等!!

创建一个COM组件，这个组件需要实现IObjectWithSite接口。注册这个组件将这个组件的GUID注册到： HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects 下，这样IE在启动时就可以装载这个组件，然后获得组件的IObjectWithSite接口并调用其功能。 实现方法如下：首先需要获得IObjectWithSite接口的定义，你可以从http：//www.applevb.com/lib/tl_ole.zip 下载这个接口定义的tlb文件，这个压缩包中的olelib.tlb就包含了接口定义。然后创建一个ActiveX DLL工程，在工程中引用这个tlb文件，并且引用Microsoft HTML Object Library（MSHTML.DLL）和Microsoft Internet Controls（Shdocvw.dll）。 然后在工程的class1中写入如下代码： ‘Class1.bas Option Explicit ’ 实现IObjectWithSite接口来获得IE对象 Implements olelib.IObjectWithSite Private WithEvents m_objIE As InternetExplorer Private Sub IObjectWithSite_GetSite(riid As UUID, ppvSite As IUnknown) Dim objUnk As olelib.IUnknown ’获得m_objIE IUnkown接口 Set objUnk = m_objIE ’返回所需要的接口 objUnk.QueryInterface riid, ppvSite End Sub Private Sub IObjectWithSite_SetSite(ByVal pUnkSite As IUnknown) ’获得IE接口 Set m_objIE