TC官方合作论坛

标题: 光荣浏览器源码 [打印本页]
作者: z1481281370    时间: 2013-12-4 20:22
标题: 光荣浏览器源码
本帖最后由 z1481281370 于 2014-3-18 20:56 编辑

为了参加官方的活动，我今天特意分享一下光荣浏览器的源码哦

  2. <P>#include"备份管理.t"
  3. #include"域名解析.t"
  4. #include"皮肤中心.t"
  5. #include"激活.t"
  6. #include"关于.t"
  7. #include"用户中心.t"
  8. #include"登录.t"
  9. #include"释放内存.t"
  10. #include"网站.t"
  11. #include"选项.t"
  12. #include"收藏.t"
  13. #include"播放器.t"
  14. #include"读界面.t"
  15. #include"收藏夹.t"
  16. #include"收藏.t"
  17. #include"系统检测.t"
  18. #include"发.t"
  19. #include"扩展.t"
  20. 空间 抽奖浏览器
  21. 变量 标题,路径,句柄
  22. 变量 url
  23. 功能 按钮1_点击()
  24. 网页.前进("浏览器0")
  25. 功能结束
  26. 线程句柄
  27. 功能 ccc()
  28. 变量 x ,y,x1,y1, x2 ,y2,x3,y3,
  29. 窗口.获取客户区大小(句柄,x,y,x1,y1)
  30. 控件.设置位置("浏览器0",3,29,x1,y1-90,2)
  31. dllcall("user32.dll","int","SetWindowLongA","int",句柄,"int",-16,"int",13565952)
  32. dllcall("user32.dll","int","ShowWindow","int",句柄,"int",1）
  33. 控件句柄=控件.获得句柄("浏览器0")
  34. 窗口.获取客户区大小(控件句柄,x2,y2,x3,y3)
  35. 控件.设置位置("进度条0",1,62+y3,x1,y1-60,1)
  36. 控件.设置位置("按钮13",815,62+y3,x1,y1-60,1)
  37. 控件.设置位置("下拉框1",572,70+y3,x1,y1-60,1)
  38. 控件.设置位置("按钮8",782,64+y3,x1,y1-60,1)
  39. 控件.设置位置("按钮10",1031,64+y3,x1,21,1)
  40. 控件.设置位置("日期框0",475,64+y3,x1,y1-60,1)
  41. 控件.设置位置("标签3",372,64+y3,x1,y1-60,1)
  42. 控件.设置位置("标签2",273,64+y3,x1,21,1)
  43. 控件.设置位置("标签0",138,64+y3,x1,21,1)
  44. 功能结束
  45. 功能 初始化()
  46. 句柄=窗口.自身句柄()
  47. var path = help.getrcpath("rc:")
  48. dllcall(path & "SkinH_EL.dll","int","SkinH_AttachEx","char *",path &"默认.she","char *","")
  49. 线程句柄=线程.开启("抽奖浏览器.ccc","")
  50. 如果(文件.是否存在("c:\\抽奖荣光浏览器"))
  51. 文件.重命名文件夹("c:\\抽奖荣光浏览器","c:\\光荣浏览器")
  52. 否则
  53. 是否存在=文件.是否存在("c:\\光荣浏览器")
  54. 如果(是否存在==假)
  55. 文件.创建文件夹("c:\\光荣浏览器")
  56. 如果结束
  57. 如果结束
  58. 路径=系统.获取当前路径()
  59. 如果(文件.是否存在(路径&"\\skin")==假)
  60. 文件.创建文件夹(路径&"\\skin")
  61. 如果结束
  62. 内容=辅助.读配置("系统配置","默认主页","c:\\光荣浏览器\\sz.ini")
  63. 如果(内容=="")
  64. 网页.转到("浏览器0","http://www.hao123.com/")
  65. 否则
  66. 网页.转到("浏览器0",内容)
  67. 如果结束
  68. 是否存在=文件.是否存在("c:\\光荣浏览器\\qdmusic.ini")
  69. 如果(是否存在)
  70. 辅助.读配置("0","0","c:\\光荣浏览器\\qdmusic.ini")
  71. 如果结束
  72. 时间=系统.时间(5)
  73. 标签.设置文本("标签0",时间)
  74. 句柄=窗口.自身句柄()
  75. dllcall(path &"SkinH_EL.dll","int","SkinH_SetWindowMovable","int",句柄,"int",1)
  76. 按钮.设置背景图("按钮0","rc:ht.png")
  77. 按钮.设置背景图("按钮1","rc:qj.png")
  78. 按钮.设置背景图("按钮5","rc:sx.png")
  79. 按钮.设置背景图("按钮3","rc:zy.png")
  80. 按钮.设置背景图("按钮4","rc:zd.png")
  81. 按钮.设置背景图("按钮2","rc:ss.png")
  82. 按钮.设置背景图("按钮8","rc:gd.png")
  83. 按钮.设置背景图("按钮12","rc:sc.png")
  84. 按钮.设置背景图("按钮13","rc:ie9.bmp")
  85. 辅助.写配置("程序版本","banben",标签.获得文本("标签3"),"c:\\光荣浏览器\\up.ini")
  86. 功能结束
  87. 功能 浏览器0_加载完成()
  88. 标题 = 网页.得到标题("浏览器0")
  89. 句柄=窗口.自身句柄()
  90. 如果(标签.获得文本("标签1")!="")
  91. 窗口.设置标题(句柄,标题&"—光荣浏览器[已登录 "&标签.获得文本("标签1")&" ]")
  92. 否则
  93. 窗口.设置标题(句柄,标题&"—光荣浏览器[未登录]")
  94. 如果结束
  95. url = 网页.得到链接("浏览器0")
  96. 编辑框.设置文本("编辑框0",url,"抽奖浏览器")
  97. 下拉框.增加文本("下拉框0",url)
  98. 辅助.设置托盘(标题&"光荣浏览器",假)
  99. 功能结束
  100. 功能 按钮0_点击()
  101. 网页.后退("浏览器0")
  102. 功能结束
  103. 功能 按钮4_点击()
  104. 下拉框.增加文本("下拉框0",编辑框.获得文本("编辑框0"))
  105. 网页.转到("浏览器0",编辑框.获得文本("编辑框0"))
  106. 功能结束

  108. 功能 百度搜索()
  109. 网页.转到("浏览器0","www.baidu.com")
  110. 循环(真)
  111. 如果(网页.加载完成("浏览器0"))
  112. 跳出
  113. 如果结束
  114. 循环结束
  115. 网页.输入元素文本("浏览器0",编辑框.获得文本("编辑框1"),"id:kw")
  116. 网页.点击元素("浏览器0","id:su")
  117. 功能结束
  118. 功能 奇虎搜索()
  119. 网页.转到("浏览器0","www.so.com")
  120. 循环(真)
  121. 如果(网页.加载完成("浏览器0"))
  122. 跳出
  123. 如果结束
  124. 循环结束
  125. 网页.输入元素文本("浏览器0",编辑框.获得文本("编辑框1"),"id:input")
  126. 网页.点击元素("浏览器0","id:search-button")
  127. 功能结束
  128. 功能 必应搜索()
  129. 网页.转到("浏览器0","http://cn.bing.com/")
  130. 循环(真)
  131. 如果(网页.加载完成("浏览器0"))
  132. 跳出
  133. 如果结束
  134. 循环结束
  135. 网页.输入元素文本("浏览器0",编辑框.获得文本("编辑框1"),"id:sb_form_q")
  136. 网页.点击元素("浏览器0","id:sb_form_go")
  137. 功能结束
  138. 功能 有道搜索()
  139. 网页.转到("浏览器0","http://www.youdao.com/")
  140. 循环(真)
  141. 如果(网页.加载完成("浏览器0"))
  142. 跳出
  143. 如果结束
  144. 循环结束
  145. 网页.输入元素文本("浏览器0",编辑框.获得文本("编辑框1"),"id:query")
  146. 网页.点击元素("浏览器0","id:qb")
  147. 功能结束
  148. 功能 爱T搜索()
  149. 网页.转到("浏览器0","so.watyy.ml")
  150. 循环(真)
  151. 如果(网页.加载完成("浏览器0"))
  152. 跳出
  153. 如果结束
  154. 循环结束
  155. 网页.输入元素文本("浏览器0",编辑框.获得文本("编辑框1"),"id:kw")
  156. 网页.点击元素("浏览器0","id:su")
  157. 功能结束
  158. 功能 按钮5_点击()

  160. 网页.刷新("浏览器0")
  161. 功能结束
  162. 功能 按钮2_点击()
  163. 选择(下拉框.获得文本("下拉框2"))
  164. 条件 "百度搜索":
  165. 线程.开启("抽奖浏览器.百度搜索","")
  166. 条件 "360搜索":
  167. 线程.开启("抽奖浏览器.奇虎搜索","")
  168. 条件 "爱T搜索":
  169. 线程.开启("抽奖浏览器.爱T搜索","")
  170. 条件 "有道搜索":
  171. 线程.开启("抽奖浏览器.有道搜索","")
  172. 条件 "必应搜索":
  173. 线程.开启("抽奖浏览器.必应搜索","")
  174. 选择结束
  175. 功能结束
  176. 功能 按钮3_点击()
  177. 内容=辅助.读配置("0","0",路径&"\\光荣浏览器\\sz.ini")
  178. 如果(内容!="")
  179. 网页.转到("浏览器0",内容)
  180. 否则
  181. 网页.转到("浏览器0","http://www.hao123.com/")
  182. 如果结束
  183. 功能结束
  184. 功能 按钮8_点击()
  185. 子界面句柄=控件.打开窗口("扩展")
  186. 功能结束
  187. 功能 定时器0_时钟()
  188. 如果(网页.加载完成("浏览器0"))
  189. 进度条.设置进度("进度条0",100)
  190. 否则
  191. 进度条.设置进度("进度条0", 50)
  192. 按钮.设置文本("按钮15","正在载入")
  193. 如果(标签.获得文本("标签1")!="")
  194. 窗口.设置标题(句柄,"正在载入—光荣浏览器[已登录]"&标签.获得文本("标签1"))
  195. 否则
  196. 窗口.设置标题(句柄,"正在载入—光荣浏览器[未登录]")
  197. 如果结束
  198. 如果结束
  199. 时间=系统.时间(5)
  200. 标签.设置文本("标签0",时间)
  201. 功能结束
  202. 功能 按钮12_点击()
  203. 子界面句柄=控件.打开窗口("收藏夹")
  204. 功能结束
  205. 功能 按钮11_点击()
  206. 子界面句柄=控件.打开窗口("激活")
  207. 功能结束
  208. 功能 抽奖浏览器_关闭()
  209. 辅助.退出()
  210. 功能结束
  211. 功能 按钮6_点击()
  212. 子界面句柄=控件.打开窗口("用户中心")
  213. 功能结束
  214. 功能 按钮10_点击()
  215. 子界面句柄=控件.打开窗口("选项")
  216. 功能结束


  219. 功能 下拉框0_选择改变()
  220. 编辑框.设置文本("编辑框0",下拉框.获得文本("下拉框0"))
  221. 网页.转到("浏览器0",下拉框.获得文本("下拉框0"))
  222. 功能结束
  223. 功能 控件调整()
  224. 辅助.等待(5)
  225. 句柄,x,y,x1,y1
  226. 窗口.获取客户区大小(句柄,x,y,x1,y1)
  227. 控件.设置位置("浏览器0",3,29,x1-6,y1-30,0)
  228. 功能结束
  229. 功能 按钮7_点击()
  230. 是否成功=辅助.命令(编辑框.获得文本("编辑框0"),false)
  231. 功能结束
  232. 功能 复选框0_点击()

  234. 功能结束
  235. 功能 按钮9_点击()
  236. //这里添加你要执行的代码
  237. 子界面句柄=控件.打开窗口("登录")
  238. 功能结束
  239. 功能 换肤()
  240. var path = help.getrcpath("rc:")
  241. dllcall(path & "SkinH_EL.dll","int","SkinH_AttachEx","char *",path &"皮肤_永不言败.she","char *","")
  242. 功能结束

  244. 功能 标签5_点击()
  245. 控件.可见("标签5",假)
  246. 功能结束
  247. 功能 抽奖浏览器_消息过程(消息,w参数,l参数)
  248. 如果(消息==0005)
  249. 线程句柄=线程.开启("抽奖浏览器.ccc","")
  250. 如果结束
  251. 如果(消息==274)
  252. 如果(w参数==61488)
  253. 线程.关闭(线程句柄)
  254. 如果结束
  255. 如果结束
  256. 功能结束
  257. 功能 按钮13_点击()
  258. 辅助.消息框(路径)
  259. 是否成功=辅助.命令("c:\\Program Files\\Internet Explorer\\iexplore.exe "&编辑框.获得文本("编辑框0"),false)
  260. 功能结束


  263. 功能 按钮14_点击()

  265. 功能结束


  268. 功能 下拉框1_选择改变()
  269. var path = help.getrcpath("rc:")
  270. dllcall(path & "SkinH_EL.dll","int","SkinH_AttachEx","char *",path &下拉框.获得文本("下拉框1"),"char *","")
  271. 功能结束


  274. 功能 图片框0_左键单击()
  275. //这里添加你要执行的代码
  276. 如果(标签.获得文本("标签0")=="")
  277. 控件.打开窗口("登录")
  278. 否则
  279. 控件.打开窗口("用户中心")
  280. 如果结束
  281. 功能结束


  284. //消息路由功能


  287. 空间结束</P>
复制代码
下载源码：http://yunpan.cn/QUGwQD3w2HxI7  访问密码 c4af声明：本源码只供学习交流使用，禁止拿源码做坏事！不然你懂的
z1481281370版权所有 违者必究



作者: 1757663220    时间: 2013-12-4 20:27
hhhhh
作者: 菜鸟狙丶    时间: 2013-12-6 16:41
支持一下这贴，前排顶
作者: 美珍子    时间: 2013-12-10 17:56
这也太强大了吧。还能做出这样。
作者: z1481281370    时间: 2013-12-10 20:52
美珍子 发表于 2013-12-10 17:56
这也太强大了吧。还能做出这样。

TC本来就很强大
作者: 美珍子    时间: 2013-12-10 21:16
z1481281370 发表于 2013-12-10 20:52
TC本来就很强大

这个我相信~
作者: TCT    时间: 2014-10-15 09:26
源码不能下载了，能再传一下吗？
作者: daiweima    时间: 2015-1-31 15:44
网盘已失效，请重新分享
作者: z1481281370    时间: 2015-1-31 22:14
daiweima 发表于 2015-1-31 15:44
网盘已失效，请重新分享

好的
作者: laowantong    时间: 2015-4-9 00:55
网盘失效了
请再放一下
作者: xowan    时间: 2016-1-8 16:16
源码被删除了吗



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