试图用VBAloginFacebook

大概一周前我刚开始玩VBA。 我可以打开IE和Facebook。 我甚至可以在右侧插槽中input我的电子邮件（因为光标已经被选中了）。 我似乎无法find一种方法来select密码字段input我的密码。 别说打loginbutton。 请帮忙

这是我的代码到目前为止

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

这是button的来源

<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 

Answer 2

而不是loginbutton只是写login，它适用于我