bho插件在关闭ie时报错

[cz眯眯眼]

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

[cz眯眯眼]

内存不可读

[cz眯眯眼]

有时候不报错，但是关闭一个ie窗口所有窗口都会关闭
怀疑是关闭时释放资源的问题，但是不知道怎么改

[嗷嗷叫的老马]

报错?报什么错?

[cz眯眯眼]

沉了，顶一下

[supergreenbean]

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

[三断笛]

提示框标题是sysfader?

[cz眯眯眼]

[Quote=引用 5 楼 的回复:]

重点检查下set xxx=nothing的数量是否ok，你的情况应该是在不该set nothing的情况下把对象给释放了
[/Quote]
在getsite 和 setsite方法中没有释放什么呀

[cz眯眯眼]

[Quote=引用 6 楼 的回复:]

提示框标题是sysfader?
[/Quote]

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

[cz眯眯眼]

不要沉

[三断笛]

有可能如5楼所说,你资源释放有问题.

[三断笛]

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

[cz眯眯眼]

整个代码如下

Implements IObjectWithSiteTLB.IObjectWithSite
Dim WithEvents IE As InternetExplorer
Dim M_Site As IUnknownVB

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

Private Sub ie_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
'这里不放代码也是同样的问题
end sub


怀疑是生成的IObjectWithSiteTLB.tlb文件中有问题，不知道如何下手呀

[cz眯眯眼]

结不了贴了嘛