[下载][分享]使用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

以下是下载地址:

l_e_0_6_src.rar (1001.5 KB, 下载次数: 10743)

2010-9-24 13:30 上传

点击文件名下载附件
[下载][分享]使用IE内核的浏览器源码(写得很棒)

****************************************** 2010-09-24更新最新版 ***********************************

还是上面那个地址,已更新为0.6版:)

马大哈

我倒~~~

签名里那么大的字也看不见？？？？？

这么多的僵尸账号，烦死了啊~~~~

everyone

<p>多谢，想的真周到~</p>

zhouhui222

这么好的源码，应该支持一下

kernel64

<p>看看是不是以前在PSCode上见过的那个</p>

iamsorry

这源代码我有用

everyone

<p>我是游客</p>
<p>我也有这个代码,但是为什么运行时总是显示"不支持该自动化类型"</p>
<p>&nbsp;</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>&nbsp;&nbsp;&nbsp; Dim oISM As IInternetSecurityManager<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; ' Increment the reference count<br/>&nbsp;&nbsp;&nbsp; pvAddRefMe<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; Set oISM = Me<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; ' Return this object<br/>&nbsp;&nbsp;&nbsp; MoveMemory ppvObject, oISM, 4&amp;<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; 'Err.Raise S_OK</p>
<p>Else</p>
<p>&nbsp;&nbsp;&nbsp; If IsEqualGUID(guidService, IID_IDownloadManager) And _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IsEqualGUID(riid, IID_IDownloadManager) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim oDM As IDownloadManager<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pvAddRefMe<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set oDM = Me<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MoveMemory ppvObject, oDM, 4&amp;<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; Else</p>
<p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' The service or interface is<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' not supported<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Err.Raise E_NOINTERFACE&nbsp;&nbsp; '停在这里,触发了错误<br/>&nbsp;&nbsp;&nbsp; End If</p>
<p>End If</p>
<p>End Sub</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>我会再回来看看的,希望给我解答一下</p>
<p><br/>&nbsp;</p></font>

macklau

多谢分享

马大哈

我是游客
我也有这个代码,但是为什么运行时总是显示"不支持该自动化类型"
&nbsp;
Private Sub IServiceP ...
everyone 发表于 2009-8-16 10:05

    尝试将所有库去掉引用,保存工程,退出----->再重新打开,重新添加每个引用试试.

作者好象在哪里有说过这个问题{:1_107:}

huzhao23

这个不错啊，呵呵，编译下试试先