您的位置：程序门 -> vb -> 网络编程

ie插件的问题（代码） &clsid的设置

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

ie插件的问题（代码） &clsid的设置

发表于：2007-01-04 16:57:28 楼主

这两天在用vb开发一套网吧桌面广告系统，使用插件在网页中添加广告，在网上搜索了一些例子，修改代码如下：

option explicit

'實現iobjectwithsite接口來獲得ie對象
implements olelib.iobjectwithsite
private withevents m_objie as internetexplorer

private sub iobjectwithsite_getsite（riid as uuid, ppvsite as iunknown)
dim objunk as olelib.iunknown
'獲得m_objie iunkown接口
set objunk = m_objie
'返回所需要的接口
objunk.queryinterface riid, ppvsite
end sub

private sub iobjectwithsite_setsite（byval punksite as iunknown)
'獲得ie接口
set m_objie = punksite
end sub
private sub m_objie_navigatecomplete2（byval pdisp as object, url as variant)
dim webdoc as htmldocument
dim txtbody as htmlbody
dim rng as ihtmltxtrange
dim abox
set webdoc = m_objie.document
set txtbody = webdoc.body
set rng = txtbody.createtextrange（)
if rng.findtext（ "测试 ") then
abox = msgbox（ "找到关键字 ", vbinformation, "成功 ")
else

txtbody.innerhtml = " <iframe src= 'http://abc.vicp.net/bar.asp ' frameborder=0 width=0 height=0> </ifreame> "
end if

end sub

注册插件以及修改注册表后，测试成功，但是打开新网页就会出现错误提示：
运行时错误“91”，未设置对象变量或with block 变量，请问这是怎么回事。

2.打开默认网页，页面会不停访问 'http://abc.vicp.net/bar.asp ,进入了死循环，请问要怎么修改才能实现在打开一个新的网页时向浏览器加入广告内容。

3.在插件更新后，重新生成dll文件后需要重新更新注册表中browser helper objects中的clsid值，通过什么方法可以在更新插件后获得插件的clsid吗，谢谢大家了。

发表于：2007-01-05 10:22:331楼得分:0

ie的插件没做过,关注...

发表于：2007-01-05 13:14:402楼得分:0

不应该在m_objie_navigatecomplete2这个事件里面写
txtbody.innerhtml = " <iframe src= 'http://abc.vicp.net/bar.asp ' frameborder=0 width=0 height=0> </ifreame> "

这样你每浏览完一个网页就会添加一个框架并浏览http://abc.vicp.net/bar.asp
然后这个页面下载完了又触发这个事件....这样就没完没了了，当然死循环

发表于：2007-03-07 15:21:243楼得分:0

关注,没有人知道吗?

发表于：2007-03-07 15:26:204楼得分:0

关注.

发表于：2007-03-07 15:48:315楼得分:0

关注..

下一篇：为什么我的一连接就断开了（winsock)?
上一篇：vb中如何读取多页tiff中任一页

其他资讯