转自:http://hi.baidu.com/zzjwl/blog/item/60ecf8de3bf4bf5c95ee3725.html

去年用vb做bho，没有成功，最近偶然到网络搜索，有那么多资料。边看边做，终于ok！

Implements IObjectWithSiteTLB.IObjectWithSite

Dim WithEvents IE As InternetExplorer

Dim M_Site As IUnknownVB

Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)

On Error Resume Next

If InStr(CStr(URL), "tieba.baidu.com") Then

    IE.Document.post.str1.Value = "http://www.51res.com/images/0126.gif"

    IE.Document.post.str1.ReadOnly = True

    Javascript:parent.BdEditor.instance.modules['TiSmiley'].accept('http://www.baidu.com/img/baidu_logo.gif');

End If

End Sub

Private Sub IObjectWithSite_GetSite(ByVal Priid As IObjectWithSiteTLB.GUIDPtr, PPVobj As IObjectWithSiteTLB.VOIDPtr)

M_Site.QueryInterface Priid, PPVobj

End Sub

Private Sub IObjectWithSite_SetSite(ByVal pSite As IObjectWithSiteTLB.IUnknownVB)

Set M_Site = pSite

Set IE = pSite

End Sub

打开百度帖子，呵呵，自己喜欢的图片作为签名，擦也擦不掉了。