【无源码】自己做的浏览器

869618449

支持快捷键 Enter转到和F5刷新...

shine宝宝

为了整齐  把帖子标题的括号改了一下  支持一下LZ

8709600

啥呀？

tankey

看看

a476530023

- -。支持你下，不过我看不到附件，悲剧。

ms5084456

学习了

69272514

好像学习下，可惜没有下载权限

411951570

顶个

z1481281370

我来提个建议。1.搜索功能

1. 功能 搜索线程()
   
2.     网页.转到("浏览器0","www.baidu.com")
   
3.     循环(真)
   
4.         如果(网页.加载完成("浏览器0"))
   
5.             跳出
   
6.         如果结束
   
7.     循环结束   
   
8.     网页.输入元素文本("浏览器0",编辑框.获得文本("编辑框1"),"id:kw")   
   
9.     网页.点击元素("浏览器0","id:su")
   
10. 功能结束
    
11. 功能 按钮2_点击()  
    
12.     线程.开启("抽奖浏览器.搜索线程","")
    
13. 功能结束

复制代码

2.皮肤

1. var path = help.getrcpath("rc:")
   
2.     dllcall(path & "SkinH_EL.dll","int","SkinH_AttachEx","char *",path &"皮肤_IllumeCG.she","char *","")

复制代码

这个链接有皮肤和插件下载http://bbs.tyuyan.com/thread-21123-1-1.html
3.看看加载完成

1. 功能 浏览器0_加载完成()
   
2.     标题 = 网页.得到标题("浏览器0")
   
3.     如果(网页.加载完成("浏览器0"))
   
4.         进度条.设置进度("进度条0",99)
   
5.     否则
   
6.         进度条.设置进度("进度条0",29)
   
7.     如果结束   
   
8.     句柄=窗口.自身句柄()
   
9.     如果(标签.获得文本("标签1")!="")
   
10.         窗口.设置标题(句柄,标题&"—抽奖荣光浏览器[已登录]"&标签.获得文本("标签1"))
    
11.     否则
    
12.         窗口.设置标题(句柄,标题&"—抽奖荣光浏览器[未登录]")
    
13.     如果结束
    
14.     url = 网页.得到链接("浏览器0")   
    
15.     编辑框.设置文本("编辑框0",url)   
    
16. 功能结束

复制代码

4.使用默认浏览器访问
代码非常简单

1. 是否成功=辅助.命令(编辑框.获得文本("编辑框0"),false)

复制代码

5.收藏夹
这个有点难
要用到多窗口
新建2个窗口
代码

1. 空间 收藏
   
2. //定义默认空间
   
3. 
   
4. 变量 标题,url
   
5. 功能 退出_点击()
   
6.     //这里添加你要执行的代码
   
7.    
   
8.     返回 真
   
9.     //函数返回语句
   
10. 功能结束
    
11. 
    
12. 
    
13. 功能 初始化()
    
14.     标题 = 网页.得到标题("浏览器0","抽奖浏览器")
    
15.     编辑框.设置文本("编辑框0",标题,"收藏")
    
16.     url = 网页.得到链接("浏览器0","抽奖浏览器")
    
17.     编辑框.设置文本("编辑框1",url,"收藏")
    
18. 功能结束
    
19. 功能 开始_点击()
    
20.     如果(标签.获得文本("标签1","抽奖浏览器")!="")
    
21.         个数=列表框.得到个数("列表框0","收藏夹")
    
