這個小功能經常有人問,常用在一些列表類型腳本的滑動上面,對于怎么判斷是不是滑到最底部了呢?從手動操作的邏輯上來說,所謂滑動到最底部其實就是不能再繼續滑動了。
對于腳本來說,不能滑動就是滑動前后沒有發生變化。本著這個邏輯,我們就可以通過截取界面上某一位置的圖片,然后經過一次滑動操作之后,判斷原來位置的圖片是不是發生了變化。如果沒有發生變化按鍵精靈循環找圖代碼,說明腳本已經滑動到最底部不能再繼續滑動了。
先來看看效果:
下面看一下源代碼:
滑動(x1, y1, x2, y2, t)
"http:///1.png",80,241,393,402
Swipe x1, y1, x2, y2, t
Dim intx,inty
80,241,393,402, "http:///1.png","", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
"出現卡屏了"
滑動=true
Else
"沒有卡屏"
滑動=false
End If
End
Do
If 滑動(100, 500, 100, 450, 500) Then
"滑動到底了"
Exit Do
Else
"沒到底了"
End If
Loop
這里面我自定義了一個叫滑動的函數,給它做了一個返回值,當滑動到最底部的時候,函數返回一個true,通過判斷這個返回值,就可以明確知道是不是滑動到最底部了。
對于上面的代碼需要注意兩點:
1.代碼中截圖保存的路徑是雷電模擬器的路徑按鍵精靈循環找圖代碼,如果你用其他設備,自行修改路徑,否則可能會出現無法使用的情況。
2.調用函數的代碼只有:滑動(100, 500, 100, 450, 500),如果做判斷可以加上if,至于最外層的do循環,我是為了演示效果才加的,不是必須有的代碼,別無腦套用。