- 空间 爱的色放
- 天使=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_热键()
- 线程句柄=线程.开启("爱的色放.主线程","")
- 功能结束
- 空间结束
复制代码
|