按键精灵10个坐标随机选5个坐标左键点击 最好是后台点击？

Dim 数组(9)
数组(0) = "624,484"
数组(1) = "637,515"
//多余素组自己补充
字符串 = Left(高级洗牌("0123456789", 1), 5)
TracePrint 字符串
For 取数 = 1 To 5
i = mid(字符串, 取数, 1)
TracePrint i
分割 = Split(数组(i), ",")
MoveTo cint(分割(0)), cint(分割(1))
Delay 10
LeftClick 1
Delay 20
Next
Function 高级洗牌(字符串内容, 每个字符串位数)
Dim 数量, i, j, temp
数量 = Len(字符串内容) / 每个字符串位数
Redim tt(数量)
For i = 0 To 数量 - 1
tt(i) = Mid(字符串内容, i * 每个字符串位数 + 1, 每个字符串位数)
Next
Randomize
For j = 0 To 数量 - 1
i = Int((数量 - 1) * Rnd + 1)
temp = tt(i) : tt(i) = tt(j) : tt(j) = temp
Next
高级洗牌 = Join(tt,"")
End Function