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.

Rechercher des sujets similaires à "post facebook vba"