[下载][分享]使用IE内核的浏览器源码-L_E多页面浏览器(写得很棒)
CSDN里淘到的好东西,以下是原文地址及相关说明:http://topic.csdn.net/t/20050707/10/4128308.html
l_e多页面浏览器源码发布(测试) 2005-7-8
==============各文件夹作用=====================
\MDI 主程序源码
\TLBz 主程序缺什么库(如tlb),到这里来找就有了
\ClearCache 一个清除缓存等的工具(源码)
\Plugin_LIB 制作插件相关的tlb源码 \
Plugins 以写成的插件源码
\Plugins\RssRead rss阅读插件
\release exe
\rundllvb 用来调用dll(用于dll型插件)源码(vc6)
\IEMouseHand 是一个BHO(browser help object),用于对付那些对话框式弹出页面
==============浏览器特点==============
1.多页面浏览(呵呵,此为废话)
2.支持鼠标手势,并且可以自定义
3.支持页面拖拽,并且可以定义拖拽各方向的功能(类似GreenBrowser).拖拽开启时,页面中原本拖拽所实现的部分功能能正常使用,如将一段文字拖拽进一个textarea,input等,好像现在网上流行的多页面浏览器并不具备这个功能哦.
4.支持插件
5.广告过滤(效果大概没有现在那些热门多页面浏览器好,如maxthon)
6.页面规则,对地址满足一定条件的页面执行相应操作
7.rss阅读(利用插件)
8.还有一些小功能
==============使用到的技巧==============
1.鼠标手势的实现
2.动态生成菜单并相应其点击事件,
3.自画菜单
4.利用资源文件生成菜单,并将其嵌入toolbar中
5.能够对单独网页设定是否显示图片,ActiveX,动画,音乐...等东西
6.实现了前进后退历史记录的显示
7.如何使用代理
8.使用ini文件
9.托盘图标
10.用api生成Toolbar,ListView,TreeView,TabStrip,StatusBar(代码另附)
11.无需注册就可以使用com组件(如vb生成的ActiveX Dll)
12.插件系统,这个系统完全是我自己想出来的,可能未必完善
==============补充==============
1.关于库"jccatch.dll#jccatch 1.0 Type Library", 这个是flashget的东西,可以不要,并将frmFlashgetDownload中的Sub AddUrl()中的内容注释掉就行了
2.这个程序是从2001年开始写的,那时候写的代码在各方面都不成熟,注释就不用说了,也就最近新写或改写的代码才有部分注释,各位大虾就有怪莫怪了. 详细文档,呵呵,懒人啊,以后再慢慢补上吧,现在先把代码发布了再说.
=====================================
by lingll 2005-7-8
homepage: http://blog.csdn.net/lingll/
email: lingll2001@21cn.com
以下是下载地址:
****************************************** 2010-09-24更新最新版 ***********************************
还是上面那个地址,已更新为0.6版:) 我倒~~~
签名里那么大的字也看不见？？？？？
这么多的僵尸账号，烦死了啊~~~~ <p>多谢，想的真周到~</p> 这么好的源码，应该支持一下 <p>看看是不是以前在PSCode上见过的那个</p> 这源代码我有用 <p>我是游客</p>
<p>我也有这个代码,但是为什么运行时总是显示"不支持该自动化类型"</p>
<p> </p><font style="BACKGROUND-COLOR: #ffffff" face="宋体">
<p><br/>Private Sub IServiceProvider_QueryService(guidService As olelib.UUID, riid As olelib.UUID, ppvObject As Long)</p>
<p>If IsEqualGUID(guidService, IID_IInternetSecurityManager) Then</p>
<p> Dim oISM As IInternetSecurityManager<br/> <br/> ' Increment the reference count<br/> pvAddRefMe<br/> <br/> Set oISM = Me<br/> <br/> ' Return this object<br/> MoveMemory ppvObject, oISM, 4&<br/> <br/> 'Err.Raise S_OK</p>
<p>Else</p>
<p> If IsEqualGUID(guidService, IID_IDownloadManager) And _<br/> IsEqualGUID(riid, IID_IDownloadManager) Then<br/> <br/> Dim oDM As IDownloadManager<br/> pvAddRefMe<br/> <br/> Set oDM = Me<br/> <br/> MoveMemory ppvObject, oDM, 4&<br/> <br/> Else</p>
<p> ' The service or interface is<br/> ' not supported<br/> Err.Raise E_NOINTERFACE '停在这里,触发了错误<br/> End If</p>
<p>End If</p>
<p>End Sub</p>
<p> </p>
<p> </p>
<p>我会再回来看看的,希望给我解答一下</p>
<p><br/> </p></font> 多谢分享 我是游客
我也有这个代码,但是为什么运行时总是显示"不支持该自动化类型"
Private Sub IServiceP ...
everyone 发表于 2009-8-16 10:05 http://www.m5home.com/bbs/images/common/back.gif
尝试将所有库去掉引用,保存工程,退出----->再重新打开,重新添加每个引用试试.
作者好象在哪里有说过这个问题{:1_107:} 这个不错啊，呵呵，编译下试试先 O MyGod! 晶币不够！！ 回复 马大哈 的帖子
够了，谢谢哈！！！ 回复 wangwho 的帖子
:)
页:
[1]