Post in facebook by VBA?

Sub fb_post()

    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .Navigate http://www.facebook.com/login.php
        Do While .Busy And Not .ReadyState = 4
            DoEvents
        Loop
        .Document.All.Item("email").Value = "xyz"
        .Document.All.Item("pass").Value = "123"
        .Document.All.Item("loginbutton").Click
    End With
End Sub  

Regards.

RAJA AHMED

Yes, why not

Yvouille a écrit :

Yes, why not

how it done i mentioned login vba but dont know how to post in fb via vba

Sorry,

i will care about sms language.

Sir, there is any way of solution to post through VBA in Facebook?

What's the aim? I don't think anyone on this forum wants to help you making a spam bot. And to be honest I'm convinced it's what you're looking for.

its relate to maintain page for latest update with clients.

I also try codecentrix free VBA utility but not find solution about post. Following is recorded tools

'Add Open Twebst Type Library in Tools/References menu of the VBA editor.

Sub OpenTwebstMacro()
    Dim core As ICore
    Set core = New OpenTwebstLib.core

    Dim browser As IBrowser
    Set browser = core.StartBrowser("https://www.facebook.com/login.php")

    Call browser.FindElement("input text", "id=email").InputText("email@ymail.com")
    Call browser.FindElement("input password", "id=pass").InputText("password")
    Call browser.FindElement("button", "id=loginbutton").Click
    Call browser.FindElement("div", "class=_1mf _1mj").Click
        Call browser.FindElement("button", "uiname=Post").Click

End Sub

Any further help highly appreciated and its also will help who's are facing problem on multiple post through manual way.

Search for threads similar to "post facebook vba"