SeleniumBasic WebElementClass　Web要素の制御

Private Sub Find_Element_input()
    Dim Driver As New ChromeDriver
    Driver.Get "https://www.google.co.jp"
    Dim ele As WebElement, ele2 As WebElement
    Set ele = Driver.FindElementByName("q")
    Set ele2 = Driver.FindElementByName("q")
    Debug.Print ele.Equals(ele2)

    ele.SendKeys "Eiffel tower"
    Driver.Wait 1000
    ele.Clear
    Driver.Wait 2000
    
'    ele.SendKeys "Eiffel tower" & Driver.Keys.Return
    ele.SendKeys "Eiffel tower", Driver.Keys.Return
        
    Driver.Wait 2000
    Driver.Quit
End Sub

Private Sub Use_WaitMethod()

    Dim Driver As New ChromeDriver
    Driver.Get "https://ja.wikipedia.org/wiki/メインページ"
    Dim ele As WebElement, str As String
    str = "#sister-projects-list > div:nth-child(1) > div:nth-child(2) > b > a"
    Set ele = Driver.FindElementByCss(str)
    
    ele.WaitAttribute "textContent", "コモンズ", 10000
    ele.WaitText "コモ", 10000
    ele.WaitCssValue "font-style", "normal", 5000
    
    ele.WaitNotAttribute "textContent", "MediaWiki", 2000
    ele.WaitNotCssValue "font-style", "hoge", 2000
    ele.WaitNotText "hoge", 2000
    
    ele.WaitRemoval 2000
    Driver.Quit

End Sub

Private Sub Use_Attribute()
    Dim Driver As New ChromeDriver
    Driver.Get "https://ja.wikipedia.org/wiki/メインページ"
    Dim ele As WebElement, str As String
    str = "#sister-projects-list > div:nth-child(1) > div:nth-child(2) > b > a"
    Set ele = Driver.FindElementByCss(str)
    
    Debug.Print ele.Attribute("textContent")
    Debug.Print ele.CssValue("font-style")
    Debug.Print ele.Text
    Debug.Print Driver.FindElementByCss("#frame-interlang").TextAsNumber
    
    Set ele = Driver.FindElementByCss(str).WaitAttribute("textContent", "コモンズ", 10000)
    ele.WaitAttribute "textContent", "コモンズ", 10000
    ele.WaitText "コモ", 10000
    
    Dim i As Long
    For i = 0 To 500 Step 10
        ele.ClickByOffset 100 + i, 0
        If Not ele.IsPresent Then Exit For
    Next i
    
    Driver.Wait 2000
    Driver.Quit
End Sub

Private Sub Use_Click()
    Dim Driver As New ChromeDriver
    Driver.Get "https://ja.wikipedia.org/wiki/メインページ"
    Dim ele As WebElement, str As String
    str = "#sister-projects-list > div:nth-child(1) > div:nth-child(2) > b > a"
    Set ele = Driver.FindElementByCss(str)
    
    ele.ClickContext
    ele.ClickDouble
    Driver.Wait 2000
    Driver.Quit
End Sub

Private Sub Use_Location()
    Dim Driver As New selenium.ChromeDriver
    Dim ele As WebElement
    Driver.Get "https://ja.wikipedia.org/wiki/メインページ"
    Set ele = Driver.FindElementByCss("#sister-projects-list > div:nth-child(1) > div:nth-child(2) > b > a")
    Debug.Print ele.Location.X & " : " & ele.Location.Y
    Debug.Print ele.LocationInView.X & " : " & ele.LocationInView.Y
    ele.ScrollIntoView
    Driver.Wait 2000
    Driver.Quit
End Sub

Private Sub Usage_ClipBoard()
    Dim Keys As New selenium.Keys
    Dim Driver As New selenium.ChromeDriver
    Dim ele As WebElement
    Driver.Get "https://google.co.jp"
    Driver.SetClipBoard "いろはにほへと"
    Set ele = Driver.FindElementByName("q")
    ele.HoldKeys Keys.Control
    ele.SendKeys "V"
    Driver.Wait 2000
    ele.ReleaseKeys Keys.Control  'リリース不可
    Driver.Wait 2000
    ele.SendKeys "V"
    Driver.Wait 2000
    Driver.Quit
End Sub

