SeleniumBasic TouchActionsClass　タッチスクリーンの一括操作

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

リファレンス

概要

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

オブジェクト設定

・変数宣言

Dim TouchAction As TouchActions

・親クラス：WebDriver

文法

Set TouchAction = driver.TouchActions
TouchAction.[メソッド]

メソッド・プロパティ

メソッド

スクロールできます

Name	解説	ShortExample
Flick	タッチスクリーンのフリック速度設定
FlickFrom	Web要素の場所を起点にしてXY座標軸でスクロール	TouchAction.FlickFrom(ele, 0, 400, 400).Wait(1500).Perform
Move	画面上のXY座標軸に移動。事前にPressHoldメソッドを実行	TouchAction.PressHold(0, 1500).Wait(1500).Move(0, 1000).Wait(1500).PressRelease(0, 500).Perform
Perform	設定したアクションを実行	TouchAction.FlickFrom(ele, 0, 400, 400).Wait(1500).Perform
PressHold	画面に指を付ける。最初に設定するメソッド	TouchAction.PressHold(0, 1500).Wait(1500).Move(0, 1000).Wait(1500).PressRelease(0, 500).Perform
PressRelease	画面から指を離す。最後に設定するメソッド	TouchAction.PressHold(0, 1500).Wait(1500).Move(0, 1000).Wait(1500).PressRelease(0, 500).Perform
Scroll	タッチスクリーンをXY座標軸でスクロール	TouchAction.Scroll(0, 500).Wait(1500).ScrollFrom(ele, 0, -800).Perform
ScrollFrom	画面上のXY座標軸に移動。	TouchAction.Scroll(0, 500).Wait(1500).ScrollFrom(ele, 0, -800).Perform
Tap	タッチ対応デバイスを1回タップします。(=Click)
TapDouble	指の動きのイベントを使用して、タッチスクリーンをダブルタップ。(=DoubleClick)
TapLong	指の動きのイベントを使用して、タッチスクリーンを長押し
Wait	指定された時間待機（ミリ秒単位）	TouchAction.Scroll(0, 500).Wait(1500).ScrollFrom(ele, 0, -800).Perform

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

Example

Use_TouchActions_1

Private Sub Use_TouchActions_1()
    Dim driver As New ChromeDriver
    driver.Get "https://programan.org/"
    Dim TouchAction As TouchActions
    Set TouchAction = driver.TouchActions
    TouchAction.PressHold(0, 1500).Wait(1500).Move(0, 1000).Wait(1500).PressRelease(0, 500).Perform
    driver.Wait 1500
    driver.Quit
End Sub

Use_TouchActions_2

Private Sub Use_TouchActions_2()
    Dim driver As New ChromeDriver
    driver.Get "https://programan.org/"
    Dim ele As WebElement
    Set ele = driver.FindElementByCss("#archives-2 > div")
    Dim TouchAction As TouchActions
    Set TouchAction = driver.TouchActions
    TouchAction.FlickFrom(ele, 0, 400, 400).Wait(1500).Perform
    TouchAction.Scroll(0, 500).Wait(1500).ScrollFrom(ele, 0, -800).Perform
    driver.Wait 1500
    driver.Quit
End Sub