尝试使用VBA登录Facebook

Question

一周前我刚刚开始玩VBA.我可以打开IE并进入Facebook.我甚至可以在右侧插槽中输入我的电子邮件(因为光标已经被选中了该位置).我似乎无法找到一种方法来选择密码字段来输入我的密码.更别说按下登录按钮了.请帮忙

到目前为止,这是我的代码

Sub facebookPost()

    Dim IE As Object

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

    Do While IE.Busy
      DoEvents
    Loop

    Application.Wait (Now + TimeValue("00:00:02"))

    IE.Document.all.Item("email").Value = "*******"
    IE.Document.all.Item("pass").Value = "********"
End Sub

Answer 1

这是按钮的来源

<label class="uiButton uiButtonConfirm" id="loginbutton" for="u_0_4"><input value="Log in" tabindex="4" id="u_0_4" type="submit"></label>

这适合我

IE.Document.all.Item("loginbutton").Click

所以你的代码看起来像这样

Sub facebookPost()
    Dim IE As Object
    Dim sUser As String, sPass As String

    '~~> Change as Applicable
    sUser = "Blah Blah"
    sPass = "Blah Blah"

    Set IE = CreateObject("INTERNETEXPLORER.Application")

    IE.Navigate ("www.Facebook.com")
    IE.Visible = True

    Do While IE.Busy: DoEvents: Loop

    Application.Wait (Now + TimeValue("00:00:02"))

    IE.Document.all.Item("email").Value = sUser
    IE.Document.all.Item("pass").Value = sPass
    IE.Document.all.Item("loginbutton").Click
End Sub