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