|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 z1481281370 于 2014-3-18 20:56 编辑
为了参加官方的活动,我今天特意分享一下光荣浏览器的源码哦
- <P>#include"备份管理.t"
- #include"域名解析.t"
- #include"皮肤中心.t"
- #include"激活.t"
- #include"关于.t"
- #include"用户中心.t"
- #include"登录.t"
- #include"释放内存.t"
- #include"网站.t"
- #include"选项.t"
- #include"收藏.t"
- #include"播放器.t"
- #include"读界面.t"
- #include"收藏夹.t"
- #include"收藏.t"
- #include"系统检测.t"
- #include"发.t"
- #include"扩展.t"
- 空间 抽奖浏览器
- 变量 标题,路径,句柄
- 变量 url
- 功能 按钮1_点击()
- 网页.前进("浏览器0")
- 功能结束
- 线程句柄
- 功能 ccc()
- 变量 x ,y,x1,y1, x2 ,y2,x3,y3,
- 窗口.获取客户区大小(句柄,x,y,x1,y1)
- 控件.设置位置("浏览器0",3,29,x1,y1-90,2)
- dllcall("user32.dll","int","SetWindowLongA","int",句柄,"int",-16,"int",13565952)
- dllcall("user32.dll","int","ShowWindow","int",句柄,"int",1)
- 控件句柄=控件.获得句柄("浏览器0")
- 窗口.获取客户区大小(控件句柄,x2,y2,x3,y3)
- 控件.设置位置("进度条0",1,62+y3,x1,y1-60,1)
- 控件.设置位置("按钮13",815,62+y3,x1,y1-60,1)
- 控件.设置位置("下拉框1",572,70+y3,x1,y1-60,1)
- 控件.设置位置("按钮8",782,64+y3,x1,y1-60,1)
- 控件.设置位置("按钮10",1031,64+y3,x1,21,1)
- 控件.设置位置("日期框0",475,64+y3,x1,y1-60,1)
- 控件.设置位置("标签3",372,64+y3,x1,y1-60,1)
- 控件.设置位置("标签2",273,64+y3,x1,21,1)
- 控件.设置位置("标签0",138,64+y3,x1,21,1)
- 功能结束
- 功能 初始化()
- 句柄=窗口.自身句柄()
- var path = help.getrcpath("rc:")
- dllcall(path & "SkinH_EL.dll","int","SkinH_AttachEx","char *",path &"默认.she","char *","")
- 线程句柄=线程.开启("抽奖浏览器.ccc","")
- 如果(文件.是否存在("c:\\抽奖荣光浏览器"))
- 文件.重命名文件夹("c:\\抽奖荣光浏览器","c:\\光荣浏览器")
- 否则
- 是否存在=文件.是否存在("c:\\光荣浏览器")
- 如果(是否存在==假)
- 文件.创建文件夹("c:\\光荣浏览器")
- 如果结束
- 如果结束
- 路径=系统.获取当前路径()
- 如果(文件.是否存在(路径&"\\skin")==假)
- 文件.创建文件夹(路径&"\\skin")
- 如果结束
- 内容=辅助.读配置("系统配置","默认主页","c:\\光荣浏览器\\sz.ini")
- 如果(内容=="")
- 网页.转到("浏览器0","http://www.hao123.com/")
- 否则
- 网页.转到("浏览器0",内容)
- 如果结束
- 是否存在=文件.是否存在("c:\\光荣浏览器\\qdmusic.ini")
- 如果(是否存在)
- 辅助.读配置("0","0","c:\\光荣浏览器\\qdmusic.ini")
- 如果结束
- 时间=系统.时间(5)
- 标签.设置文本("标签0",时间)
- 句柄=窗口.自身句柄()
- dllcall(path &"SkinH_EL.dll","int","SkinH_SetWindowMovable","int",句柄,"int",1)
- 按钮.设置背景图("按钮0","rc:ht.png")
- 按钮.设置背景图("按钮1","rc:qj.png")
- 按钮.设置背景图("按钮5","rc:sx.png")
- 按钮.设置背景图("按钮3","rc:zy.png")
- 按钮.设置背景图("按钮4","rc:zd.png")
- 按钮.设置背景图("按钮2","rc:ss.png")
- 按钮.设置背景图("按钮8","rc:gd.png")
- 按钮.设置背景图("按钮12","rc:sc.png")
- 按钮.设置背景图("按钮13","rc:ie9.bmp")
- 辅助.写配置("程序版本","banben",标签.获得文本("标签3"),"c:\\光荣浏览器\\up.ini")
- 功能结束
- 功能 浏览器0_加载完成()
- 标题 = 网页.得到标题("浏览器0")
- 句柄=窗口.自身句柄()
- 如果(标签.获得文本("标签1")!="")
- 窗口.设置标题(句柄,标题&"—光荣浏览器[已登录 "&标签.获得文本("标签1")&" ]")
- 否则
- 窗口.设置标题(句柄,标题&"—光荣浏览器[未登录]")
- 如果结束
- url = 网页.得到链接("浏览器0")
- 编辑框.设置文本("编辑框0",url,"抽奖浏览器")
- 下拉框.增加文本("下拉框0",url)
- 辅助.设置托盘(标题&"光荣浏览器",假)
- 功能结束
- 功能 按钮0_点击()
- 网页.后退("浏览器0")
- 功能结束
- 功能 按钮4_点击()
- 下拉框.增加文本("下拉框0",编辑框.获得文本("编辑框0"))
- 网页.转到("浏览器0",编辑框.获得文本("编辑框0"))
- 功能结束
- 功能 百度搜索()
- 网页.转到("浏览器0","www.baidu.com")
- 循环(真)
- 如果(网页.加载完成("浏览器0"))
- 跳出
- 如果结束
- 循环结束
- 网页.输入元素文本("浏览器0",编辑框.获得文本("编辑框1"),"id:kw")
- 网页.点击元素("浏览器0","id:su")
- 功能结束
- 功能 奇虎搜索()
- 网页.转到("浏览器0","www.so.com")
- 循环(真)
- 如果(网页.加载完成("浏览器0"))
- 跳出
- 如果结束
- 循环结束
- 网页.输入元素文本("浏览器0",编辑框.获得文本("编辑框1"),"id:input")
- 网页.点击元素("浏览器0","id:search-button")
- 功能结束
- 功能 必应搜索()
- 网页.转到("浏览器0","http://cn.bing.com/")
- 循环(真)
- 如果(网页.加载完成("浏览器0"))
- 跳出
- 如果结束
- 循环结束
- 网页.输入元素文本("浏览器0",编辑框.获得文本("编辑框1"),"id:sb_form_q")
- 网页.点击元素("浏览器0","id:sb_form_go")
- 功能结束
- 功能 有道搜索()
- 网页.转到("浏览器0","http://www.youdao.com/")
- 循环(真)
- 如果(网页.加载完成("浏览器0"))
- 跳出
- 如果结束
- 循环结束
- 网页.输入元素文本("浏览器0",编辑框.获得文本("编辑框1"),"id:query")
- 网页.点击元素("浏览器0","id:qb")
- 功能结束
- 功能 爱T搜索()
- 网页.转到("浏览器0","so.watyy.ml")
- 循环(真)
- 如果(网页.加载完成("浏览器0"))
- 跳出
- 如果结束
- 循环结束
- 网页.输入元素文本("浏览器0",编辑框.获得文本("编辑框1"),"id:kw")
- 网页.点击元素("浏览器0","id:su")
- 功能结束
- 功能 按钮5_点击()
- 网页.刷新("浏览器0")
- 功能结束
- 功能 按钮2_点击()
- 选择(下拉框.获得文本("下拉框2"))
- 条件 "百度搜索":
- 线程.开启("抽奖浏览器.百度搜索","")
- 条件 "360搜索":
- 线程.开启("抽奖浏览器.奇虎搜索","")
- 条件 "爱T搜索":
- 线程.开启("抽奖浏览器.爱T搜索","")
- 条件 "有道搜索":
- 线程.开启("抽奖浏览器.有道搜索","")
- 条件 "必应搜索":
- 线程.开启("抽奖浏览器.必应搜索","")
- 选择结束
- 功能结束
- 功能 按钮3_点击()
- 内容=辅助.读配置("0","0",路径&"\\光荣浏览器\\sz.ini")
- 如果(内容!="")
- 网页.转到("浏览器0",内容)
- 否则
- 网页.转到("浏览器0","http://www.hao123.com/")
- 如果结束
- 功能结束
- 功能 按钮8_点击()
- 子界面句柄=控件.打开窗口("扩展")
- 功能结束
- 功能 定时器0_时钟()
- 如果(网页.加载完成("浏览器0"))
- 进度条.设置进度("进度条0",100)
- 否则
- 进度条.设置进度("进度条0", 50)
- 按钮.设置文本("按钮15","正在载入")
- 如果(标签.获得文本("标签1")!="")
- 窗口.设置标题(句柄,"正在载入—光荣浏览器[已登录]"&标签.获得文本("标签1"))
- 否则
- 窗口.设置标题(句柄,"正在载入—光荣浏览器[未登录]")
- 如果结束
- 如果结束
- 时间=系统.时间(5)
- 标签.设置文本("标签0",时间)
- 功能结束
- 功能 按钮12_点击()
- 子界面句柄=控件.打开窗口("收藏夹")
- 功能结束
- 功能 按钮11_点击()
- 子界面句柄=控件.打开窗口("激活")
- 功能结束
- 功能 抽奖浏览器_关闭()
- 辅助.退出()
- 功能结束
- 功能 按钮6_点击()
- 子界面句柄=控件.打开窗口("用户中心")
- 功能结束
- 功能 按钮10_点击()
- 子界面句柄=控件.打开窗口("选项")
- 功能结束
- 功能 下拉框0_选择改变()
- 编辑框.设置文本("编辑框0",下拉框.获得文本("下拉框0"))
- 网页.转到("浏览器0",下拉框.获得文本("下拉框0"))
- 功能结束
- 功能 控件调整()
- 辅助.等待(5)
- 句柄,x,y,x1,y1
- 窗口.获取客户区大小(句柄,x,y,x1,y1)
- 控件.设置位置("浏览器0",3,29,x1-6,y1-30,0)
- 功能结束
- 功能 按钮7_点击()
- 是否成功=辅助.命令(编辑框.获得文本("编辑框0"),false)
- 功能结束
- 功能 复选框0_点击()
- 功能结束
- 功能 按钮9_点击()
- //这里添加你要执行的代码
- 子界面句柄=控件.打开窗口("登录")
- 功能结束
- 功能 换肤()
- var path = help.getrcpath("rc:")
- dllcall(path & "SkinH_EL.dll","int","SkinH_AttachEx","char *",path &"皮肤_永不言败.she","char *","")
- 功能结束
- 功能 标签5_点击()
- 控件.可见("标签5",假)
- 功能结束
- 功能 抽奖浏览器_消息过程(消息,w参数,l参数)
- 如果(消息==0005)
- 线程句柄=线程.开启("抽奖浏览器.ccc","")
- 如果结束
- 如果(消息==274)
- 如果(w参数==61488)
- 线程.关闭(线程句柄)
- 如果结束
- 如果结束
- 功能结束
- 功能 按钮13_点击()
- 辅助.消息框(路径)
- 是否成功=辅助.命令("c:\\Program Files\\Internet Explorer\\iexplore.exe "&编辑框.获得文本("编辑框0"),false)
- 功能结束
- 功能 按钮14_点击()
- 功能结束
- 功能 下拉框1_选择改变()
- var path = help.getrcpath("rc:")
- dllcall(path & "SkinH_EL.dll","int","SkinH_AttachEx","char *",path &下拉框.获得文本("下拉框1"),"char *","")
- 功能结束
- 功能 图片框0_左键单击()
- //这里添加你要执行的代码
- 如果(标签.获得文本("标签0")=="")
- 控件.打开窗口("登录")
- 否则
- 控件.打开窗口("用户中心")
- 如果结束
- 功能结束
- //消息路由功能
- 空间结束</P>
复制代码 下载源码:http://yunpan.cn/QUGwQD3w2HxI7 访问密码 c4af声明:本源码只供学习交流使用,禁止拿源码做坏事!不然你懂的
z1481281370版权所有 违者必究
|
|