安卓按键精灵–多个坐标点随机(重复/不重复)点击

‘–方法一把数据存在数组里

Dim val,Arr = Array(Array(90, 924) ,Array(266, 925), Array(455, 930),Array(96, 1022), Array(261, 1021) ,Array(442, 1023) ,Array(89, 1113 ),Array(265, 1120), Array(439, 1119), Array(439,1119)) 
For 20
    val = Arr(Int(Rnd()*9))
    'Tap Arr(0),Arr(1)
    TracePrint  val(0), val(1)
    Delay 50
Next

 

方法二，

Dim 帐号1=Array(271,76)
Dim 帐号2=Array(498,239)
Dim 帐号3=Array(470,306)
Dim 帐号4=Array(396,385)
Dim 帐号5=Array(440,438)
Dim 帐号6=Array(271,76)
Randomize
dim a = int((10 + 1 - 1) * rnd() + 1)
Select Case a
Case 1
Tap 帐号1(0), 帐号1(1)
Case 2
Tap 帐号2(0), 帐号2(1)
Case 3
Tap 帐号3(0), 帐号3(1)
Case 4
Tap 帐号4(0), 帐号4(1)
End Select