bho插件在关闭ie时报错

Question

根据
http://hi.baidu.com/itworld_boss/blog/item/f87df4d4d54be602a18bb70e.html
这个教程写的BHO，在ie6下面一台机器好的，一台机器关闭ie时报错，在ie8下面关闭也报错，在ie9下面正常

Answer 1

重点检查下set xxx=nothing的数量是否ok，你的情况应该是在不该set nothing的情况下把对象给释放了

Answer 2

在getsite 和 setsite方法中没有释放什么呀

Answer 3

标题不是这个，直接是internet explorer:iexplore.exe 
提示内容是：“xxxx”指令引用的“xxxx”内存。该内存不能为"read"

Answer 4

setsite时有一个处理 你还要检查其他地方

Answer 5

整个代码如下Implements IObjectWithSiteTLB.IObjectWithSite
Dim WithEvents IE As InternetExplorer
Dim M_Site As IUnknownVBPrivate Sub IObjectWithSite_GetSite(ByVal Priid As IObjectWithSiteTLB.GUIDPtr, PPVobj As IObjectWithSiteTLB.VOIDPtr)
M_Site.QueryInterface Priid, PPVobj
End SubPrivate Sub IObjectWithSite_SetSite(ByVal pSite As IObjectWithSiteTLB.IUnknownVB)
Set M_Site = pSite
Set IE = pSite
End SubPrivate Sub ie_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
'这里不放代码也是同样的问题
end sub
怀疑是生成的IObjectWithSiteTLB.tlb文件中有问题，不知道如何下手呀