vb6.0制作BHO遇到有关问题

vb6.0制作BHO遇到问题
最近在用vb6.0做一个bho插件，想知道:
1、bho插件中，是否可调起网页中的js方法,如何调用？
2、网页中事件是否可以调起bho中的方法（或bho如何监听网页中某个按钮事件）
哪位朋位有解决思路，最好有源码，多谢！(本人vb新手)

[解决办法]
这是一个非常有难度的。 个人认为。
帮顶下 观望中····
[解决办法]
这个问题，分是不管用的。
要请孔方兄出马才行。
[解决办法]
可以实现哦，就是有些个小BUG。页面刷新后BHO就失效了，原因未知。具体实现方法网上也挺好找的，建议google一下吧。测试的话做个网页里面有个ID为"BTN_Test"按钮。具体的还是看代码吧

VB code

Implements IObjectWithSiteTLB.IObjectWithSitePrivate WithEvents IE As InternetExplorerPrivate docObj As HTMLDocumentPrivate WithEvents TestBtn As HTMLButtonElementPrivate M_Site As IUnknownVBPrivate Sub IObjectWithSite_GetSite(ByVal Priid As IObjectWithSiteTLB.GUIDPtr, PPVobjs As IObjectWithSiteTLB.VOIDPtr)    If Not (M_Site Is Nothing) Then        M_Site.QueryInterface Priid, PPVobj    End IfEnd SubPrivate Sub IObjectWithSite_SetSite(ByVal pSite As IObjectWithSiteTLB.IUnknownVB)    Set M_Site = pSite        If ObjPtr(pSite) = 0 Then        Set IE = pSite    Else        Set IE = M_Site    End IfEnd SubPrivate Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)    'MsgBox URL, vbInformation, "Hello,IE will provide the service to you."    'If Not docObj Then            'ElseIf IsNull(docObj) Then    Set docObj = pDisp.Document        'MsgBox docObj.body.innerHTML    'End If    If Not IsNull(docObj.getElementById("BTN_Test")) Then                Set TestBtn = docObj.getElementById("BTN_Test")    End If    End SubPrivate Function TestBtn_onclick() As Boolean    MsgBox ("按我试试看!")End Function