【有源码】滑块自由放大缩小-自动字库识字-收藏-刷新-自带大漠工具

ma3yu

1. 
   
2. 空间 爱的色放
   
3. 天使=com("ts.tssoft")
   
4. ts=com("ts.tssoft")
   
5. 变量 窗口句柄,线程句柄,ret
   
6. 功能 开始_点击()
   
7. 线程句柄=线程.开启("爱的色放.主线程","")
   
8. 功能结束
   
9. 功能 按钮0_点击()
   
10. 网页.转到("浏览器0",编辑框.获得文本("编辑框0"))
    
11. 功能结束
    
12. 功能 编辑框0_获得焦点()
    
13. 编辑框.设置文本("编辑框0","")
    
14. 功能结束
    
15. 功能 刷新_点击()
    
16. 网页.刷新("浏览器0")
    
17. 功能结束
    
18. 功能 收藏_点击()
    
19. 标题 = 网页.得到标题("浏览器0")
    
20. url = 网页.得到链接("浏览器0")
    
21. 下拉框.增加文本("下拉框0",标题&"|"&url)
    
22. 功能结束
    
23. 功能 下拉框0_选择改变()
    
24. 选项=下拉框.得到选项("下拉框0")
    
25. 内容=下拉框.获得内容("下拉框0",选项)
    
26. 查找=字符串.查找字符串(内容,"|")
    
27. 编辑框.设置文本("编辑框0",字符串.截取(内容,查找+1,888))
    
28. 网页.转到("浏览器0",编辑框.获得文本("编辑框0"))
    
29. 功能结束
    
30. 功能 初始化()
    
31. 下拉框.设置选项("下拉框0",0)
    
32. ret=help.regdll("rc:\\TSPlug.dll",true)
    
33. if(ret==true)
    
34. 否则
    
35. help.messagebox("注册不成功")
    
36. endif
    
37. 天使.SetPath(辅助.获取资源路径("rc:"))
    
38. 天使.SetDict(0,"test.txt")
    
39. 功能结束
    
40. 功能 滑块0_鼠标释放()
    
41. 变量 宽,高
    
42. 位置=滑块.得到位置("滑块0")
    
43. 宽=宽+位置*14
    
44. 高=高+位置*10
    
45. 窗口句柄=窗口.自身句柄()
    
46. 窗口.设置位置(窗口句柄,1,1)
    
47. 窗口.设置大小(窗口句柄,宽,高)
    
48. 控件.设置位置("浏览器0",1,30,宽-10,高-10,0)
    
49. 如果(宽<50&&高<50)
    
50. 窗口.设置大小(窗口句柄,50,50)
    
51. 如果结束
    
52. 功能结束
    
53. 功能 按钮1_点击()
    
54. 进程句柄=进程.打开("rc:\\大漠综合工具.exe")
    
55. 功能结束
    
56. 功能 热键0_热键()
    
57. 线程.关闭(线程句柄)
    
58. 辅助.退出()
    
59. 返回 真
    
60. 功能结束
    
61. 功能 主线程()
    
62. [attach]
    
63. 处理后的字符
    
64. hwnd1 = ts.FindWindow("#32770","爱的色放")
    
65. hwnds=系统.枚举(hwnd1,3)
    
66. hwnd=array[],A
    
67. 字符串.分割(hwnds,"|",hwnd)
    
68. 数组空间.大小(hwnd,A)
    
69. 遍历(i=0;i<A;i++)
    
70. 如果(字符串.查找字符串(窗口.类名(hwnd[i]),"MacromediaFlashPlayerActiveX")!=-1)
    
71. 返回值=天使.bindwindow(hwnd[i],"gdi","dx","dx",101)
    
72. 如果(返回值==0)
    
73. 辅助.消息框("绑定失败")
    
74. 否则
    
75. 辅助.消息框("绑定成功")
    
76. 如果结束
    
77. 跳出
    
78. 辅助.等待(1000)
    
79. 如果结束
    
80. 遍历结束
    
81. 循环 (真)
    
82. 识别到的字=天使.OcrEx(0,0,2000,2000,"ffff00-000000|ffffff-000000|b1986c-000000|ffffff-000000|ffcc00-000000",1.0)
    
83. 天使.OcrEx(0,0,2000,2000,编辑框.获得文本("编辑框0")&"|"&编辑框.获得文本("编辑框1"),1.0)
    
84. 如果(识别到的字!="")
    
85. 如果(字符串.查找字符串(识别到的字,"|")<0)
    
86. 字符串.分割(识别到的字,",",处理后的字符)
    
87. 鼠标.移动(处理后的字符[1]+10,处理后的字符[2]+10)
    
88. 鼠标.左键双击(1)
    
89. 否则
    
90. 处理前的字符,数量
    
91. 字符串.分割(识别到的字,"|",处理前的字符)
    
92. 数组空间.大小(处理前的字符,数量)
    
93. 遍历(ii=0;ii<数量;ii++)
    
94. 字符串.分割(处理前的字符[ii],",",处理后的字符)
    
95. 鼠标.移动(处理后的字符[1]+10,处理后的字符[2]+10)
    
96. 鼠标.左键双击(1)
    
97. 辅助.等待(1000)
    
98. 遍历结束
    
99. 如果结束
    
100. [/attach]
     
101. 否则
     
102. ret,intX,intY
     
103. ret=ts.FindPic(0,0,2000,2000,"对话.bmp|礼包.bmp","000000",0.9,0,intX,intY)
     
104. if(intX >= 0 && intY >= 0)
     
105. ts.MoveTo(intX,intY)
     
106. ts.LeftClick()
     
107. 如果结束
     
108. 如果结束
     
109. 循环结束
     
110. 返回 真
     
111. 功能结束
     
112. 功能 热键1_热键()
     
113. 线程句柄=线程.开启("爱的色放.主线程","")
     
114. 功能结束
     
115. 空间结束

复制代码

ma3yu

谢谢 宝宝大神的支持=======我的成长需要大家的支持和帮助