[下载]VB-IE工具条源码(用VB实现BHO工具条嵌入)

其他我就不多说了...嘿嘿~下面是截图~

VB写一个IE插件
Q:
就类似于3721的插件一样,当用户浏览我的网站的时候,提示下载运行插件?

A:
实现方法如下：
首先需要获得IObjectWithSite接口的定义，你下载个olelib.tlb,包含了接口定义。然后创建一个ActiveX DLL工程，
在工程中引用这个tlb文件，并且引用Microsoft HTML Object Library（MSHTML.DLL）和mcrosoft 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 = pUnkSite
End Sub

'编写m_objIE事件处理程式
' .
' .
' .
' .

将这个工程编译为：prjBHO.dll。编译工程后，可以通过调用regsvr32 prjBHO.dll注册这个组件，组件注册了以后，就会在注册表HKEY_CLASSES_ROOT\CLSID中注册组件的GUID。在注册表中用prjBHO.dll做关键字就可以查找到prjBHO.dll注册的GUID，然后将这个GUID拷贝下来，然后在注册表HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects下创建一个新项，项的名称就是这个GUID。

搜索关键字并突出显示：
Private Sub m_objIE_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
Dim webdoc As HTMLDocument
Dim texbody As HTMLBody
Dim Rng As IHTMLTxtRange
Dim I As Byte
On Error Resume Next
Set webdoc = m_objIE.document
Set texbody = webdoc.body
Set Rng = texbody.createTextRange()
Do
If Rng.findText("言情") = False Then Exit Do
Rng.Select

'用IHTMLTxtRange的execCommand方法可以实现加粗等功能，如：
Rng.execCommand "bold"
Rng.execCommand "BackColor", True, "#FFbbDD"
Rng.collapse False
Loop
Rng.collapse True
End Sub
能搜索到并加背景色。但搜索总是无休止，到尾又从头再搜索。。。
如果判断是否搜索到页尾了吗？
有心请有这个页面测试：
http://www.xxsy.net/