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对象再次登录。