求一个王者荣耀的刷副本的代码。
//代码思路 截需要点的图放到附件 找到那个点那个 多线程更快速更便捷
Dim 线程1,线程2,线程3
线程1 = Thread.Start(kaishi1)
线程2 = Thread.Start(kaishi2)
线程3 = Thread.Start(kaishi3)
Do
Delay 1000
Loop
Sub kaishi1(var1,var2)
Rem 标记
Dim x, y
FindPic 0, 0, 0, 0, "Attachment:截图2.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
FindPic 0, 0, 0, 0, "Attachment:截图3.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
FindPic 0, 0, 0, 0, "Attachment:截图4.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
FindPic 0, 0, 0, 0, "Attachment:截图5.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
FindPic 0, 0, 0, 0, "Attachment:截图6.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
FindPic 0, 0, 0, 0, "Attachment:截图7.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
FindPic 0, 0, 0, 0, "Attachment:截图8.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
FindPic 0, 0, 0, 0, "Attachment:截图9.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
FindPic 0, 0, 0, 0, "Attachment:截图10.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
FindPic 0, 0, 0, 0, "Attachment:截图11.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
Goto 标记
End Sub
Sub kaishi2(var1,var2)
Rem 标记
Dim x, y
FindPic 0, 0, 0, 0, "Attachment:截图2.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
FindPic 0, 0, 0, 0, "Attachment:截图3.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
FindPic 0, 0, 0, 0, "Attachment:截图4.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
FindPic 0, 0, 0, 0, "Attachment:截图5.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
FindPic 0, 0, 0, 0, "Attachment:截图6.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
FindPic 0, 0, 0, 0, "Attachment:截图7.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
FindPic 0, 0, 0, 0, "Attachment:截图9.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
FindPic 0, 0, 0, 0, "Attachment:截图10.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
FindPic 0, 0, 0, 0, "Attachment:截图11.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
Goto 标记
End Sub
Sub kaishi3(var1,var2)
Rem 标记
Dim x, y
FindPic 0, 0, 0, 0, "Attachment:截图2.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
FindPic 0, 0, 0, 0, "Attachment:截图3.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
FindPic 0, 0, 0, 0, "Attachment:截图4.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
FindPic 0, 0, 0, 0, "Attachment:截图5.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
FindPic 0, 0, 0, 0, "Attachment:截图6.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
FindPic 0, 0, 0, 0, "Attachment:截图7.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
FindPic 0, 0, 0, 0, "Attachment:截图9.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
FindPic 0, 0, 0, 0, "Attachment:截图10.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
FindPic 0, 0, 0, 0, "Attachment:截图11.png", "000000", 0, 0.9, x, y
If x > -1 And y > -1 Then
Tap x, y
End If
Goto 标记
End Sub
附件图片示例
13138