精易论坛
标题:
EPL language 开发多页浏览器源码
[打印本页]
作者:
stillness
时间:
2012-10-27 21:27
标题:
EPL language 开发多页浏览器源码
本帖最后由 玲心韩雪 于 2012-10-28 09:36 编辑
EPL language 开发多页浏览器源码
.DocVersion 2
.Lib HtmlView
.Lib iext3
.Lib iext
.Module FormModule1
.ModuleVar IE, HTMLBrowser, , "0"
.ModuleVar MainCaption, String
.Sub _MainForm_AfterCreate
窗口布局 ()
.Sub 窗口布局, , Export
MainCaption = "Themyth Browser"
SSL.Text = "百度一下,你就知道"
MainForm.Caption = MainCaption
MainForm.MinButton = True
Browser1.Visible = False
Browser1.Silence = Not (True)
FstOneRun_CSH_Function ()
IE [Tab.CurrentTab].SetFocus ()
CSH_CDBT ()
.Sub CSH_CDBT, , Export
主页A.Caption = "主页"
空白页A.Caption = "空白页"
搜索页A.Caption = "搜索页"
.Sub FstOneRun_CSH_Function, , Export
.LocalVar aa, HTMLBrowser
Tab.AddTab ("", , , , )
Tab.HideTab (0, True)
CopyControl (Browser1, aa)
AddElement (IE, aa)
Tab.CurrentTab = GetAryElementCount (IE)
IE [Tab.CurrentTab].Visible = True
' // IE [Tab.CurrentTab].ZOrder ()
IE [Tab.CurrentTab].Execute (2)
同步显示WEB页 (Tab.CurrentTab)
.Sub 同步显示WEB页, , Export
.Arg XSSY, Integer
.LocalVar CurLoopTime, Integer
.Count (GetAryElementCount (IE), CurLoopTime)
.If (CurLoopTime <> XSSY)
IE [CurLoopTime].Visible = False
IE [CurLoopTime].ZOrder (2)
.else
IE [CurLoopTime].Visible = True
IE [CurLoopTime].ZOrder ()
.ife_end
.CountNext ()
.Sub 新建页面, , Export
.Arg 地址, String, ByRef AllowEmpty
.LocalVar aa, HTMLBrowser
Tab.AddTab ("", , , , )
Tab.HideTab (0, True)
CopyControl (Browser1, aa)
AddElement (IE, aa)
Tab.CurrentTab = GetAryElementCount (IE)
IE [Tab.CurrentTab].Visible = True
IE [Tab.CurrentTab].ZOrder ()
IE [Tab.CurrentTab].URL = 地址
同步显示WEB页 (Tab.CurrentTab)
.Sub 跳转页面
.Arg 地址, String, AllowEmpty
.Arg 特殊, Boolean, AllowEmpty
.Arg 内定, Integer, AllowEmpty
.Arg 索引, Integer, AllowEmpty
.If (IsEmpty (特殊) = True)
.If (特殊 <> True)
Tab.CurrentTab = 索引
IE [索引].Navigate (地址, , )
同步显示WEB页 (索引)
.else
跳转面页_Function (内定, 索引)
.ife_end
.else
跳转面页_Function (内定, 索引)
.ife_end
.Sub 跳转面页_Function
.Arg 内定, Integer
.Arg 索引, Integer
IE [索引].Execute (内定)
Tab.CurrentTab = 索引
同步显示WEB页 (索引)
.Sub _主页A_Click
新建页面 (GetTextKey (3, "SOFTWARE\Microsoft\Internet Explorer\Main\Start Page", ))
' Search Page
.Sub _搜索页A_Click
新建页面 (GetTextKey (3, "SOFTWARE\Microsoft\Internet Explorer\Main\Search Page", ))
.Sub _空白页A_Click
' //新建页面 (GetTextKey (3, "SOFTWARE\Microsoft\Internet Explorer\Main\Security Risk Page", ))
新建页面 ("about:inprivate")
.Sub _Tab_HeadRightClick
.Arg TabIndex, Integer
PopupMenu (t12jinkninwi1no31123, , )
.Sub _主页_Click
跳转页面 ("", True, 2, Tab.CurrentTab)
.Sub _搜索页_Click
跳转页面 ("", True, 3, Tab.CurrentTab)
.Sub _空白页_Click
跳转页面 ("about:inprivate", , , Tab.CurrentTab)
.Sub _Tab_TabChange
.LocalVar Temp, String
.IfTrue (GetAryElementCount (IE) > 0)
同步显示WEB页 (Tab.CurrentTab)
_Browser1_CaptionChange ()
' //Caption = MainCaption + " " + IE [Tab.CurrentTab].Caption
' //SetTab_Box_Function (Tab.CurrentTab, TabCaptionFunction (#MY_24, IE [Tab.CurrentTab].Caption), IE [Tab.CurrentTab].Caption)
.if_end
.Sub _当前页_Click
.LocalVar 索引, Integer
' // 关闭面页 (Tab.CurrentTab, "about:inprivate")
.IfTrue (Tab.CurrentTab > 0)
.If (Tab.GetTabCount () = 2)
_空白页_Click ()
.else
IE [Tab.CurrentTab].Destroy ()
RemoveElement (IE, Tab.CurrentTab, )
Tab.DeleteTab (Tab.CurrentTab)
.ife_end
同步显示WEB页 (Tab.CurrentTab)
.if_end
.Sub _全部页_Click
.LocalVar s, Integer
.LocalVar f
.IfTrue (GetAryElementCount (IE) > 0)
.Count (GetAryElementCount (IE), s)
' f = GetAryElementCount (IE)
' f = f - s
.If (GetAryElementCount (IE) = 1)
跳转页面 ("about:inprivate", False, -1, Tab.CurrentTab)
.else
IE [s].Destroy ()
Tab.DeleteTab (s)
RemoveElement (IE, s, )
.ife_end
同步显示WEB页 (Tab.CurrentTab)
.CountNext ()
.if_end
.Sub _Browser1_StatusTextChange
Statusbar.SetText (1, IE [Tab.CurrentTab].StatusText)
.Sub _Browser1_BeforeNavigate, Boolean
Return (Not (False))
DZL.Text = IE [Tab.CurrentTab].URL
Swap (IE [Tab.CurrentTab].URL)
.Sub Swap, , Export
.Arg UrlAdderss, String, , url地址
.LocalVar ico, Bin, Static, "0"
.LocalVar url, String, Static, "0"
.LocalVar linseed, Bin, , "0"
.LocalVar Sy, Integer
.LocalVar Cs, Integer
.LocalVar bni, Bin
.For (1, GetAryElementCount (url), 1, Sy)
.IfTrue (url [Sy] = UrlAdderss)
AddElement (linseed, ico [Sy])
Cs = Cs + 1
.if_end
.Next ()
.If (Cs <> 0)
bni = Readehtmlico (CliocAdderss (UrlAdderss))
.else
bni = linseed [1]
.ife_end
.If (bni <> { })
htmlIco.Picture = bni
.else
htmlIco.Picture = Icon
.ife_end
.Sub CliocAdderss, String, Export
.Arg adderss, String
.LocalVar a, String, , "0"
.LocalVar c
.LocalVar d, String
a = SplitString (adderss, "/", )
.Count (#MY_03, c)
.If (c < 2 And c > 0)
d = a [c] + "//"
.else
d = d + a [c] + "/"
.ife_end
.CountNext ()
.IfTrue (StrRight (d, 1) <> "/")
d = d + "/"
.if_end
d = d + "favicon.ico"
Return (d)
.Sub Readehtmlico, Bin, Export
.Arg call, String, AllowEmpty
.Arg adder, String, AllowEmpty
.LocalVar oject, Object
.LocalVar bin, Bin
.If (oject.Create ("Microsoft.XMLHTTP", ))
.If (IsEmpty (call) = True)
oject.Call ("Open", "GET", adder, False)
.else
oject.Call ("Open", call, adder, False)
.ife_end
oject.Call ("Send", )
bin = oject.GetProperty ("ResponseBody", ).GetBin ()
Return (bin)
.else
Return (CBin (""))
.ife_end
.Sub _Browser1_StartLoading
SetTab_Box_Function (Tab.CurrentTab, TabCaptionFunction (#MY_024, "StartLoading"), "StartLoading")
.Sub _Browser1_AfterLoad
SetTab_Box_Function (Tab.CurrentTab, TabCaptionFunction (#MY_024, "AfterLoad"), "AfterLoad")
同步标题 ()
.Sub SetTab_Box_Function, , Export
.Arg Index, Integer
.Arg Name, String
.Arg Tip, String
Tab.SetTabName (Index, Name)
Tab.SetTabTip (Index, Tip)
.Sub _Browser1_OpeningNew, Boolean
新建页面 (IE [Tab.CurrentTab].StatusText)
.Sub _Browser1_CaptionChange
同步标题 ()
.Sub 同步标题, , Export, EPL HTMLBrower Fne Error SY dome TB Caption
.LocalVar Temp, String
.If (IE [Tab.CurrentTab].Caption <> "Internet Explorer 无法显示该网页")
SetTab_Box_Function (Tab.CurrentTab, TabCaptionFunction (#MY_024, Temp), IE [Tab.CurrentTab].Caption)
Caption = MainCaption + " " + IE [Tab.CurrentTab].Caption
.else
Temp = MainCaption + " " + "无法显示该网页"
SetTab_Box_Function (Tab.CurrentTab, TabCaptionFunction (#MY_024, Temp), Temp)
Caption = Temp
.ife_end
.Sub TabCaptionFunction, String
.Arg Width, Integer
.Arg Char, String
.LocalVar temp_Width, Integer
.LocalVar Temp_Count, Integer, , "2"
.LocalVar Temp_Char, String
temp_Width = Width
Temp_Count [1] = StrLen (Char)
Temp_Count [2] = temp_Width - Temp_Count [1]
.If (Temp_Count [2] <= 0)
Return (StrLeft (Char, temp_Width) + "...")
.else
.Count (Temp_Count [2] / 2, )
Temp_Char = Temp_Char + " "
.CountNext ()
Temp_Char = Temp_Char + Char + Temp_Char
Return (StrLeft (Temp_Char, #MY_024))
.ife_end
.Sub _Browser1_AfterNavigate
DZL.Text = IE [Tab.CurrentTab].URL
ProgressBar1.Position = ProgressBar1.Min
ComboBox_Add (IE [Tab.CurrentTab].URL)
.Sub _Browser1_Progress
.Arg ProgressPercent, Integer
ProgressBar1.Position = ProgressPercent
ProgressBar1.ZOrder (3)
.Sub _Tab_DblClick, Boolean
.Arg x, Integer
.Arg y, Integer
.Arg KeyState, Integer
_当前页_Click ()
.Sub _SSL_GetFocus
SSL.Text = ""
.Sub _SSL_LostFocus
SSL.Text = "百度一下,你就知道"
.Sub _DZL_LButtonDown, Boolean
.Arg x, Integer
.Arg y, Integer
.Arg KeyState, Integer
DZL.SetFocus ()
.Sub _Tab_LButtonDown, Boolean
.Arg x, Integer
.Arg y, Integer
.Arg KeyState, Integer
IE [Tab.CurrentTab].SetFocus ()
.Sub _XLCD_Click
ComboBox1.SendMessage (335, 1, 0)
.Sub ComboBox_Add, , Export
.Arg 文本, String
.LocalVar 寄存器, String
.LocalVar 索引, Integer
.LocalVar 次数, Integer
寄存器 = 文本
.IfTrue (InStr (寄存器, "about:blank", , False) = -1)
.Count (ComboBox1.GetItemCount (), 索引)
.IfTrue (ComboBox1.GetItemText (索引 - 1) = 文本)
次数 = 次数 + 1
.if_end
.CountNext ()
.IfTrue (次数 = 0)
ComboBox1.AddItem (寄存器, )
.if_end
.if_end
.Sub _ComboBox1_ItemSelect
DZL.Text = ComboBox1.Text
_ZD_Click ()
.Sub _ZD_Click
.IfTrue (TrimAll (DZL.Text) <> "")
跳转页面 (DZL.Text, False, -1, Tab.CurrentTab)
.if_end
.Sub _SS_Click
.IfTrue (TrimAll (SSL.Text) <> "")
DZL.Text = SSL.Text
_ZD_Click ()
.if_end
复制代码
启动函数集
.DocVersion 2
.Module MainModule
.Sub _MainFunction, Integer, , This sub function will be executed first after program starts
Return (Function_LoadWindow () - 1) ' You can return any number as you need
.Sub Function_LoadWindow, Integer, Export
Return (CInt (Load (MainForm, , False)))
复制代码
.DocVersion 2
.Const MY_024, "24"
.Const MY_03, "3"
复制代码
源码下载地址:
EPL Source Code.rar
(51.75 KB, 下载次数: 290)
2012-10-27 21:27 上传
点击文件名下载附件
下载积分: 精币 -2 枚
作者:
毅然天山
时间:
2012-10-27 21:30
哇！好源码！顶了！
作者:
无阻
时间:
2012-10-27 21:31
提示:
作者被禁止或删除 内容自动屏蔽
作者:
诗一
时间:
2012-10-27 21:34
前排支持啦
作者:
紅顏じ亦沉淪ジ
时间:
2012-10-27 21:38
不错。。挺好看的。。。英文版的易语言到底在哪里下载。。。。一直没找到
作者:
stillness
时间:
2012-10-27 21:39
String 字符串,文本型
Bin 字节集
boolean 逻辑型
Datetime 时间
Byte 字节
float 浮点
integer 整数型
functionAddress 子程序指针
作者:
Will
时间:
2012-10-27 21:43
破J版一直没有找到。。
作者:
ZealotMaster
时间:
2012-10-27 21:46
我最想知道的是。。。EF怎么破J！还有。。。为什么程序写的大了之后，就会自动跳出。。。
作者:
stillness
时间:
2012-10-27 21:46
on(relss)
{
var a:new Date;
switch ( a.Day )
{
case : 0
trace ( “星期日" ) ;
break;
default :
trace("未知日期") ;
}
}
复制代码
作者:
许你，一世承诺
时间:
2012-10-27 22:01
我去，WIN8啊，牛B啊，可惜我的电脑太垃圾了，以前是XP的改成了win7的，有点卡卡的，如果做装win8，那还不要卡死了？
作者:
御风软件
时间:
2012-10-27 22:16
喜欢英文的啊，我还想全部中文的呢。。。。
作者:
御风软件
时间:
2012-10-27 22:27
御风软件 发表于 2012-10-27 22:16
喜欢英文的啊，我还想全部中文的呢。。。。
不会吧，人家自己写的，不用模块的，都不报毒，有的人加下壳，也安全了
作者:
宇智波·佐助
时间:
2012-10-28 11:19
好多英文啊
作者:
更换QQ账号
时间:
2012-11-3 21:32
我明白了，知道好东西啊啊啊啊
作者:
jiuxiao
时间:
2012-11-6 17:13
顶死楼主
作者:
梦﹀场
时间:
2012-11-11 16:27
竟然下载失败了
作者:
xuejiejie
时间:
2012-11-13 20:59
我明白了，知道好东西啊啊啊
作者:
随メ缘﹎
时间:
2012-11-14 19:08
爱做易语言的小程序
作者:
heikechenshao
时间:
2012-11-14 21:55
提示:
作者被禁止或删除 内容自动屏蔽
作者:
黑暗之女
时间:
2012-11-22 13:18
作者:
小陌◇
时间:
2012-11-22 19:39
顶顶顶顶顶顶顶顶顶
作者:
毅然天山
时间:
2012-11-25 17:38
我看看看。。。。。。。。。。。
作者:
独行者
时间:
2012-12-13 22:41
好东西!
作者:
易人易友
时间:
2013-2-1 09:31
支持了，易支持库编译的速度都很慢不知道有没有解决
作者:
鹏℡
时间:
2013-2-5 22:15
看不懂 蛋疼中
作者:
84053625
时间:
2013-2-7 20:03
看看！！！
作者:
毅然天山
时间:
2013-3-1 22:30
不错，我看看！！！
作者:
BYxchupeng
时间:
2013-3-8 15:26
下载咯
作者:
BYxchupeng
时间:
2013-3-8 15:27
看是很神奇
作者:
夜深殇自会来
时间:
2013-3-9 11:30
EPL是什么？
作者:
夜深殇自会来
时间:
2013-3-9 11:48
顶一。。
作者:
青岛影迷之家
时间:
2013-3-9 15:26
学习正需要，谢谢
作者:
sbsba
时间:
2013-4-6 23:36
学习
作者:
小豌豆Felix℡
时间:
2013-4-12 02:23
InPrivate这什么意思
作者:
小豌豆Felix℡
时间:
2013-4-12 02:24
InPrivate，我想调用InPrivate浏览填表，这样可以多开软件多账号在同一个论坛发帖
作者:
snrmyd
时间:
2013-4-14 10:20
看上去不错
作者:
后续
时间:
2013-4-14 22:59
看看哈
作者:
小袋
时间:
2013-5-1 10:36
萨达阿是大声道阿斯达
作者:
zuoyanjiang
时间:
2013-6-1 12:29
下载后告诉你们好用不
作者:
非常完美
时间:
2013-6-29 15:52
EPL是什么？
作者:
565664564
时间:
2013-7-5 09:43
提示:
作者被禁止或删除 内容自动屏蔽
作者:
慢慢变黑
时间:
2013-7-21 20:31
学习正需要，谢谢
本文章来自：精易论坛(
http://125.confly.eu.org/forum.php?mod=viewthread&tid=136309
）请保留此链接, 感谢!
作者:
942129496
时间:
2013-7-28 20:02
的数据库哈斯就
作者:
e时代无名
时间:
2013-8-18 23:49
美观不错 呵呵
作者:
ye347549299
时间:
2014-12-1 17:17
我要找一个非常好的浏览器
作者:
酷酷的滕啊
时间:
2017-10-29 16:53
66666666666666666
作者:
2161045897
时间:
2019-4-29 20:55
感谢分享~····
欢迎光临 精易论坛 (https://125.confly.eu.org/)
Powered by Discuz! X3.4
EPL Source Code.rar
(51.75 KB, 下载次数: 290)
EPL Source Code.rar
(51.75 KB, 下载次数: 290)
下载咯
顶一。。学习