Facebook Macro

[Shaun]

Who wants to get this working for me, i understand most of it and have written similar in the past with AutoHotKey scripts but not in VBA.


Sub Login_facebook()

Dim ie As Object

Dim aelement
Dim btnInput
Dim btnInputer

Set ie = CreateObject("InternetExplorer.Application")

ie.navigate "http://www.facebook.com/login.php"

ie.Visible = True

Do While ie.Busy And Not ie.readyState = 4
DoEvents
Loop

DoEvents

ie.document.all.Item("email").Value = "Your Email"
ie.document.all.Item("pass").Value = "Your Password"
ie.document.all.Item("login").Click
Application.Wait (Now + TimeValue("00:00:02"))
ie.navigate "Your Facebook Page"
Do While ie.Busy And Not ie.readyState = 4
DoEvents
Loop

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

Set ElementCol = ie.document.getElementsByClassName("_4j _519b")

For Each btnInput In ElementCol
btnInput.Click
Next btnInput

ie.document.all.Item("xhpc_message_text").Click
Dim VALUER As String

VALUER = Sheets("FB").Range("A1").Value


ie.document.all.Item("xhpc_message_text").Value = VALUER
Set ElementCol = ie.document.getElementsByClassName("_4j _519b")

For Each btnInput In ElementCol
btnInput.Click
Next btnInput

Set ElementColumer = ie.document.getElementsByClassName("_42ft _4jy0 _11b _4jy3 _4jy1 selected _51sy")

For Each btnInputer In ElementColumer
btnInputer.Click
Next btnInputer




Application.Wait (Now + TimeValue("00:00:10"))
Set inputcollection = ie.document.getElementsByTagName("button")
For Each aelement In inputcollection
If aelement.getAttribute("class") = "_42ft _4jy0 _11b _4jy3 _4jy1 selected _51sy" Then
aelement.Click
GoTo 10
End If
Next
10





End Sub