SeleniumBasic TouchScreenClass　タッチスクリーン操作

2023年3月25日2023年8月6日

リファレンス

概要

タッチスクリーンのハンドル用クラスの解説です。

オブジェクト設定

・変数宣言

Dim TouchScreen As TouchScreen

・親クラス：WebDriver

文法

Set TouchScreen = driver.TouchScreen
TouchScreen.[メソッド]

メソッド・プロパティ

メソッド

スクロールできます

Name	解説	ShortExample
Flick	タッチスクリーンのフリック速度設定
FlickFrom	Web要素の場所を起点にしてXY座標軸でスクロール	.FlickFrom ele, 0, 400, 400
IsPortrait	画面が縦長の場合はTrue、それ以外の場合はFalseを返す
Move	画面上のXY座標軸に移動。事前にPressHoldメソッドを実行	.Move 0, 1500
PressHold	画面に指を付ける	.PressHold 0, 0
PressRelease	画面から指を離す	.PressRelease 0, 1500
Scroll	タッチスクリーンをXY座標軸でスクロール	.Scroll 0, 500
ScrollFrom	画面上のXY座標軸に移動。	.ScrollFrom ele, 0, -800
Tap	タッチ対応デバイスを1回タップします。(=Click)	TouchScreen.Tap ele
TapDouble	指の動きのイベントを使用して、タッチスクリーンをダブルタップ。(=DoubleClick)
TapLong	指の動きのイベントを使用して、タッチスクリーンを長押し
ToLandscape	画面を横向きにする
ToPortrait	画面を縦向きにする

※Short Exampleは、動作確認ができたコードを記載しています。

Example

Use_TouchScreen_1

Private Sub Use_TouchScreen_1()
    Dim driver As New ChromeDriver
    driver.Get "https://programan.org/"
    Dim ele As WebElement
    Set ele = driver.FindElementByCss("#archives-2 > div")
    Dim TouchScreen As TouchScreen
    Set TouchScreen = driver.TouchScreen
    With TouchScreen
        'Debug.Print "縦長画面: " & .IsPortrait
        '.Flick 100, 400
        .Scroll 0, 500 'Y:+下方向
        .ScrollFrom ele, 0, -800  'Y:+下方向
        .FlickFrom ele, 0, 400, 400 'Y:+上方向
    End With
    driver.Wait 1500
    driver.Quit
End Sub

Use_TouchScreen_2

Private Sub Use_TouchScreen_2()
    Dim driver As New ChromeDriver
    driver.Get "https://programan.org/"
    Dim TouchScreen As TouchScreen
    Set TouchScreen = driver.TouchScreen
    With TouchScreen
        .PressHold 0, 0
        .Move 0, 1500
        driver.Wait 2000
        .PressRelease 0, 1500
    End With
    driver.Wait 1000
    driver.Quit
End Sub

Use_Tap

Private Sub Use_Tap()
    Dim driver As New ChromeDriver
    driver.Get "https://programan.org/"
    Dim ele As WebElement
    Set ele = driver.FindElementByCss("#block-3 > div > div > ul > li:nth-child(1) > a")
    Dim TouchScreen As TouchScreen
    Set TouchScreen = driver.TouchScreen
    TouchScreen.Tap ele
    '.ToPortrait
    driver.Wait 1500
    driver.Quit
End Sub

SeleniumBasic Classリファレンス

よかったらシェアしてね！