安卓按键精灵-触屏划动(划动距离)滑动屏幕

Sub 触屏划动(数组特征)
Dim arr(),n
arr=数组特征
n=Int(10*Rnd())'给划动操作增加些随机偏值
TouchDown arr(0)+n,arr(1)+n,1
TouchMove arr(2)+n,arr(3)+n,1
Delay 500
TouchUp 1
Delay 100
End Sub

//////////////////////////////////////////////////////////////////////////////////////////

‘作业

‘划动距离=Array(160,540,470,540)

//Call 触屏划动(划动距离)

第二种办法

//--------------滑屏
Function 滑屏(数组)
    Dim arr
    arr = 数组
    n=Int(10*Rnd())'给划动操作增加些随机偏值
    TouchDown arr(0)+n,arr(1)+n,1
    Delay 2000
    TouchMove arr(2)+n,arr(3)+n,1,1000
    TouchUp 1
    Delay 200
End Function//////////////////////////////////////////////////////////////////////////////////////////

‘作业

‘上滑 = Array(710, 640, 710, 1255)’

‘Call 滑屏(上滑)