Sub 练功页()//练功40,610:左一30,485\左二155,550
c = a +40
d = b + 610
TracePrint a & "," & b
Call 移动点击()//移动过去点击
Delay 延迟1//通过练功位三的图,找图判断是否在当前页面
Call 找图(myArray(0),myArray(1),myArray(2),myArray(3),"D:\按键图片\","练功位.bmp",0.9)//找图确定在当前页
If intX > 0 Then
c = a + 30
d = b + 485//计算第一练功位的相对坐标,并单击
Call 移动点击()
Delay 延迟1
intX = 0
Do
Call 找图(myArray(0), myArray(1), myArray(2), myArray(3), "D:\按键图片\", "练.bmp", 0.9)
If intX > 0 Then
Call 找图点击()
Exit Do
Else
Call 连续点击()
TracePrint "点击中"
End If
Delay 延迟1
Loop
Else
TracePrint "重新执行练功页"
Delay 5000
Call 练功页()
End If
Delay 延迟1
End Sub