挺麻烦的,我测试看看。
图1或图2是出现后一直存在还是只出现一瞬间然后消失?
算了,我直接做个通用的,懒得管。终于做完了,这玩意真麻烦,你试试看能用不?
Do
FindPic 1000, 700, 1024, 768, "Attachment:\1.bmp", 0.9, A1X, A1Y
FindPic 400, 0, 500, 70, "Attachment:\2.bmp", 0.9, A2X, A2Y
FindPic 800, 50, 1000, 160, "Attachment:\3.bmp", 0.9, A3X, A3Y
FindPic 500, 0, 600, 90, "Attachment:\6.bmp", 0.9, A6X, A6Y
If A1X > 0 And A1Y > 0 Then
do
LeftClick 1
FindPic 800, 50, 1000, 160, "Attachment:\3.bmp", 0.9, A3X, A3Y
FindPic 500, 0, 600, 90, "Attachment:\6.bmp", 0.9, A6X, A6Y
If A3X > 0 and A3Y > 0
Call 图3
Exit Do
ElseIf A6X > 0 and A6Y > 0 Then
Delay 30000
Exit Do
End If
Loop
ElseIf A2X > 0 and A2Y > 0
do
LeftClick 1
FindPic 800, 50, 1000, 160, "Attachment:\3.bmp", 0.9, A3X, A3Y
FindPic 500, 0, 600, 90, "Attachment:\6.bmp", 0.9, A6X, A6Y
If A3X > 0 and A3Y > 0
Call 图3
Exit Do
ElseIf A6X > 0 and A6Y > 0 Then
Delay 30000
Exit Do
End If
Loop
ElseIf A3X > 0 and A3Y > 0
Call 图3
ElseIf A6X > 0 and A6Y > 0 Then
Delay 30000
End If
A1X = 0
A2X = 0
A3X = 0
A4X = 0
A5X = 0
A6X = 0
Loop
Sub 图3()
MoveTo A3X, A3Y
LeftClick 1
FindPic 600, 50, 800, 160, "Attachment:\4.bmp", 0.9, A4X, A4Y
FindPic 450, 50, 600, 160, "Attachment:\5.bmp", 0.9, A5X, A5Y
FindPic 500, 0, 600, 90, "Attachment:\6.bmp", 0.9, A6X, A6Y
If A4X > 0 and A4Y > 0 Then
MoveTo A4X, A4Y
RightClick 1
MoveR 5, 5
LeftClick 1
End If
If A5X > 0 and A5Y > 0 Then
KeyPress "Num 6", 1
End If
If A6X > 0 and A6Y > 0 Then
Delay 30000
End If
End Sub