その他

SeleniumBasicでボタン自動クリック(回数指定あり・なし)[No78]

投稿日:2020年10月27日 更新日:

スポンサーリンク

プログラム

前回の以下記事のプログラムと同じ箇所が多くなります。ので以下記事のプログラムを用意いただき、以降紹介するようにしてください。

no image
SeleniumBasicで自動スクロール(回数指定あり・なし)[No77]
selenium Basic(VBA)で特定サイトを自動スクロール、スクレイピングする際のプログラムを用意してみましたのでご活用ください。 プログラム 早速プログラムの紹介です。一つ ...

1.以下箇所は何度押しても良いボタンはないのでサイト先に相応しくありません。試すのに増えているサイトは「次へ」ボタンを押しても、また同じ箇所に「次へ」ボタンがあるような、どのページも同じ構成のサイトです。そのサイトにしてください。


driver.Get "http://www.yahoo.co.jp/"

2.前の記事の「DoPage」関数は次のものにしてください。


'ボタンの場合
Private Sub DoPage(ByVal driver As Selenium.WebDriver, ByVal modeName As String, ByVal Times As Integer)
    If (StrComp("doNotDo", modeName, vbTextCompare) = 0) Then
        Exit Sub
    End If

    Dim htmlDoc As HTMLDocument
    Set htmlDoc = objIE.document

    Dim buttonUmuCheck As Integer
    buttonUmuCheck = Len(driver.FindElementByClass(ボタンのエレメント).Attribute("innerText"))
    Dim LoopCount As Integer
    LoopCount = 0

    Dim button As Object
    Do While (buttonUmuCheck > 0)
        LoopCount = LoopCount + 1
        Set button = driver.FindElementByClass(ボタンのエレメント)
        button.Click
        timeWait ("00:00:03")
        Call CheckBrowser(driver)

        buttonUmuCheck = Len(driver.FindElementByClass(ボタンのエレメント).Attribute("innerText"))

        If (StrComp("specify", modeName, vbTextCompare) = 0) And (Times = LoopCount) Then
            Exit Do
        End If
    Loop
End Sub

プログラムについて

実行前にDoPage関数で「スクロールしない」「回数指定してクリックする」「ボタンがあるまで無限にボタンをクリックする」をセットしておきましょう。(コメント設定、コメントアウト等利用で)

あとは前記事(プログラム情報とか)の内容と同じです。

関連記事

JavaScriptについても書いてあります。

no image
【解決済】window.scrollTo(0, document.body.scrollHeight)が効かなくスクロールできない[No75]
通常、ブラウザ、サイトで「window.scrollTo(0, document.body.scrollHeight)」のスクリプトを実行するとスクロールしてくれます。 が、スクロー ...

最後までお付き合いいただきありがとうございます!

この情報が誰かの役にたてれば幸いです。

スポンサーリンク

タグ

-その他

© 2021 BookALittle