常见滑动命令:
1.安卓按键官方的滑动
Swipe 100, 100, 200, 200, 500
2.安卓按键官方的滑动---Touchdown touchmove touchup组合
这个滑动组合的好处是可以自由的控制 按下的时间 拖动时间 和松开时间
TouchDown 100, 100, 1
Delay 200
TouchMove 200, 200, 1, 500
Delay 200
TouchUp 1
3. 安卓按键录制状态下特有的滑动TouchDownEvent TouchMoveEvent TouchUpEvent的组合
用法和上面类似不多说了
4.紫猫老师的初期的滑动函数 用法在下面的注释
'功能:紫猫老师的划动函数在你无法用swipe和touch无效的情况下使用
' 按住不放一段时间,移动到目的地后松开
'参数:
' arr数组:移动坐标,可选参数输入内容
' arr(0), arr(1):数值型,按住不放坐标
' arr(2), arr(3):数值型,按住后移动的坐标
' arr(4):数值型,可选参数,按住的时间,默认50
' arr(5):数值型,可选参数,滑动速度,越小越快,默认50
' arr(6):字符串型,可选参数,调试输出信息
'返回:
' 无
'例子:
' Arr = Array (100,100,100,200,null,50,"滑动")
' 结果= TouchDMU (Arr)
Sub TouchDMU(arr)
Dim s,t,isPrint
isPrint=1
If IsNull(arr(4)) Then arr(4) = 50
If IsNull(arr(5)) Then arr(5) = 50
TouchDownEvent arr(0), arr(1), 0
Delay arr(5)
Do
arr(0) = CInt(arr(0) + (arr(2) - arr(0)) / 2)
arr(1) = CInt(arr(1) + (arr(3) - arr(1)) / 2)
TouchMoveEvent arr(0), arr(1), 0, arr(5)
Loop Until Sqr((arr(2) - arr(0)) ^ 2 + (arr(3) - arr(1)) ^ 2) < 20
TouchMoveEvent arr(2), arr(3), 0, arr(5)
TouchUpEvent 0
If IsNull(arr(6)) = False And isPrint = 1 Then
TracePrint "TouchDMU:",arr(6)
TracePrint "坐标与时间:", arr(0), arr(1), arr(2), arr(3), arr(4), arr(5)
End If
End Sub
5.紫猫老师的精确滑动函数(推荐)
Import "zm.luae" //导入插件,只需执行一次
zm.Init //初始化插件,只需执行一次
zm.Swipe 100,100,200,200,300,0
zm.Swipe 100,100,200,200,300,1
6.尝试使用pageup pagedown 来实现上划一页和下滑一页
这个方法实用性不强 因为基本上只适合网页性质的界面 而且 就算是网页性质的也难说是否支持
Keypress "pageup"
Keypress "pagedown"
常见问题和处理办法
1. 滑动无效---》用上面的第五个函数测试 如果不行 尝试第六个 第四个 第三个 如果还不行 尝试 第二个 并且调整按住时间 滑动时间 松开时间看看
2. 滑动无法十分精确---》用上面第五个函数测试 还不行尝试滑动后增加等待的延迟来尝试
3无论哪个都无法滑动----》 尝试实用第二个 第三个的办法 增加 按住时间 滑动时间 松开时间来测试