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