这个小功能经常有人问,常用在一些列表类型脚本的滑动上面,对于怎么判断是不是滑到最底部了呢?从手动操作的逻辑上来说,所谓滑动到最底部其实就是不能再继续滑动了。
对于脚本来说,不能滑动就是滑动前后没有发生变化。本着这个逻辑,我们就可以通过截取界面上某一位置的图片,然后经过一次滑动操作之后,判断原来位置的图片是不是发生了变化。如果没有发生变化,说明脚本已经滑动到最底部不能再继续滑动了。
先来看看效果:
下面看一下源代码:
Function 滑动(x1, y1, x2, y2, t)
SnapShot “/sdcard/pictures/1.png”,80,241,393,402
Swipe x1, y1, x2, y2, t
Dim intx,inty
FindPic 80,241,393,402, “/sdcard/pictures/1.png”,”000000″, 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
TracePrint “出现卡屏了”
滑动=true
Else
TracePrint “没有卡屏”
滑动=false
End If
End Function
Do
If 滑动(100, 500, 100, 450, 500) Then
TracePrint “滑动到底了”
Exit Do
Else
TracePrint “没到底了”
End If
Loop
这里面我自定义了一个叫滑动的函数,给它做了一个返回值,当滑动到最底部的时候,函数返回一个true,通过判断这个返回值,就可以明确知道是不是滑动到最底部了。
对于上面的代码需要注意两点:
1.代码中截图保存的路径是雷电模拟器的路径,如果你用其他设备,自行修改路径,否则可能会出现无法使用的情况。
2.调用函数的代码只有:滑动(100, 500, 100, 450, 500),如果做判断可以加上if,至于最外层的do循环,我是为了演示效果才加的,不是必须有的代码,别无脑套用。
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。