开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步，快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

精易论坛»论坛 › 技术专区 › 源码区 › EPL language 开发多页浏览器源码
12345下一页
返回列表 发新帖
查看: 10008|回复: 46
打印 上一主题 下一主题
收起左侧

[易语言纯源码] EPL language 开发多页浏览器源码

[复制链接]
stillness
结帖率：33% (3/9)
跳转到指定楼层
楼
发表于 2012-10-27 21:27:23 | 只看该作者 回帖奖励 |正序浏览 |阅读模式   四川省成都市
分享源码
界面截图:
是否带模块: -
备注说明: 无法显示标题我也无赖....
EPL核心支持库问题啊....
本帖最后由 玲心韩雪 于 2012-10-28 09:36 编辑

EPL language 开发多页浏览器源码
  1. .DocVersion 2
  2. .Lib HtmlView
  3. .Lib iext3
  4. .Lib iext

  6. .Module FormModule1
  7. .ModuleVar IE, HTMLBrowser, , "0"
  8. .ModuleVar MainCaption, String

  10. .Sub _MainForm_AfterCreate

  12. 窗口布局 ()

  14. .Sub 窗口布局, , Export

  16. MainCaption = "Themyth Browser"
  17. SSL.Text = "百度一下,你就知道"
  18. MainForm.Caption = MainCaption
  19. MainForm.MinButton = True
  20. Browser1.Visible = False
  21. Browser1.Silence = Not (True)
  22. FstOneRun_CSH_Function ()
  23. IE [Tab.CurrentTab].SetFocus ()
  24. CSH_CDBT ()

  26. .Sub CSH_CDBT, , Export

  28. 主页A.Caption = "主页"
  29. 空白页A.Caption = "空白页"
  30. 搜索页A.Caption = "搜索页"

  32. .Sub FstOneRun_CSH_Function, , Export
  33. .LocalVar aa, HTMLBrowser

  35. Tab.AddTab ("", , , , )
  36. Tab.HideTab (0, True)
  37. CopyControl (Browser1, aa)
  38. AddElement (IE, aa)
  39. Tab.CurrentTab = GetAryElementCount (IE)
  40. IE [Tab.CurrentTab].Visible = True
  41. ' // IE [Tab.CurrentTab].ZOrder ()
  42. IE [Tab.CurrentTab].Execute (2)
  43. 同步显示WEB页 (Tab.CurrentTab)

  45. .Sub 同步显示WEB页, , Export
  46. .Arg XSSY, Integer
  47. .LocalVar CurLoopTime, Integer

  49. .Count (GetAryElementCount (IE), CurLoopTime)
  50.     .If (CurLoopTime <> XSSY)
  51.         IE [CurLoopTime].Visible = False
  52.         IE [CurLoopTime].ZOrder (2)
  53.     .else
  54.         IE [CurLoopTime].Visible = True
  55.         IE [CurLoopTime].ZOrder ()
  56.     .ife_end

  58. .CountNext ()

  60. .Sub 新建页面, , Export
  61. .Arg 地址, String, ByRef AllowEmpty
  62. .LocalVar aa, HTMLBrowser

  64. Tab.AddTab ("", , , , )
  65. Tab.HideTab (0, True)
  66. CopyControl (Browser1, aa)
  67. AddElement (IE, aa)
  68. Tab.CurrentTab = GetAryElementCount (IE)
  69. IE [Tab.CurrentTab].Visible = True
  70. IE [Tab.CurrentTab].ZOrder ()
  71. IE [Tab.CurrentTab].URL = 地址
  72. 同步显示WEB页 (Tab.CurrentTab)


  75. .Sub 跳转页面
  76. .Arg 地址, String, AllowEmpty
  77. .Arg 特殊, Boolean, AllowEmpty
  78. .Arg 内定, Integer, AllowEmpty
  79. .Arg 索引, Integer, AllowEmpty

  81. .If (IsEmpty (特殊) = True)
  82.     .If (特殊 <> True)
  83.         Tab.CurrentTab = 索引
  84.         IE [索引].Navigate (地址, , )
  85.         同步显示WEB页 (索引)
  86.     .else
  87.         跳转面页_Function (内定, 索引)
  88.     .ife_end

  90. .else
  91.     跳转面页_Function (内定, 索引)
  92. .ife_end


  95. .Sub 跳转面页_Function
  96. .Arg 内定, Integer
  97. .Arg 索引, Integer

  99. IE [索引].Execute (内定)
  100. Tab.CurrentTab = 索引
  101. 同步显示WEB页 (索引)

  103. .Sub _主页A_Click

  105. 新建页面 (GetTextKey (3, "SOFTWARE\Microsoft\Internet Explorer\Main\Start Page", ))
  106. ' Search Page

  108. .Sub _搜索页A_Click

  110. 新建页面 (GetTextKey (3, "SOFTWARE\Microsoft\Internet Explorer\Main\Search Page", ))

  112. .Sub _空白页A_Click

  114. ' //新建页面 (GetTextKey (3, "SOFTWARE\Microsoft\Internet Explorer\Main\Security Risk Page", ))
  115. 新建页面 ("about:inprivate")

  117. .Sub _Tab_HeadRightClick
  118. .Arg TabIndex, Integer

  120. PopupMenu (t12jinkninwi1no31123, , )

  122. .Sub _主页_Click

  124. 跳转页面 ("", True, 2, Tab.CurrentTab)

  126. .Sub _搜索页_Click

  128. 跳转页面 ("", True, 3, Tab.CurrentTab)

  130. .Sub _空白页_Click

  132. 跳转页面 ("about:inprivate", , , Tab.CurrentTab)


  135. .Sub _Tab_TabChange
  136. .LocalVar Temp, String

  138. .IfTrue (GetAryElementCount (IE) > 0)
  139.     同步显示WEB页 (Tab.CurrentTab)
  140.     _Browser1_CaptionChange ()
  141.     ' //Caption = MainCaption + " " + IE [Tab.CurrentTab].Caption
  142.     ' //SetTab_Box_Function (Tab.CurrentTab, TabCaptionFunction (#MY_24, IE [Tab.CurrentTab].Caption), IE [Tab.CurrentTab].Caption)
  143. .if_end


  146. .Sub _当前页_Click
  147. .LocalVar 索引, Integer

  149. ' // 关闭面页 (Tab.CurrentTab, "about:inprivate")

  151. .IfTrue (Tab.CurrentTab > 0)
  152.     .If (Tab.GetTabCount () = 2)
  153.         _空白页_Click ()
  154.     .else
  155.         IE [Tab.CurrentTab].Destroy ()
  156.         RemoveElement (IE, Tab.CurrentTab, )
  157.         Tab.DeleteTab (Tab.CurrentTab)
  158.     .ife_end
  159.     同步显示WEB页 (Tab.CurrentTab)
  160. .if_end


  163. .Sub _全部页_Click
  164. .LocalVar s, Integer
  165. .LocalVar f

  167. .IfTrue (GetAryElementCount (IE) > 0)
  168.     .Count (GetAryElementCount (IE), s)
  169.         ' f = GetAryElementCount (IE)
  170.         ' f = f - s
  171.         .If (GetAryElementCount (IE) = 1)
  172.             跳转页面 ("about:inprivate", False, -1, Tab.CurrentTab)
  173.         .else
  174.             IE [s].Destroy ()
  175.             Tab.DeleteTab (s)
  176.             RemoveElement (IE, s, )
  177.         .ife_end
  178.         同步显示WEB页 (Tab.CurrentTab)

  180.     .CountNext ()
  181. .if_end


  184. .Sub _Browser1_StatusTextChange

  186. Statusbar.SetText (1, IE [Tab.CurrentTab].StatusText)

  188. .Sub _Browser1_BeforeNavigate, Boolean

  190. Return (Not (False))
  191. DZL.Text = IE [Tab.CurrentTab].URL
  192. Swap (IE [Tab.CurrentTab].URL)

  194. .Sub Swap, , Export
  195. .Arg UrlAdderss, String, , url地址
  196. .LocalVar ico, Bin, Static, "0"
  197. .LocalVar url, String, Static, "0"
  198. .LocalVar linseed, Bin, , "0"
  199. .LocalVar Sy, Integer
  200. .LocalVar Cs, Integer
  201. .LocalVar bni, Bin

  203. .For (1, GetAryElementCount (url), 1, Sy)
  204.     .IfTrue (url [Sy] = UrlAdderss)
  205.         AddElement (linseed, ico [Sy])
  206.         Cs = Cs + 1
  207.     .if_end

  209. .Next ()
  210. .If (Cs <> 0)
  211.     bni = Readehtmlico (CliocAdderss (UrlAdderss))
  212. .else
  213.     bni = linseed [1]
  214. .ife_end
  215. .If (bni <> {  })
  216.     htmlIco.Picture = bni
  217. .else
  218.     htmlIco.Picture = Icon
  219. .ife_end



  223. .Sub CliocAdderss, String, Export
  224. .Arg adderss, String
  225. .LocalVar a, String, , "0"
  226. .LocalVar c
  227. .LocalVar d, String

  229. a = SplitString (adderss, "/", )
  230. .Count (#MY_03, c)
  231.     .If (c < 2 And c > 0)
  232.         d = a [c] + "//"
  233.     .else
  234.         d = d + a [c] + "/"
  235.     .ife_end

  237. .CountNext ()
  238. .IfTrue (StrRight (d, 1) <> "/")
  239.     d = d + "/"
  240. .if_end
  241. d = d + "favicon.ico"
  242. Return (d)


  245. .Sub Readehtmlico, Bin, Export
  246. .Arg call, String, AllowEmpty
  247. .Arg adder, String, AllowEmpty
  248. .LocalVar oject, Object
  249. .LocalVar bin, Bin

  251. .If (oject.Create ("Microsoft.XMLHTTP", ))
  252.     .If (IsEmpty (call) = True)
  253.         oject.Call ("Open", "GET", adder, False)
  254.     .else
  255.         oject.Call ("Open", call, adder, False)
  256.     .ife_end
  257.     oject.Call ("Send", )
  258.     bin = oject.GetProperty ("ResponseBody", ).GetBin ()
  259.     Return (bin)
  260. .else
  261.     Return (CBin (""))
  262. .ife_end


  265. .Sub _Browser1_StartLoading

  267. SetTab_Box_Function (Tab.CurrentTab, TabCaptionFunction (#MY_024, "StartLoading"), "StartLoading")


  270. .Sub _Browser1_AfterLoad

  272. SetTab_Box_Function (Tab.CurrentTab, TabCaptionFunction (#MY_024, "AfterLoad"), "AfterLoad")
  273. 同步标题 ()

  275. .Sub SetTab_Box_Function, , Export
  276. .Arg Index, Integer
  277. .Arg Name, String
  278. .Arg Tip, String

  280. Tab.SetTabName (Index, Name)
  281. Tab.SetTabTip (Index, Tip)

  283. .Sub _Browser1_OpeningNew, Boolean

  285. 新建页面 (IE [Tab.CurrentTab].StatusText)

  287. .Sub _Browser1_CaptionChange

  289. 同步标题 ()

  291. .Sub 同步标题, , Export, EPL HTMLBrower Fne Error SY dome TB Caption
  292. .LocalVar Temp, String

  294. .If (IE [Tab.CurrentTab].Caption <> "Internet Explorer 无法显示该网页")
  295.     SetTab_Box_Function (Tab.CurrentTab, TabCaptionFunction (#MY_024, Temp), IE [Tab.CurrentTab].Caption)
  296.     Caption = MainCaption + " " + IE [Tab.CurrentTab].Caption
  297. .else
  298.     Temp = MainCaption + " " + "无法显示该网页"
  299.     SetTab_Box_Function (Tab.CurrentTab, TabCaptionFunction (#MY_024, Temp), Temp)
  300.     Caption = Temp
  301. .ife_end


  304. .Sub TabCaptionFunction, String
  305. .Arg Width, Integer
  306. .Arg Char, String
  307. .LocalVar temp_Width, Integer
  308. .LocalVar Temp_Count, Integer, , "2"
  309. .LocalVar Temp_Char, String

  311. temp_Width = Width
  312. Temp_Count [1] = StrLen (Char)
  313. Temp_Count [2] = temp_Width - Temp_Count [1]
  314. .If (Temp_Count [2] <= 0)
  315.     Return (StrLeft (Char, temp_Width) + "...")
  316. .else
  317.     .Count (Temp_Count [2] / 2, )
  318.         Temp_Char = Temp_Char + " "
  319.     .CountNext ()
  320.     Temp_Char = Temp_Char + Char + Temp_Char
  321.     Return (StrLeft (Temp_Char, #MY_024))
  322. .ife_end


  325. .Sub _Browser1_AfterNavigate

  327. DZL.Text = IE [Tab.CurrentTab].URL
  328. ProgressBar1.Position = ProgressBar1.Min
  329. ComboBox_Add (IE [Tab.CurrentTab].URL)

  331. .Sub _Browser1_Progress
  332. .Arg ProgressPercent, Integer

  334. ProgressBar1.Position = ProgressPercent
  335. ProgressBar1.ZOrder (3)


  338. .Sub _Tab_DblClick, Boolean
  339. .Arg x, Integer
  340. .Arg y, Integer
  341. .Arg KeyState, Integer

  343. _当前页_Click ()


  346. .Sub _SSL_GetFocus

  348. SSL.Text = ""

  350. .Sub _SSL_LostFocus

  352. SSL.Text = "百度一下,你就知道"

  354. .Sub _DZL_LButtonDown, Boolean
  355. .Arg x, Integer
  356. .Arg y, Integer
  357. .Arg KeyState, Integer

  359. DZL.SetFocus ()


  362. .Sub _Tab_LButtonDown, Boolean
  363. .Arg x, Integer
  364. .Arg y, Integer
  365. .Arg KeyState, Integer

  367. IE [Tab.CurrentTab].SetFocus ()


  370. .Sub _XLCD_Click

  372. ComboBox1.SendMessage (335, 1, 0)


  375. .Sub ComboBox_Add, , Export
  376. .Arg 文本, String
  377. .LocalVar 寄存器, String
  378. .LocalVar 索引, Integer
  379. .LocalVar 次数, Integer

  381. 寄存器 = 文本
  382. .IfTrue (InStr (寄存器, "about:blank", , False) = -1)
  383.     .Count (ComboBox1.GetItemCount (), 索引)
  384.         .IfTrue (ComboBox1.GetItemText (索引 - 1) = 文本)
  385.             次数 = 次数 + 1
  386.         .if_end

  388.     .CountNext ()
  389.     .IfTrue (次数 = 0)
  390.         ComboBox1.AddItem (寄存器, )
  391.     .if_end

  393. .if_end


  396. .Sub _ComboBox1_ItemSelect

  398. DZL.Text = ComboBox1.Text
  399. _ZD_Click ()

  401. .Sub _ZD_Click

  403. .IfTrue (TrimAll (DZL.Text) <> "")
  404.     跳转页面 (DZL.Text, False, -1, Tab.CurrentTab)
  405. .if_end


  408. .Sub _SS_Click

  410. .IfTrue (TrimAll (SSL.Text) <> "")
  411.     DZL.Text = SSL.Text
  412.     _ZD_Click ()
  413. .if_end

复制代码
启动函数集
  1. .DocVersion 2

  3. .Module MainModule

  5. .Sub _MainFunction, Integer, , This sub function will be executed first after program starts


  8. Return (Function_LoadWindow () - 1)  ' You can return any number as you need

  10. .Sub Function_LoadWindow, Integer, Export

  12. Return (CInt (Load (MainForm, , False)))
复制代码
  1. .DocVersion 2

  3. .Const MY_024, "24"
  4. .Const MY_03, "3"
复制代码
源码下载地址:
EPL Source Code.rar (51.75 KB, 下载次数: 290)

易语言, 浏览器, 开发

点评

许你，一世承诺
呵呵，毕竟现在只有少数的人装了win8系统啊，但是由于电脑还比较落后，所以装不了那样的系统，只可以看了   广东省广州市  发表于 2012-10-27 22:05

回复

使用道具 举报

stillness
结帖率：33% (3/9)
来自 46楼
 楼主| 发表于 2012-10-27 21:39:39 | 只看该作者   四川省成都市
String 字符串,文本型
Bin 字节集
boolean 逻辑型
Datetime 时间
Byte 字节
float 浮点
integer 整数型
functionAddress 子程序指针
回复 支持 反对

使用道具 举报

stillness
结帖率：33% (3/9)
来自 45楼
 楼主| 发表于 2012-10-27 21:46:52 | 只看该作者   四川省成都市

  2. on(relss)
  3. {
  4.         var a:new Date;
  5.         switch ( a.Day )
  6.         {
  7.                 case : 0
  8.                 trace ( “星期日" ) ;
  9.                 break;
  10.                 default :
  11.                 trace("未知日期") ;
  12.         }

  14. }
复制代码
回复 支持 反对

使用道具 举报

2161045897
结帖率：85% (17/20)
44楼
发表于 2019-4-29 20:55:25 | 只看该作者   江西省吉安市
感谢分享~····
回复 支持 反对

使用道具 举报

酷酷的滕啊
43楼
发表于 2017-10-29 16:53:37 | 只看该作者   广东省深圳市
66666666666666666
回复 支持 反对

使用道具 举报

ye347549299
结帖率：100% (69/69)

签到天数: 1 天
42楼
发表于 2014-12-1 17:17:55 | 只看该作者   北京市北京市
我要找一个非常好的浏览器
回复 支持 反对

使用道具 举报

e时代无名
结帖率：0% (0/1)
41楼
发表于 2013-8-18 23:49:32 | 只看该作者   重庆市重庆市
美观不错 呵呵
回复 支持 反对

使用道具 举报

942129496
40楼
发表于 2013-7-28 20:02:21 | 只看该作者   陕西省榆林市
的数据库哈斯就
回复 支持 反对

使用道具 举报

慢慢变黑
结帖率：40% (2/5)

签到天数: 1 天
39楼
发表于 2013-7-21 20:31:19 | 只看该作者   江苏省苏州市
学习正需要，谢谢

本文章来自：精易论坛(http://125.confly.eu.org/forum.php?mod=viewthread&tid=136309）请保留此链接, 感谢!
回复 支持 反对

使用道具 举报

565664564
头像被屏蔽
38楼
发表于 2013-7-5 09:43:51 | 只看该作者   河南省洛阳市
下载看看吧
回复 支持 反对

使用道具 举报

非常完美
结帖率：0% (0/1)
37楼
发表于 2013-6-29 15:52:21 | 只看该作者   浙江省宁波市
EPL是什么？
回复 支持 反对

使用道具 举报

zuoyanjiang
36楼
发表于 2013-6-1 12:29:12 | 只看该作者   山西省太原市
下载后告诉你们好用不
回复 支持 反对

使用道具 举报

小袋
结帖率：100% (1/1)
35楼
发表于 2013-5-1 10:36:36 | 只看该作者   广东省广州市
萨达阿是大声道阿斯达
回复 支持 反对

使用道具 举报

12345下一页
返回列表 发新帖
  高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论，本站内容均为会员发表，并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的，严禁用于非法目的，否则造成一切后果自负！如帖子内容侵害到你的权益，请联系我们！
防范网络诈骗，远离网络犯罪 违法和不良信息举报QQ： 793400750，邮箱：[email protected]
网站简介：精易论坛成立于2009年，是一个程序设计学习交流技术论坛，隶属于揭阳市揭东区精易科技有限公司所有。
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125　增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表