当前位置:编程学习 > VB >>

VB编写BHO插件

只要在IE工具栏上添加一按纽,实现一键访问指定的网站。
追问:不是的

答案: 

BHO(浏览器辅助对象)用于IE的加载项中,可以对IE的事件进行拦截编程(可以是IE上的工具条,或者按钮或者不可见插件).BHO的定义位于注册表"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects\" 下,当IE启动时就加载了该项下所有子项.通过IObjectWithSite接口同前面的工具条扩展一样可以用来获得浏览器的接口,而IDispatch接口,则被用来监听浏览器的事件。
首先需要获得IObjectWithSite接口的定义,你下载个tl_ole.zip,包含了接口定义,下载下来以后,把它应用
然后创建一个ActiveX DLL工程,名称为MyBho 在工程中引用这个tlb文件,
并且引用Microsoft HTML Object Library(MSHTML.DLL)和mcrosoft Internet Controls(Shdocvw.dll)。
Implements IObjectWithSiteTLB.IObjectWithSite

Dim WithEvents m_ie As InternetExplorer '浏览器对象
Attribute m_ie.VB_VarHelpID = -1
Dim m_Site As IUnknownVB 'COM 接口

Private Sub IObjectWithSite_GetSite(ByVal priid As IObjectWithSiteTLB.GUIDPtr, ppvObj As IObjectWithSiteTLB.VOIDPtr)
m_Site.QueryInte易做图ce priid, ppvObj
End Sub

Private Sub IObjectWithSite_SetSite(ByVal pSite As IObjectWithSiteTLB.IUnknownVB)
Set m_Site = pSite
Set m_ie = pSite '获取到对象以后可以做自己想做的一切
End Sub


将这个工程编译为:MyBho.dll。
编译工程后,可以通过调用regsvr32 MyBho.dll注册这个组件,这个地方如果这个组件在系统目录下的话就不用带路径,否则的话要带路径,如e:\\MyBho.dll
组件注册了以后,就会在注册表HKEY_CLASSES_ROOT\CLSID中注册组件的GUID。
在注册表中用prjBHO.dll做关键字就可以查找到MyBho.dll注册的GUID,然后将这个GUID拷贝下来,然后在注册表HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects下创建一个新项,项的名称就是这个GUID
Private Sub m_ie_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
MsgBox CSTR(URL)
End Sub

答案补充 把事情做完美些 tl_ole.zip 下载.
http://www.mvps.org/emorcillo/download/vb6/tl_ole.zip

如果有什么不懂,直接找本人。

想通过bho利用合法的技术来实现浏览器劫持?

上一个:VB编程高手进
下一个:vb脚本蠕虫例子代码

CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,