SeleniumBasic VerifyClass　Web要素のコードチェック

2023年3月18日2023年8月5日

リファレンス

概要

コードチェック用のクラス。取得した要素等が期待した内容かチェックし、条件成立の場合"OK"を返す。不成立の場合、エラー文を返す。

オブジェクト設定

・変数宣言

Dim Verify As New Verify

文法

Verify.[メソッド](<期待値> , <検索対象値>)

メソッド・プロパティ

メソッド

スクロールできます

Name	解説	ShortExample
Contains	検索対象値に期待値のテキストが含まれている場合、"OK"を返す。検索対象値期待が含まれていない場合、エラーテキストを返す。（部分一致）	Debug.Print Verify.Contains("Googl", driver.title)
Equals	2つのオブジェクトを比較して一致の場合、"OK"を返す。不一致の場合、エラーテキストを返す。（完全一致）	Debug.Print Verify.Equals("Google", driver.title)
FALSE	引数の値がFalseの場合、"OK"を返す。	If Verify.False(cb.IsSelected) = "OK" Then Stop
Matches	検索対象値に期待値が含まれている場合、"OK"を返す。検索対象値に期待値が含まれていない場合、エラーテキストを返す。正規表現が可能。（部分一致）	Debug.Print Verify.Matches("Goog*", driver.title)
NotEquals	2つのオブジェクトを比較して不一致の場合、"OK"を返す。一致の場合、エラーテキストを返す。（完全一致）	Debug.Print Verify.NotEquals("google", driver.title)
NotMatches	検索対象値に期待値が含まれていない場合、"OK"を返す。検索対象値に期待値が含まれている場合、エラーテキストを返す。正規表現が可能。（部分一致）	Debug.Print Verify.NotMatches("goog", driver.title)
TRUE	引数の値がTrueの場合、”OK”を返す。	If Verify.True(cb.IsSelected) = "OK" Then Stop

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

Example

Use_Verify

Public Sub Use_Verify()
    Dim Verify As New Verify
    Dim driver As New ChromeDriver
    driver.Get "http://www.google.com"
    Debug.Print Verify.Contains("Googl", driver.title)
    Debug.Print Verify.Equals("Google", driver.title)
    Debug.Print Verify.Matches("Goog*", driver.title)
    Debug.Print Verify.NotEquals("google", driver.title)
    Debug.Print Verify.NotMatches("goog", driver.title)
    driver.Quit
End Sub

Verify_Checkbox

Private Sub Verify_Checkbox()
    Dim Verify As New Verify
    Dim driver As New ChromeDriver
    driver.Get "https://the-internet.herokuapp.com/checkboxes"
    Dim cb As WebElement
    Set cb = driver.FindElementByCss("#checkboxes input:nth-of-type(2)")  'チェックボックス2のElemnt取得
    If Verify.True(cb.IsSelected) = "OK" Then Stop  'チェックボックスにチェックが入っているか確認
    cb.Click  'チェックボックスをクリック（チェックを外す）
    driver.Wait 2000
    If Verify.False(cb.IsSelected) = "OK" Then Stop 'チェックボックスのチェックが外れているかか確認
    driver.Quit
End Sub