VBA Automate facebook Post with thumbnail

[thirulovableenemy]

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 (Autally I want the thumb nail to be displayed thats why I'm give few seconds delay - If I remove the wait time it posts the link without link but I require link with thumb nail). - Please help

Please change the login info

[COLOR=#333333]Sub Login_facebook()[/COLOR]
<code style="margin: 0px; padding: 0px; font-style: inherit; font-weight: inherit;">     
    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

    
    
    '---------------------------------------------------------


[FONT=Verdana]End Sub

[/FONT]</code>

Thanks
Thiru