我的网友第一个bho作品
转自: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
打开百度帖子,呵呵,自己喜欢的图片作为签名,擦也擦不掉了。