按键精灵_范围内随机点坐标

dim Range_xy = Array(1040, 220, 1260, 300)//正方形：正左上角=1040,220 ,正右下角=1260,300

Function rand_tap(Xiao, Da) //取范围随机数

rand_tap = Int((Da - Xiao + 1) * Rnd() + Xiao)

End Function

Function Range_xy_tap(arr) //范围内随机点击

Dim Range_xy_x=rand_tap(arr(0), arr(2))
Dim Range_xy_y=rand_tap(arr(1), arr(3))
//Tap Range_xy_x, Range_xy_y
TracePrint Range_xy_x, Range_xy_y
End Function

For 50
Call Range_xy_tap(Range_xy)
  Delay 500
Next