RT，求个大神帮我过下检测，能帮我优化最好
i=1
Do
FindPic 0,13,449,695,"D:\外挂历史版本\找图\操作完成.bmp",1,intX,intY
If intX > 0 And intY > 0 Then
FindPic 0,13,449,695,"D:\外挂历史版本\找图\刷图完成.bmp",1,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 1000
LeftClick 1
Delay 1000
FindPic 0,13,449,695,"D:\外挂历史版本\找图\次数选择.bmp",1,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 1000
LeftClick 1
KeyPress "BackSpace", 1
KeyPress "BackSpace", 1
KeyPress "1", 1
Delay 3000
KeyPress "Num 4", 1
End If
End If
FindPic 0,13,449,695,"D:\外挂历史版本\找图\进图完成.bmp",1,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 1000
LeftClick 1
Delay 1000
FindPic 0,13,449,695,"D:\外挂历史版本\找图\次数选择.bmp",1,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 1000
LeftClick 1
KeyPress "BackSpace", 1
KeyPress "BackSpace", 1
KeyPress "1", 1
KeyPress "9", 1
Delay 3000
KeyPress "Num 4", 1
End If
i=i+1
End If
End If
If i = 7 Then
Exit do
End If
Loop
KeyPress "End", 1