判断是否滑动到最底部的源码分享

这个小功能经常有人问,常用在一些列表类型脚本的滑动上面,对于怎么判断是不是滑到最底部了呢?从手动操作的逻辑上来说,所谓滑动到最底部其实就是不能再继续滑动了。

对于脚本来说,不能滑动就是滑动前后没有发生变化。本着这个逻辑,我们就可以通过截取界面上某一位置的图片,然后经过一次滑动操作之后,判断原来位置的图片是不是发生了变化。如果没有发生变化,说明脚本已经滑动到最底部不能再继续滑动了。

先来看看效果:

判断是否滑动到最底部的源码分享

下面看一下源代码:

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循环,我是为了演示效果才加的,不是必须有的代码,别无脑套用。

原文始发于微信公众号(3分钟学堂):

本站内容来源于网络,转载请注明出处和链接!
本文链接地址: https://pumpkinit.com/976.html
南瓜  [https://pumpkinit.com]  感谢

发表评论

电子邮件地址不会被公开。 必填项已用*标注