|
|
发表于 2020-4-15 14:23:28
|
显示全部楼层
空间 江湖
变量 线程句柄,ts=com("ts.tssoft"),窗口标题=数组[3],h=0,x=1
变量 窗口数组=数组[3],ts数组=数组[3],任务数组=数组[3],检测数组=数组[3],su=0,小标题
功能 开始_点击()
功能结束
//退出按钮_点击操作
功能 退出_点击()
辅助.退出()
功能结束
//点击关闭_执行操作
功能 江湖_关闭()
变量 长度,i
数组空间.大小(窗口数组,长度)
调试输出("热键2停止窗口数组i-"&窗口数组[i])
如果(长度>0)
遍历(i=0;i<长度;i++)
如果(任务数组[i]>0)
//ts数组[i].UnBindWindow()
线程.关闭(任务数组[i])
线程.关闭(检测数组[i])
如果结束
遍历结束
如果结束
//数组空间.清空(窗口标题)
数组空间.清空(ts数组)
数组空间.清空(窗口数组)
su=0
辅助.退出()
功能结束
//空间结束语句
功能 初始化()
//这里添加你要执行的代码
是否成功=辅助.注册插件("rc:\\TSPlug.dll",真)
调试输出(是否成功)
如果(!是否成功)
辅助.消息框("插件注册失败")
辅助.退出()
如果结束
是否存在=文件.是否存在("c:\\jhaa")
如果(是否存在)
调试输出("文件存在")
否则
文件.创建文件夹("c:\\jhaa")
调试输出("jh-aa文件不存在-自动创建")
如果结束
江湖.初始化全局变量()
功能结束
功能 热键0_启动_热键()
窗口句柄
窗口句柄=江湖.获取句柄()
如果(窗口句柄>0)
江湖.窗口绑定(窗口句柄)
如果结束
//这里添加你要执行的代码
功能结束
功能 热键1_暂停_热键()
变量 窗口句柄,数组下标,长度
ts=com("ts.tssoft")
窗口句柄 = ts.GetForegroundWindow()
数组下标=数组空间.查找(窗口数组,窗口句柄)
调试输出("暂停:"&窗口句柄)
如果(数组下标!=-1)
//小标题=ts数组[数组下标].SetWindowText(窗口句柄,窗口标题[数组下标])
//ts数组[数组下标].UnBindWindow()
江湖.删除数组指定内容(窗口数组,数组下标)
江湖.删除数组指定内容(窗口标题,数组下标)
线程.关闭(任务数组[数组下标])
线程.关闭(检测数组[数组下标])
su=数组下标
否则
如果结束
功能结束
功能 删除数组指定内容(&数组名,下标)
数组名[下标]=空
功能结束
功能 热键2_停止_热键()
变量 长度,i
数组空间.大小(窗口数组,长度)
调试输出("热键2停止窗口数组i-"&长度)
调试输出("热键2停止窗口数组i-"&窗口数组[i])
如果(长度>0)
遍历(i=0;i<长度;i++)
如果(任务数组[i]>0)
//小标题=ts数组[i].SetWindowText(窗口数组[i],窗口标题[i])
//ts数组[i].UnBindWindow()
线程.关闭(任务数组[i])
线程.关闭(检测数组[i])
如果结束
遍历结束
如果结束
//数组空间.清空(窗口标题)
数组空间.清空(ts数组)
数组空间.清空(窗口数组)
su=0
功能结束
//-------------------------------------获取句柄----------------------------
功能 获取句柄()
窗口句柄,数组下标
ts=com("ts.tssoft")
窗口句柄 = ts.GetForegroundWindow()
//窗口标题 = ts.GetWindowTitle(窗口句柄)
如果(窗口句柄>0)
调试输出("获取句柄:"&窗口句柄)
窗口标题[su]= ts.GetWindowTitle(窗口句柄)
数组下标=数组空间.查找(窗口数组,窗口句柄)
如果(数组下标==-1)
窗口数组[su]=窗口句柄
返回 窗口句柄
否则
辅助.消息框("请不要重复启动")
返回 -1
如果结束
否则
返回 -1
如果结束
功能结束
//--------------------------------------------------------------------------------
//-----------------------------------------主线程-----------------------------------------------
功能 窗口绑定(窗口句柄)
下标,ret,intX,intY,ret1
ts数组[su]=com("ts.tssoft")
ts数组[su].SetPath(help.getrcpath("rc:"))
path=ts.GetPath()
下标=数组空间.查找(窗口数组,窗口句柄)
内容=下拉框.获得文本("下拉框0")
选择(内容)
条件 "任务模式":
ret=ts数组[su].BindWindow(窗口句柄,"normal","normal","normal",1)//前台绑定模式
如果(ret==1)
任务数组[su]=线程.开启("江湖.任务数组",下标)
否则
辅助.消息框("窗口绑定-错误")
如果结束
条件 "采矿模式":
选择结束
功能结束
//------------------------------------任务数组(下标)-------------------------------------------------
功能 任务数组(下标)
ret,intX,intY
ts数组[下标]=com("ts.tssoft")
ts数组[下标].SetPath(help.getrcpath("rc:"))
path=ts.GetPath()
ret=ts数组[下标].BindWindow(窗口数组[下标],"normal","normal","normal",1)
江湖.启动设置(下标)
内容=下拉框.获得文本("下拉框1")
选择(内容)
条件 "主线任务":
调试输出("主线任务")
江湖.检测(下标,窗口数组[下标])
条件 "循环采矿":
调试输出("循环采矿")
江湖.循环采矿(下标)
选择结束
功能结束
功能 检测(下标,窗口句柄)
循环(x==1)
intX,intY,ret
调试输出("227")
ret=ts数组[下标].FindPic(400,400,800,700,"w.bmp|ww.bmp","000000",0.9,0,intX,intY)
如果(ret>=0)
调试输出("230")
江湖.鼠标移动点击(下标,intX,intY)
否则
if(ts数组[下标].FindPic(260,360,800,700,"www3.bmp","000000",0.9,0,intX,intY) >= 0)
调试输出("232")
ts数组[下标].MoveTo(500,420)
辅助.等待(500)
ts数组[下标].LeftClick()
如果结束
如果(ts数组[下标].FindPic(400,400,800,700,"w.bmp|ww.bmp","000000",0.9,0,intX,intY)>=0)
江湖.鼠标移动点击(下标,intX,intY)
否则
ret=ts数组[下标].FindPic(720,190,950,380,"剧情.bmp|剧情2.bmp|剧情3.bmp|剧情4.bmp","000000",0.9,0,intX,intY)
如果(ret>=0)
调试输出(intX&"--"&intY)
ret=ts数组[下标].MoveTo(intX+80,intY+2)
辅助.等待(1000)
ts数组[下标].LeftClick()
ts数组[下标].LeftDoubleClick()
辅助.等待(5000)
如果结束
如果结束
如果(ts数组[下标].FindPic(400,400,800,700,"esc.bmp|esc2.bmp|esc3.bmp","000000",1,0,intX,intY)>=0)
调试输出("esc"&intX&"-"&intY)
辅助.等待(500)
ts.KeyPressChar("esc")
辅助.等待(500)
如果结束
调试输出("248")
ret=ts数组[下标].FindPic(397,187,634,272,"武器.bmp|武器2.bmp","000000",0.9,0,intX,intY)
如果(ret>=0)
调试输出("250职业选择")
江湖.职业选择(下标)
如果结束
ret=ts数组[下标].FindPic(397,187,634,272,"选择.bmp|选择2.bmp","000000",0.9,0,intX,intY)
如果(ret>=0)
调试输出("250职业选择")
江湖.职业选择(下标)
如果结束
ret=ts数组[下标].FindPic(375,236,623,346,"国家.bmp|国家2.bmp","000000",0.9,0,intX,intY)
调试输出("302国家选择"&ret)
如果(ret>=0)
调试输出("303国家选择")
江湖.国家选择(下标)
如果结束
ret=ts数组[下标].FindPic(0,667,1022,765,"esc.bmp|esc2.bmp|esc3.bmp","000000",0.8,0,intX,intY)
调试输出("303-Esc==")
如果(ret>=0)
调试输出("Esc")
int ret=ts数组[下标].KeyPress(27)
江湖.鼠标移动点击(下标,intX,intY)
如果结束
color=ts.GetColor(577,682)
if(color== "000000")
调试输出("黑")
ts数组[下标].KeyPressChar("Esc")
endif
辅助.等待(500)
ret=ts数组[下标].FindPic(0,0,1000,700,"国领.bmp|国领2.bmp","000000",0.9,0,intX,intY)
调试输出("请点击"&ret)
如果(ret>=0)
调试输出("350")
江湖.鼠标移动点击(下标,550,410)
如果结束
辅助.等待(500)
ret=ts数组[下标].FindPic(400,400,800,700,"开始.bmp|开始2.bmp","000000",0.9,0,intX,intY)
如果(ret>=0)
调试输出("269")
江湖.鼠标移动点击(下标,intX,intY)
如果结束
ret=ts数组[下标].FindPic(385,193,633,288,"幸运.bmp|幸运2.bmp","000000",0.9,0,intX,intY)
如果(ret>=0)
调试输出("269")
江湖.鼠标移动点击(下标,508,530)
江湖.鼠标移动点击(下标,508,550)
如果结束
ret=ts数组[下标].FindPic(400,400,800,700,"稍后.bmp|稍后2.bmp","000000",0.9,0,intX,intY)
如果(ret>=0)
调试输出("275")
江湖.鼠标移动点击(下标,intX,intY)
如果结束
ret=ts数组[下标].FindPic(400,400,800,700,"确定a.bmp|确定b.bmp","000000",0.9,0,intX,intY)
如果(ret>=0)
调试输出("350")
江湖.鼠标移动点击(下标,intX,intY)
如果结束
ret=ts数组[下标].FindPic(0,0,1000,700,"请点击.bmp|请点击2.bmp|请点击3.bmp|请点击4.bmp","000000",0.8,0,intX,intY)
调试输出("请点击"&ret)
如果(ret>=0)
调试输出("350")
江湖.鼠标移动点击(下标,intX+5,intY+20)
如果结束
ret=ts数组[下标].FindPic(0,0,1000,700,"种植.bmp|种植2.bmp","000000",0.9,0,intX,intY)
调试输出("请点击"&ret)
如果(ret>=0)
调试输出("350")
江湖.鼠标移动点击(下标,500,500)
如果结束
ret=ts数组[下标].FindPic(0,0,1000,700,"知道了.bmp|知道了2.bmp","000000",0.8,0,intX,intY)
调试输出("请点击"&ret)
如果(ret>=0)
调试输出("350")
江湖.鼠标移动点击(下标,intX+2,intY+2)
如果结束
ret=ts数组[下标].FindPic(0,0,1000,700,"打扰.bmp|打扰2.bmp","000000",0.8,0,intX,intY)
调试输出("请点击"&ret)
如果(ret>=0)
调试输出("350")
江湖.鼠标移动点击(下标,intX+2,intY+2)
辅助.等待(10000)
如果结束
ret=ts数组[下标].FindPic(0,0,1000,700,"酒.bmp|酒2.bmp","000000",0.9,0,intX,intY)
调试输出("请点击"&ret)
如果(ret>=0)
调试输出("350")
江湖.鼠标移动点击(下标,intX+1,intY+1)
辅助.等待(130000)
如果结束
ret=ts数组[下标].FindPic(0,0,1000,700,"水壶.bmp|水壶2.bmp","000000",0.9,0,intX,intY)
调试输出("请点击"&ret)
如果(ret>=0)
调试输出("350")
辅助.等待(1000)
江湖.鼠标移动点击(下标,intX+1,intY+1)
辅助.等待(130000)
如果结束
标记1:
ret=ts数组[下标].FindPic(0,0,1000,700,"中.bmp","000000",0.9,0,intX,intY)
调试输出("请点击"&ret)
如果(ret>=0)
调试输出("采集中" )
辅助.等待(5000)
跳转 标记1
如果结束
如果结束
调试输出("279")
循环结束
功能结束
功能 鼠标移动点击(下标,intX,intY)
ts数组[下标].MoveTo(intX+2,intY+2)
辅助.等待(500)
ts数组[下标].LeftClick()
辅助.等待(500)
功能 初始化全局变量()
辅助.写配置("全局变量","检测",1,"c:\\jhaa\\bl.ini")
啊=辅助.读配置("全局变量","检测","c:\\jhaa\\bl.ini")
调试输出(啊)
功能结束
功能 启动设置(下标)
intX,intY
ret=ts数组[下标].FindPic(1,615,86,645,"选.bmp","000000",0.9,0,intX,intY)
调试输出("喊话--"&ret)
如果(ret==0)
ret=ts数组[下标].MoveTo(9,630)
辅助.等待(500)
ret=ts数组[下标].LeftClick()
如果结束
功能结束
功能 国家选择(下标)
国家 =下拉框.获得文本("下拉框3")
选择(国家)
条件 "楚":
江湖.鼠标移动点击(下标,240,400)
江湖.鼠标移动点击(下标,500,455)
条件 "秦":
江湖.鼠标移动点击(下标,330,400)
江湖.鼠标移动点击(下标,500,455)
条件 "汉":
江湖.鼠标移动点击(下标,420,400)
江湖.鼠标移动点击(下标,500,455)
条件 "唐":
江湖.鼠标移动点击(下标,510,400)
江湖.鼠标移动点击(下标,500,455)
条件 "齐":
江湖.鼠标移动点击(下标,600,400)
江湖.鼠标移动点击(下标,500,455)
条件 "宋":
江湖.鼠标移动点击(下标,690,400)
江湖.鼠标移动点击(下标,500,455)
条件 "随机":
江湖.鼠标移动点击(下标,780,400)
江湖.鼠标移动点击(下标,500,455)
选择结束
功能结束
功能 职业选择(下标)
职业 =下拉框.获得文本("下拉框2")
选择(职业)
条件 "神剑":
江湖.鼠标移动点击(下标,300,450)
江湖.鼠标移动点击(下标,500,530)
条件 "羽扇":
江湖.鼠标移动点击(下标,450,450)
江湖.鼠标移动点击(下标,500,530)
条件 "灵弩":
江湖.鼠标移动点击(下标,600,450)
江湖.鼠标移动点击(下标,500,530)
条件 "琵琶":
江湖.鼠标移动点击(下标,750,450)
江湖.鼠标移动点击(下标,500,530)
选择结束
功能结束
空间结束 |
|
[复制链接]
/2 
