TC官方合作论坛

标题: 【无源码】自己做的浏览器 [打印本页]
作者: 869618449    时间: 2012-10-2 16:49
标题: 【无源码】自己做的浏览器
[attach]5535[/attach][attach]5534[/attach]支持快捷键 Enter转到和F5刷新...
作者: shine宝宝    时间: 2012-10-2 17:31
为了整齐  把帖子标题的括号改了一下  支持一下LZ
作者: 8709600    时间: 2012-10-15 01:08
啥呀？
作者: tankey    时间: 2012-10-15 17:26
看看
作者: a476530023    时间: 2012-10-16 15:13
- -。支持你下，不过我看不到附件，悲剧。
作者: ms5084456    时间: 2012-10-17 21:01
学习了
作者: 69272514    时间: 2012-10-17 21:27
好像学习下，可惜没有下载权限
作者: 411951570    时间: 2012-10-18 01:17
顶个
作者: z1481281370    时间: 2013-6-11 18:31
我来提个建议。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. //定义默认空间

  4. 变量 标题,url
  5. 功能 退出_点击()
  6.     //这里添加你要执行的代码
  7.    
  8.     返回 真
  9.     //函数返回语句
  10. 功能结束


  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. 功能结束

  68. 功能 列表框1_左键双击()
  69.     //这里添加你要执行的代码
  70.     网页.转到("浏览器0",列表框.得到选中文本("列表框1"),"抽奖浏览器")
  71. 功能结束


  74. 功能 列表框0_左键双击()
  75.     网页.转到("浏览器0",列表框.得到选中文本("列表框1"),"抽奖浏览器")
  76. 功能结束

  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. 功能结束

  89. 功能 按钮0_点击()
  90.     子界面句柄=控件.打开窗口("收藏")
  91.     编辑框.设置文本("编辑框0","","收藏")
  92.     编辑框.设置文本("编辑框1","","收藏")
  93. 功能结束

  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. 功能结束


  111. 功能 按钮4_点击()
  112.     辅助.消息框("这是消息框","会员未登录或不是VIP")
  113. 功能结束

  115. 空间结束
复制代码
这样基本完成一个浏览器所需要的功能
注意：上面的代码从我做的浏览器复制粘贴过来的，仅供参考！
我的浏览器发帖地址：
http://bbs.tyuyan.com/thread-27097-1#429462-1.html
作者: saiy8388    时间: 2013-6-13 14:35
hao好hao好hao好hao好hao好hao好
作者: 1010785798    时间: 2013-6-15 18:00
功能比较少哟
作者: z1481281370    时间: 2013-6-28 09:20
我先写的代码有问题
作者: ls799640650    时间: 2013-9-4 11:57
adafafafaafada



欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/) Powered by Discuz! X3.1