ヘッドレスchromeでパスワードを入力した先のページをキャプチャしたい

Question

前提・実現したいこと

前回、前々回と同様に、VBAからヘッドレスchromeで
WEBページのキャプチャを撮る方法についての質問です。

今回は、formにパスワードを入力した先のページをキャプチャする方法で躓いています。

試したこと

調べたところ、Pythonでの方法なら見つかったのですが
VBAマクロでの書き方が分かりません。

※下記は「こんなことがしたいんだな」程度に捉えてください（Pythonは触ったことがありません）。
参考動画：https://www.youtube.com/watch?v=f8FXUUQ4uRA

from selenium.webdriver.chrome.options import Options
options = Options()
options.add_argument('--headless')
browser = webdriver.Chrome(options=options)
url = "http://●"
browser.get(url)

sleep(4)

elem_password = browser.find_element_by_id('●パスワード入力欄のID')
elem_password.send_keys('●パスワード')

sleep(1)

elem_login_btn = browser.find_element_by_id('●ログインボタンのID')
elem_login_btn.click()

改良したいコード

Function capture()

Dim SaveDir As String
Dim cmd As String
Dim i As Long
Dim rc As Long

For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row
cmd = ""
cmd = cmd & "c:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
cmd = cmd & " --headless"
cmd = cmd & " --ignore-certificate-errors"
cmd = cmd & " --disable-gpu"
cmd = cmd & " --hide-scrollbars"


'●このあたり？


cmd = cmd & " --screenshot=c:\HCcapture\" & Cells(i, 2) & ".png"
cmd = cmd & " --window-size=1920,3200"
cmd = cmd & " " & Cells(i, 3)
rc = Shell(cmd, vbHide)
Debug.Print i & "-" & Now
Application.Wait Now + TimeValue("0:00:05")
DoEvents
Next

MsgBox "キャプチャが完了しました", vbSystemModal

End Function

上記VBAの「●このあたり？」に同様の処理を入れられればよいのでは？　と考えています。

どうぞよろしくお願いいたします。

Answer 1

調べてみましたが出来ないと思います。

たとえばクッキーファイルを指定したり、
フォームの要素を指定するための起動オプションが用意されていないです。

VBAでスクレイピングするなら以下どちらかの方法がいいと思います。
https://qiita.com/SoreKiita/items/4b4c845b7378f6765704
https://excel-ubara.com/excelvba4/EXCEL_VBA_401.html

Comments

[rumachi]

ご回答ありがとうございます！

やっぱり…無理なんですね……
前任者の使っていたSeleniumならほんの少しだけ触ったことがあるので、
いただいたURＬを参考に調べてみます！

フォーム要素のIDを指定できれば何とかなるのでは、と
当りを付けていましたが、クッキーも関係あるのですね……
まだまだ分からないことだらけです……

[rumachi]

どうにかVBA＋seleniumで期待通りの動きをするものが完成しました。

ただ、一ページキャプチャする毎に
サイトログイン→会員ログインページ→目的のページ
と遷移する作りになってしまいました。
処理件数が増えるとサーバに負担をかけてしまいそうなので、
まだ改善の必要があると考えています……