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

另外，我想在VBA中实现从Facebook注销。

Answer 1

由于您使用以下行取消选中保留框，因此登录Facebook： IE.Document.all.Item("persist_box").status = False
我认为只需使用以下命令关闭Internet Explorer窗口即可注销：IE.Quit
然后，如果您需要使用其他用户名/密码继续自动化过程，则可以使用相同的IE对象再次登录。