Ответ 1
Это то, что вы ищете?
With driver
.SetPreference "profile.default_content_setting_values.notifications", 2 '1 for allow 2 for block
.Start "chrome", "https://www.facebook.com"
.
.
.
Есть ли способ использовать эти прокомментированные четыре строки в моем коде vba, чтобы я мог сотрясать барьер при вводе некоторых веб-страниц, подверженных уведомлениям. Я не могу найти никакой идеи, чтобы я мог использовать их, поскольку она бросает ошибку из-за того, как они сейчас. Вот. Спасибо заранее.
Sub Test_stth()
Dim driver As New WebDriver
'chrome_options = WebDriver.ChromeOptions()
'prefs = {"profile.default_content_setting_values.notifications" : 2}
'chrome_options.add_experimental_option("prefs",prefs)
'driver = WebDriver.Chrome(chrome_options = chrome_options)
With driver
.Start "chrome", "https://stackoverflow.com/documentation"
.get "/documentation"
End With
End Sub
Это то, что вы ищете?
With driver
.SetPreference "profile.default_content_setting_values.notifications", 2 '1 for allow 2 for block
.Start "chrome", "https://www.facebook.com"
.
.
.