SeleniumBasic ByClass　要素検索の属性をオブジェクトで生成

2023年3月11日2023年8月4日

リファレンス

概要

要素検索の属性をオブジェクトで生成するクラス

オブジェクト設定

・変数宣言

Dim By As New By

文法

By.[メソッド](<検索値>)

メソッド・プロパティ

メソッド

スクロールできます

Name	解説	Short Example
Any	複数の属性をor条件で利用	By.Any(By.Class("MV3Tnb"), By.ID("id"))
Class	クラス名属性の設定	driver.FindElement(By.Class("gLFyf")).SendKeys "hoge"
Css	Cssセレクタ属性の設定	driver.FindElement(By.Css("#redirect")).Click
Id	id属性の設定	driver.FindElement(By.ID("APjFqb")).SendKeys " age"
LinkText	リンクテキスト属性の設定	driver.FindElement(By.Linktext("Googleについて")).Click
Name	Name属性の設定	driver.FindElement(By.Name("q")).SendKeys " sage"
PartialLinkText	リンクテキスト（部分一致）属性の設定	driver.FindElement(By.Partiallinktext("Googleにつ")).Click
Tag	タグ属性の設定	driver.FindElement(By.Tag("textarea")).SendKeys " warosu"
XPath	Xpath属性の設定	driver.FindElement(By.XPath("//*[@id='APjFqb']")).SendKeys " barusu"

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

プロパティ

スクロールできます

Name	解説	Short Example
Strategy	メソッド名の取得	Debug.Print myBy.Strategy
Value	設定名の取得	Debug.Print myBy.Value

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

Example

Use_ByAny

Private Sub Use_ByAny()
    Dim driver As New ChromeDriver
    Dim By As New By
    driver.Get "https://www.google.co.jp"
    Dim bt
    Set bt = By.Any(By.Class("MV3Tnb"), By.ID("gbqfbb"))
    driver.FindElement(bt).Click
    Stop
    driver.Quit
End Sub

Use_ByCss

Private Sub Use_ByCss()
    Dim driver As New ChromeDriver
    Dim By As New By
    driver.Get "https://the-internet.herokuapp.com/redirector"
    Dim myBy As By
    Set myBy = By.Css("#redirect")
    driver.FindElement(myBy).Click
    Debug.Print myBy.Strategy
    Debug.Print myBy.Value
    Stop
    driver.Quit
End Sub

Use_ByLinkText

Private Sub Use_ByLinkText()
    Dim driver As New ChromeDriver
    Dim By As New By
    driver.Get "https://www.google.co.jp"
    driver.FindElement(By.linktext("Googleについて")).Click
    Stop
    driver.Quit
End Sub

Use_BypartialLinkText

Private Sub Use_BypartialLinkText()
    Dim driver As New ChromeDriver
    Dim By As New By
    driver.Get "https://www.google.co.jp"
    driver.FindElement(By.partiallinktext("Googleにつ")).Click
    Stop  
    driver.Quit
End Sub

Other_By

Private Sub Other_By()

    Dim driver As New ChromeDriver
    Dim By As New By
    driver.Get "https://www.google.co.jp"

    driver.FindElement(By.Class("gLFyf")).SendKeys "hoge"
    driver.FindElement(By.ID("APjFqb")).SendKeys " age"
    driver.FindElement(By.Name("q")).SendKeys " sage"
    
    driver.FindElement(By.XPath("//*[@id='APjFqb']")).SendKeys " barusu"
    driver.FindElement(By.Tag("textarea")).SendKeys " warosu"

    driver.Wait 2000
    driver.Quit

SeleniumBasic Classリファレンス

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