Goto 窗口二 End Sub Sub 窗口二采集 //-------------------------------------------------------------------------------------------- FindPic Ux,Uy+160,Ux+800,Uy+600,"E:\按键精灵\按键精灵8\QQ寻仙图\"&C2&".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寻仙图\"&B2&".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寻仙图\"&C2&".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 Goto 窗口三 End Sub Sub 窗口三采集 //-------------------------------------------------------------------------------------------- FindPic Ux,Uy+160,Ux+800,Uy+600,"E:\按键精灵\按键精灵8\QQ寻仙图\"&C3&".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寻仙图\"&B3&".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寻仙图\"&C3&".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 Goto 窗口一 End Sub Sub 清除异常窗口 Delay 1000