Dim intx,inty,红包,被取,intX1,intY1,已存,intX2, intY2
Do
红包 = FindPic(0, 0, 0, 0, "Attachment:红包01.png", "000000", 0, 0.9, intX, intY)
被取 = FindPic(0, 0, 0, 0, "Attachment:红包领取02.png", "000000", 0, 0.9, intX1, intY1)
已存 = FindPic(64,441,258,509, "Attachment:红包已存.png", "000000", 0, 0.9, intX2, intY2)

If 红包 > -1 Then 
TracePrint "找到了红包"
Tap intx, inty
Delay 1000
Tap 636,227 //点击关闭窗口
Delay 800
End If

If 已存 > -1 Then 
TracePrint "领取-返回主页"
Delay 500
Tap 634,226 //点击关闭窗口
End If

If 被取 > -1 Then 
TracePrint "已被领取-返回主页"
Delay 500
Tap 636,230 //点击关闭窗口
End If
Loop

发表评论

后才能评论