這個小功能經常有人問,常用在一些列表類型腳本的滑動上面,對于怎么判斷是不是滑到最底部了呢?從手動操作的邏輯上來說,所謂滑動到最底部其實就是不能再繼續滑動了。
對于腳本來說,不能滑動就是滑動前后沒有發生變化。本著這個邏輯,我們就可以通過截取界面上某一位置的圖片,然后經過一次滑動操作之后,判斷原來位置的圖片是不是發生了變化。如果沒有發生變化,說明腳本已經滑動到最底部不能再繼續滑動了。
先來看看效果:


下面看一下源代碼:
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循環,我是為了演示效果才加的,不是必須有的代碼,別無腦套用。
版權聲明:本文內容由互聯網用戶自發貢獻,該文觀點僅代表作者本人。本站僅提供信息存儲空間服務,不擁有所有權,不承擔相關法律責任。如發現本站有涉嫌抄襲侵權/違法違規的內容, 請發送郵件至 舉報,一經查實,本站將立刻刪除。