Dim 时间1,时间2
Do
Dim X, Y
FindPic 0, 0, 0, 0, "Attachment:oo.png", "000000", 0, 0.9, X, Y
If X > -1 And Y > -1 Then
时间1 = Time()
While 时间2-时间1<=5
Tap 361, 1126 //这里怎么写连续点击5秒啊
时间2 = Time()
Delay 50
Wend
Delay 50
Exit Do
End If
Loop
连续点击还是按着不放
连续点击你直接写个循环 5次 然后把点击代码放进循环内即可