Hi,
I'm trying to automate the Facebook post in group - Even I'm almost completed but it is posting only the Text and not the link. When I input text it posts without any problem but when I input links it pops up with error message stating nothing entered in the text box.
Please change the login info
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 = "zzzzzzz"
ie.document.all.Item("pass").Value = "zzzzzzzzz"
ie.document.all.Item("login").Click
Application.Wait (Now + TimeValue("00:00:02"))
ie.navigate "https://www.facebook.com/groups/496722467127307/"
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 = "HI" & " " & "http://www.scorphq.com/YouTube/MyPage/xditWVw2ReE.htm"
'ie.document.all.Item("xhpc_message_text").Value = "HI" & " " & "http://www.scorphq.com/YouTube/MyPage/xditWVw2ReE.htm"
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
'"http://www.scorphq.com/YouTube/MyPage/xditWVw2ReE.htm
'Application.Wait (Now + TimeValue("00:00:05"))
' ie.document.all.Item("xhpc_message_text").Value = "hi"
'---------------------------------------------------------
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
Please help - For most of the post I haven't got any reply please help on this.
Thanks
Thiru
Bookmarks