【VBA】次回から自動ログインするようにする方法がわからない【ログインの保持】

Question

現在VBAでSeleniumを使って自動操作ツールを作成しています。

こちらのサイトの操作を自動化したいのですが、毎回ログインしなければなりません。

こちらの記事では

' [今までの処理]
chromeDriver = New ChromeDriver()
chromeDriver.Start()
chromeDriver.Get(url)

を

' [修正後の処理]
chromeDriver = New ChromeDriver()

' PROFILE_PATHは定数として宣言済み
chromeDriver.AddArgument("user-data-dir=" & PROFILE_PATH)　' ← 追加

chromeDriver.Start()
chromeDriver.Get(url)

に変えればできると書いてありますが、処理が微妙に違ってできません。

以下、私のコードです。

        Dim driver As New Selenium.WebDriver
        driver.Start "chrome"
        driver.Get "https://www.furimawatch.net/tool/#!/login"
        

情報が少なく、調べてもわかりませんでした。
ご教授お願いします！

Comments

[DreamTheater]

こんにちは。
Seleniumは専門外なのですが、参考にされたサイトと同じようにChromeDriverクラスをdriverオブジェクトに割り当てることはできないのですか？

[m-nm0n]

なるほど、試してみます！

[stdio]

要はログインが出来ればいい話だと思うので、別に自動ログインする必要はないと思います。
ExcelVBAなら、Excel内にログインに必要な情報を書いても出来ます。もしくは外部データにログイン情報を書きだしてしまっても良いと思います。

[Reach]

PROFILE_PATH="C:\Users\%username%\AppData\Local\Google\Chrome\User Data"
(Windowsの場合)は 記述されていますでしょうか？

[Reach]

上記 エラーになるようです
回答欄を参照して下さい

Answer 1

これでどうでしょうか？

Sub test()

    Dim driver As New Selenium.WebDriver

    UserName = Application.UserName
    PROFILE_PATH = "C:\Users\" + UserName + "\AppData\Local\Google\Chrome\User Data"



    driver.AddArgument ("user-data-dir=" + PROFILE_PATH)
    driver.Start "chrome"


    driver.get "https://www.furimawatch.net/tool/#!/login"
    driver.FindElementByCss("body > div.container > div > button:nth-child(1)").Click


    '不要になる
    'driver.SwitchToNextWindow

     Stop


End Sub

Answer 2

chromeDriver.AddArgument("user-data-dir=" & PROFILE_PATH)　' ← 追加

の意味が理解できないのであれば、今のまま毎回ログイン処理を行うのが良いと思います。

理解しないまま使っていると、ある日突然自動ログインしなくなるという事態も考えられます。