VBA登錄和註銷Facebook

Question

我正在使用以下代碼在VBA上登錄Facebook。

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 

另外，我想在VBA中實現從Facebook註銷。

Answer 1

既然你登錄到Facebook上與下面的行未選中堅持箱： IE.Document.all.Item("persist_box").status = False
我認爲，你可以通過簡單地用下面的命令關閉Internet Explorer窗口註銷：IE.Quit
然後，如果你需要使用其他用戶名/密碼繼續您的自動化過程，您可以使用同一個IE對象再次登錄。