Dim operatedPositions(100) // 假设最多记录100个位置 Dim positionCount = 0
Function IsPositionOperated(x, y) For i = 0 To positionCount - 1 If operatedPositions(i).x = x And operatedPositions(i).y = y Then Return True End If Next Return False End Function
Function AddOperatedPosition(x, y) If positionCount operatedPositions(positionCount).x = x operatedPositions(positionCount).y = y positionCount = positionCount + 1 End If End Function
// 使用示例 x = 100 y = 200 If Not IsPositionOperated(x, y) Then // 执行点击操作 Tap x, y // 记录已操作位置 AddOperatedPosition(x, y) End If
我太笨了 还是不会 麻烦老哥给个代码 或者指点一下,实际上不单单是4个图 每次有10-15个相同的图 并且下一页需要往下翻才可以找到相同的图。
Dim operatedPositions(100) // 假设最多记录100个位置
Dim positionCount = 0
Function IsPositionOperated(x, y)
For i = 0 To positionCount - 1
If operatedPositions(i).x = x And operatedPositions(i).y = y Then
Return True
End If
Next
Return False
End Function
Function AddOperatedPosition(x, y)
If positionCount operatedPositions(positionCount).x = x
operatedPositions(positionCount).y = y
positionCount = positionCount + 1
End If
End Function
// 使用示例
x = 100
y = 200
If Not IsPositionOperated(x, y) Then
// 执行点击操作
Tap x, y
// 记录已操作位置
AddOperatedPosition(x, y)
End If
不过还是看你第一个图到底是啥,网页用 selenium 或者 DrissionPage 好处理,安卓用 autojsx