二维码whatsapp vba

Question

早上好，我需要知道如何恢复使用硒保存的whatsapp日志。我想避免每次启动软件时都扫描二维码。

在此代码的末尾，要开始发送，我必须扫描qr。如何保存firefox配置文件？

Private Sub Comando0_Click()
    DoCmd.SetWarnings (WarningsOff)
    Dim bot As New FirefoxDriver
    Dim RS As DAO.Recordset
    Set RS = CurrentDb.OpenRecordset("SELECT idcontatto,cellulare,msg,allegato FROM selectname")
    Dim valore As String
    Dim numcell As String
    Dim alleg As String

    bot.get "https://web.whatsapp.com"