Вход и выход VBA Facebook

Question

Я использую следующий код для входа на Facebook с VBA.

Sub LoginFb() 

    Dim IE As Object 

    Set IE = CreateObject("INTERNETEXPLORER.Application") 
    IE.Navigate ("www.Facebook.com") 
    IE.Visible = True 

    Do While IE.Busy 
     DoEvents 
    Loop 

    IE.Document.all.Item("email").Value = "username" 
    IE.Document.all.Item("pass").Value = "password!" 
    IE.Document.all.Item("persist_box").status = False 
    IE.Document.all.Item("loginbutton").Click 
End Sub 

Кроме того, я хочу реализовать выход из Facebook в VBA.

Answer 1

Так как вы войдите в Facebook с коробкой сохраняется непроверенной со следующей строкой: IE.Document.all.Item("persist_box").status = False
Я думаю, что вы можете выйти, просто закрыв окно Internet Explorer с помощью следующей команды: IE.Quit
Тогда, если вам нужно чтобы продолжить процесс автоматизации с помощью другого имени пользователя и пароля, вы можете снова войти в систему с тем же IE-объектом.