22.         辅助.写配置(个数+1,个数+1,标题,"c:\\抽奖荣光浏览器\"&标签.获得文本("标签1","抽奖浏览器")&"sc.ini")
    
23.         辅助.写配置(个数*2+1,个数*2+1,url,"c:\\抽奖荣光浏览器\"&标签.获得文本("标签1","抽奖浏览器")&"sc.ini")
    
24.         列表框.增加文本("列表框0",标题,"收藏夹")
    
25.         列表框.增加文本("列表框0",url,"收藏夹")
    
26.         辅助.写配置("b","b",个数,"c:\\抽奖荣光浏览器\"&标签.获得文本("标签1","抽奖浏览器")&"sc.ini")
    
27.     否则
    
28.         个数=列表框.得到个数("列表框0","收藏夹")
    
29.         辅助.写配置(个数+1,个数+1,标题,"c:\\抽奖荣光浏览器\\sc.ini")
    
30.         辅助.写配置(个数*2+1,个数*2+1,url,"c:\\抽奖荣光浏览器\\sc.ini")
    
31.         列表框.增加文本("列表框0",标题,"收藏夹")
    
32.         列表框.增加文本("列表框0",url,"收藏夹")
    
33.         辅助.写配置("b","b",个数,"c:\\抽奖荣光浏览器\\sc.ini")
    
34.     如果结束
    
35. 功能结束
    
36. 空间结束

复制代码

第二个窗口代码：

1. 空间 收藏夹
   
2. 变量 内容1,内容2,内容3,内容4,内容5,地址1,地址2,地址3,地址4,地址5
   
3. 功能 初始化()
   
4.     个数=辅助.读配置("d","d","c:\\抽奖荣光浏览器\\sc.ini")
   
5.     如果(标签.获得文本("标签1","抽奖浏览器")=="")
   
6.         
   
7.         内容1=辅助.读配置(个数+1,个数+1,"c:\\抽奖荣光浏览器\\sc.ini")
   
8.         内容2=辅助.读配置(个数+2,个数+2,"c:\\抽奖荣光浏览器\\sc.ini")
   
9.         内容3=辅助.读配置(个数+3,个数+3,"c:\\抽奖荣光浏览器\\sc.ini")
   
10.         内容4=辅助.读配置(个数+4,个数+4,"c:\\抽奖荣光浏览器\\sc.ini")
    
11.         内容5=辅助.读配置(个数+5,个数+5,"c:\\抽奖荣光浏览器\\sc.ini")
    
12.         地址1=辅助.读配置(个数*2+1,个数*2+1,"c:\\抽奖荣光浏览器\\sc.ini")
    
13.         地址2=辅助.读配置(个数*2+2,个数*2+2,"c:\\抽奖荣光浏览器\\sc.ini")
    
14.         地址3=辅助.读配置(个数*2+3,个数*2+3,"c:\\抽奖荣光浏览器\\sc.ini")
    
15.         地址4=辅助.读配置(个数*2+4,个数*2+4,"c:\\抽奖荣光浏览器\\sc.ini")
    
16.         地址5=辅助.读配置(个数*2+5,个数*2+5,"c:\\抽奖荣光浏览器\\sc.ini")
    
17.         列表框.增加文本("列表框0",内容1,"收藏夹")
    
18.         列表框.增加文本("列表框0",内容2,"收藏夹")
    
19.         列表框.增加文本("列表框0",内容3,"收藏夹")
    
20.         列表框.增加文本("列表框0",内容4,"收藏夹")
    
21.         列表框.增加文本("列表框0",内容5,"收藏夹")
    
22.         列表框.增加文本("列表框1",地址1,"收藏夹")
    
23.         列表框.增加文本("列表框1",地址2,"收藏夹")
    
24.         列表框.增加文本("列表框1",地址3,"收藏夹")
    
25.         列表框.增加文本("列表框1",地址4,"收藏夹")
    
26.         列表框.增加文本("列表框1",地址5,"收藏夹")
    
27.     否则
    
28.         文本=标签.获得文本("标签1","抽奖浏览器")
    
29.         内容1=辅助.读配置(个数+1,个数+1,"c:\\抽奖荣光浏览器\"&文本&".ini")
    
30.         内容2=辅助.读配置(个数+2,个数+2,"c:\\抽奖荣光浏览器\"&文本&".ini")
    
31.         内容3=辅助.读配置(个数+3,个数+3,"c:\\抽奖荣光浏览器\"&文本&".ini")
    
32.         内容4=辅助.读配置(个数+4,个数+4,"c:\\抽奖荣光浏览器\"&文本&".ini")
    
33.         内容5=辅助.读配置(个数+5,个数+5,"c:\\抽奖荣光浏览器\"&文本&".ini")
    
34.         内容6=辅助.读配置(个数+6,个数+6,"c:\\抽奖荣光浏览器\"&文本&".ini")
    
35.         内容7=辅助.读配置(个数+7,个数+7,"c:\\抽奖荣光浏览器\"&文本&".ini")
    
36.         内容8=辅助.读配置(个数+8,个数+8,"c:\\抽奖荣光浏览器\"&文本&".ini")
    
37.         地址1=辅助.读配置(个数*2+1 ,个数*2+1,"c:\\抽奖荣光浏览器\"&文本&".ini")
    
38.         地址2=辅助.读配置(个数*2+2,个数*2+2,"c:\\抽奖荣光浏览器\"&文本&".ini")
    
39.         地址3=辅助.读配置(个数*2+3,个数*2+3,"c:\\抽奖荣光浏览器\"&文本&".ini")
    
40.         地址4=辅助.读配置(个数*2+4,个数*2+4,"c:\\抽奖荣光浏览器\"&文本&".ini")
    
41.         地址5=辅助.读配置(个数*2+5,个数*2+5,"c:\\抽奖荣光浏览器\"&文本&".ini")
    
42.         地址6=辅助.读配置(个数*2+6,个数*2+6,"c:\\抽奖荣光浏览器\"&文本&".ini")
    
43.         地址7=辅助.读配置(个数*2+7,个数*2+7,"c:\\抽奖荣光浏览器\"&文本&".ini")
    
44.         地址8=辅助.读配置(个数*2+8,个数*2+8,"c:\\抽奖荣光浏览器\"&文本&".ini")
    
45.         列表框.增加文本("列表框0",内容1,"收藏夹")
    
46.         列表框.增加文本("列表框0",内容2,"收藏夹")
    
47.         列表框.增加文本("列表框0",内容3,"收藏夹")
    
48.         列表框.增加文本("列表框0",内容4,"收藏夹")
    
49.         列表框.增加文本("列表框0",内容5,"收藏夹")
    
50.         列表框.增加文本("列表框0",内容6,"收藏夹")
    
51.         列表框.增加文本("列表框0",内容7,"收藏夹")
    
52.         列表框.增加文本("列表框0",内容8,"收藏夹")
    
53.         列表框.增加文本("列表框1",地址1,"收藏夹")
    
54.         列表框.增加文本("列表框1",地址2,"收藏夹")
    
55.         列表框.增加文本("列表框1",地址3,"收藏夹")
    
56.         列表框.增加文本("列表框1",地址4,"收藏夹")
    
57.         列表框.增加文本("列表框1",地址5,"收藏夹")
    
58.         列表框.增加文本("列表框1",地址6,"收藏夹")
    
59.         列表框.增加文本("列表框1",地址7,"收藏夹")
    
60.         列表框.增加文本("列表框1",地址8,"收藏夹")
    
61.     如果结束
    
62.     编辑框.设置文本("编辑框0","说明: \n 1.会员送8个收藏夹 \n 2.VIP可扩容10个收藏夹[VIP暂未出]")
    
63. 功能结束
    
64. 功能 收藏夹_关闭()
    
65.     控件.关闭窗口("收藏夹",1)
    
66. 功能结束
    
67. 
    
68. 功能 列表框1_左键双击()
    
69.     //这里添加你要执行的代码
    
70.     网页.转到("浏览器0",列表框.得到选中文本("列表框1"),"抽奖浏览器")
    
71. 功能结束
    
72. 
    
73. 
    
74. 功能 列表框0_左键双击()
    
75.     网页.转到("浏览器0",列表框.得到选中文本("列表框1"),"抽奖浏览器")
    
76. 功能结束
    
77. 
    
78. 功能 按钮1_点击()
    
79.     结果=辅助.对话框("您确认要删除吗？","抽奖荣光浏览器——提示",2,true)
    
80.     如果(结果==7)
    
81.         序号=列表框.得到选项("列表框0")
    
82.         列表框.删除文本("列表框0",序号)
    
83.         列表框.删除文本("列表框1",序号)
    
84.         辅助.写配置(序号&1,序号&1,"","c:\\抽奖荣光浏览器\\cs.ini")
    
85.         辅助.写配置(序号&2,序号&2,"","c:\\抽奖荣光浏览器\\sc.ini")
    
86.     如果结束   
    
87. 功能结束
    
88. 
    
89. 功能 按钮0_点击()
    
90.     子界面句柄=控件.打开窗口("收藏")
    
91.     编辑框.设置文本("编辑框0","","收藏")
    
92.     编辑框.设置文本("编辑框1","","收藏")
    
93. 功能结束
    
94. 
    
95. 功能 按钮2_点击()
    
96.     结果=辅助.对话框("您确认要清空吗？","抽奖荣光浏览器——提示",2,true)
    
97.     如果(结果==7)
    
98.         列表框.清空("列表框0")
    
99.         列表框.清空("列表框1")
    
100.         文件.删除("c:\\抽奖荣光浏览器\\sc.ini")
     
101.     如果结束
     
102. 功能结束
     
103. 功能 按钮3_点击()
     
104.     子界面句柄=控件.打开窗口("收藏")
     
105.     编辑框.设置文本("编辑框0",列表框.得到选中文本("列表框0"),"收藏")
     
106.     序号=列表框.得到选项("列表框0")
     
107.     编辑框.设置文本("编辑框1",列表框.获得文本("列表框1",序号),"收藏")
     
108. 功能结束
     
109. 
     
110. 
     
111. 功能 按钮4_点击()
     
112.     辅助.消息框("这是消息框","会员未登录或不是VIP")
     
113. 功能结束
     
114. 
     
115. 空间结束

复制代码

这样基本完成一个浏览器所需要的功能
注意：上面的代码从我做的浏览器复制粘贴过来的，仅供参考！
我的浏览器发帖地址：
http://bbs.tyuyan.com/thread-27097-1#429462-1.html

saiy8388

hao好hao好hao好hao好hao好hao好