//说明正在采集中,跳转“选择窗口三” Delay YS1 Goto 窗口三 Else //说明采集中断,调用子程序:窗口二采集 Call 窗口二采集 End If //=======================================窗口三============================================ Rem 窗口三 Delay 1500 //查找窗口一的句柄 HwndC = C //激活窗口 Call Plugin.Window.Active(HwndC) Delay 2000 //得到窗口句柄的客户区大小 sRect = Plugin.Window.GetClientRect(HwndC) dim MyArrayC MyArrayC = Split(sRect, "|") //下面这句将字符串转换成数值 Ux = Clng(MyArrayC(0)) Uy = Clng(MyArrayC(1)) Call 清除异常窗口 Call 确认战斗状态 Call 确认人物死亡 Rem 窗口三是否受伤 //下面这句是:在窗口三的查找受伤 FindPic Ux,Uy,Ux+800,Uy+600,"E:\按键精灵\按键精灵8\QQ寻仙图\采集\轻伤.bmp",0.8,intX,intY //下面这句是:受伤了则 If intX > 0 And intY > 0 Then //在这里可以添加找到坐标后,需要做的处理。 Call 换线疗伤 Else Goto 寻找窗口三的采集依据 End If Rem 寻找窗口三的采集依据 FindPic Ux,Uy+160,Ux+800,Uy+600,"E:\按键精灵\按键精灵8\QQ寻仙图\采集的依据.bmp",0.7,intX,intY //在左边窗口寻找采集的依据 If intX > 0 And intY > 0 Then //说明正在采集中,跳转“选择窗口一” Delay YS1 Goto 窗口一 Else //说明采集中断,调用子程序:窗口三采集 Call 窗口三采集 End If Sub 窗口一采集 //-------------------------------------------------------------------------------------------- FindPic Ux,Uy+160,Ux+800,Uy+600,"E:\按键精灵\按键精灵8\QQ寻仙图\"&C1&".bmp",0.7,intX,intY //以下是条件判断;如果返回的坐标大于0,那么就说明找到了。 If intX > 0 And intY > 0 Then //在这里可以添加找到坐标后,需要做的处理。 MoveTo intX + 5, intY + 5 Delay 900 LeftClick 1 Delay 900 MoveTo Ux+90, Uy+300 End If //-------------------------------------------------------------------------------------------- FindPic Ux,Uy+160,Ux+800,Uy+600,"E:\按键精灵\按键精灵8\QQ寻仙图\"&B1&".bmp",0.65,intX,intY //以下是条件判断;如果返回的坐标大于0,那么就说明找到了。 If intX > 0 And intY > 0 Then //在这里可以添加找到坐标后,需要做的处理。 MoveTo intX+8,intY+8 Delay 900 LeftClick 1 Delay 900 End If //-------------------------------------------------------------------------------------------- FindPic Ux,Uy+160,Ux+800,Uy+600,"E:\按键精灵\按键精灵8\QQ寻仙图\"&C1&".bmp",0.7,intX,intY //以下是条件判断;如果返回的坐标大于0,那么就说明找到了。 If intX > 0 And intY > 0 Then //在这里可以添加找到坐标后,需要做的处理。 MoveTo intX + 5, intY + 5 Delay 900 LeftClick 1 Delay 900 MoveTo Ux+90, Uy+300 End If