【有源码】滑块自由放大缩小-自动字库识字-收藏-刷新-自带大漠工具 - TC官方合作论坛

空间爱的色放
天使=com("ts.tssoft")
ts=com("ts.tssoft")
变量窗口句柄,线程句柄,ret
功能开始_点击()
线程句柄=线程.开启("爱的色放.主线程","")
功能结束
功能按钮0_点击()
网页.转到("浏览器0",编辑框.获得文本("编辑框0"))
功能结束
功能编辑框0_获得焦点()
编辑框.设置文本("编辑框0","")
功能结束
功能刷新_点击()
网页.刷新("浏览器0")
功能结束
功能收藏_点击()
标题 = 网页.得到标题("浏览器0")
url = 网页.得到链接("浏览器0")
下拉框.增加文本("下拉框0",标题&"|"&url)
功能结束
功能下拉框0_选择改变()
选项=下拉框.得到选项("下拉框0")
内容=下拉框.获得内容("下拉框0",选项)
查找=字符串.查找字符串(内容,"|")
编辑框.设置文本("编辑框0",字符串.截取(内容,查找+1,888))
网页.转到("浏览器0",编辑框.获得文本("编辑框0"))
功能结束
功能初始化()
下拉框.设置选项("下拉框0",0)
ret=help.regdll("rc:\\TSPlug.dll",true)
if(ret==true)
否则
help.messagebox("注册不成功")
endif
天使.SetPath(辅助.获取资源路径("rc:"))
天使.SetDict(0,"test.txt")
功能结束
功能滑块0_鼠标释放()
变量宽,高
位置=滑块.得到位置("滑块0")
宽=宽+位置*14
高=高+位置*10
窗口句柄=窗口.自身句柄()
窗口.设置位置(窗口句柄,1,1)
窗口.设置大小(窗口句柄,宽,高)
控件.设置位置("浏览器0",1,30,宽-10,高-10,0)
如果(宽<50&&高<50)
窗口.设置大小(窗口句柄,50,50)
如果结束
功能结束
功能按钮1_点击()
进程句柄=进程.打开("rc:\\大漠综合工具.exe")
功能结束
功能热键0_热键()
线程.关闭(线程句柄)
辅助.退出()
返回真
功能结束
功能主线程()
[attach]
处理后的字符
hwnd1 = ts.FindWindow("#32770","爱的色放")
hwnds=系统.枚举(hwnd1,3)
hwnd=array[],A
字符串.分割(hwnds,"|",hwnd)
数组空间.大小(hwnd,A)
遍历(i=0;i<A;i++)
如果(字符串.查找字符串(窗口.类名(hwnd[i]),"MacromediaFlashPlayerActiveX")!=-1)
返回值=天使.bindwindow(hwnd[i],"gdi","dx","dx",101)
如果(返回值==0)
辅助.消息框("绑定失败")
否则
辅助.消息框("绑定成功")
如果结束
跳出
辅助.等待(1000)
如果结束
遍历结束
循环 (真)
识别到的字=天使.OcrEx(0,0,2000,2000,"ffff00-000000|ffffff-000000|b1986c-000000|ffffff-000000|ffcc00-000000",1.0)
天使.OcrEx(0,0,2000,2000,编辑框.获得文本("编辑框0")&"|"&编辑框.获得文本("编辑框1"),1.0)
如果(识别到的字!="")
如果(字符串.查找字符串(识别到的字,"|")<0)
字符串.分割(识别到的字,",",处理后的字符)
鼠标.移动(处理后的字符[1]+10,处理后的字符[2]+10)
鼠标.左键双击(1)
否则
处理前的字符,数量
字符串.分割(识别到的字,"|",处理前的字符)
数组空间.大小(处理前的字符,数量)
遍历(ii=0;ii<数量;ii++)
字符串.分割(处理前的字符[ii],",",处理后的字符)
鼠标.移动(处理后的字符[1]+10,处理后的字符[2]+10)
鼠标.左键双击(1)
辅助.等待(1000)
遍历结束
如果结束
[/attach]
否则
ret,intX,intY
ret=ts.FindPic(0,0,2000,2000,"对话.bmp|礼包.bmp","000000",0.9,0,intX,intY)
if(intX >= 0 && intY >= 0)
ts.MoveTo(intX,intY)
ts.LeftClick()
如果结束
如果结束
循环结束
返回真
功能结束
功能热键1_热键()
线程句柄=线程.开启("爱的色放.主线程","")
功能结束
空间结束

复制代码