Private Sub Use_Size()
    Dim Driver As New ChromeDriver
    Driver.Get "https://ja.wikipedia.org/wiki/メインページ"
    Dim img As selenium.Image
    Dim elm As selenium.WebElement
    Set elm = Driver.FindElementByXPath("//*[@id='sister-projects-list']")
    Driver.Actions.MoveToElement(elm).Perform
    Debug.Print "Height:" & elm.Size().Height
    Debug.Print "Width:" & elm.Size().Width
    Driver.Quit
End Sub

Private Sub Use_property()
    Dim Driver As New ChromeDriver
    Driver.Get "https://ja.wikipedia.org/wiki/メインページ"
    Dim ele As WebElement, str As String
    str = "#sister-projects-list > div:nth-child(1) > div:nth-child(2) > b > a"
    Set ele = Driver.FindElementByCss(str)
    Debug.Print "IsDisplayed:" & ele.IsDisplayed
    Debug.Print "IsEnabled:" & ele.IsEnabled
    Debug.Print "IsPresent:" & ele.IsPresent
    Debug.Print "IsSelected:" & ele.IsSelected
    Debug.Print ele.tagname
    Driver.Wait 2000
    Driver.Quit
End Sub

Private Sub Use_IsDisplay()
    Dim Driver As New ChromeDriver
    Driver.Get "https://google.co.jp"
    Dim ele As WebElement, str As String
    Set ele = Driver.FindElementByCss("#tophf > input[type=hidden]:nth-child(1)")    'type = hidden
    ele.WaitDisplayed False, 2000
    Debug.Print "IsDisplayed:" & ele.IsDisplayed
    Debug.Print "IsPresent:" & ele.IsPresent
    Debug.Print ele.tagname
    Driver.Wait 2000
    Driver.Quit
End Sub

Private Sub Use_IsEnabled()
    Dim Driver As New ChromeDriver
    Driver.Get "https://itsakura.com/js-disabled#s2"
    Dim ele As WebElement, str As String
    Set ele = Driver.FindElementByCss("#b2")
    Debug.Print "IsEnabled:" & ele.IsEnabled
    Driver.FindElementByCss("#btn2").Click
    ele.WaitEnabled False, 2000
    Debug.Print "IsEnabled:" & ele.IsEnabled
    Debug.Print "IsPresent:" & ele.IsPresent
    Driver.Wait 2000
    Driver.Quit
End Sub

Private Sub Use_IsSelected()
    Dim Driver As New ChromeDriver
    Driver.Get "https://digitor.jp/textbook/html-pull-down/"
    Dim ele As WebElement, str As String
    Set ele = Driver.FindElementByXPath("/html/body/div[4]/div[2]/div[1]/div[5]/select/option[3]")

    Debug.Print "IsSelected:" & ele.IsSelected
    ele.Click
    ele.WaitSelection True, 2000
    Debug.Print "IsSelected:" & ele.IsSelected
    
    Driver.Wait 2000
    Driver.Quit
End Sub

Private Sub Use_WebEle_findEle()
    Dim driver As New ChromeDriver
    Dim ele As WebElement
    driver.Get "https://the-internet.herokuapp.com/tables"
    Set ele = driver.FindElementById("table1")
    Debug.Print ele.FindElementByClass("header").Text
    Debug.Print ele.FindElementByCss("thead tr th:nth-child(1)").Text
    Debug.Print ele.FindElementByCss("thead").Text
    Debug.Print ele.FindElementByLinkText("edit").Text
    Debug.Print ele.FindElementByPartialLinkText("ed").Text
    Stop
    driver.Quit
End Sub

Private Sub Use_FindEles_Css()
    Dim driver As New ChromeDriver
    driver.Get "https://the-internet.herokuapp.com/tables"
    Dim eles As WebElements, ele As WebElement, buf As WebElement
    Set ele = driver.FindElementById("table1")
    Set eles = ele.FindElementsByCss("tbody tr td:nth-child(2)")
    For Each buf In eles
    Debug.Print buf.Text
    Next buf
    driver.Quit
End Sub

Private Sub Use_FindEles_XPath()
    Dim driver As New ChromeDriver
    driver.Get "https://the-internet.herokuapp.com/tables"
    Dim eles_base As WebElements, eles As WebElements, ele As WebElement
    Set eles_base = driver.FindElementsByClass("tablesorter")
    Set eles = eles_base.Item(1).FindElementsByXPath("//*[@id='table1']/tbody//td[2]")
    For Each ele In eles
    Debug.Print ele.Text
    Next ele
    driver.Quit
End Sub