hello! post in facebook by vba ?

Y compris Power BI, Power Query et toute autre question en lien avec Excel
r
raja ahmed
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 1 avril 2016
Version d'Excel : 2007 EN

Message par raja ahmed » 1 avril 2016, 18:01

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
Avatar du membre
Yvouille
Passionné d'Excel
Passionné d'Excel
Messages : 8'759
Appréciations reçues : 56
Inscrit le : 6 avril 2007
Version d'Excel : 2016

Message par Yvouille » 1 avril 2016, 22:59

Yes, why not :D
Yvouille

Valais de Coeur
r
raja ahmed
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 1 avril 2016
Version d'Excel : 2007 EN

Message par raja ahmed » 2 avril 2016, 17:43

Yvouille a écrit :Yes, why not :D
how it done i mentioned login vba but dont know how to post in fb via vba
Avatar du membre
d3d9x
Membre dévoué
Membre dévoué
Messages : 950
Appréciations reçues : 2
Inscrit le : 14 avril 2015
Version d'Excel : 2007

Message par d3d9x » 2 avril 2016, 23:45

http://forum.excel-pratique.com/annonce ... r-t13.html
Rédigez votre post de façon détaillée et soignée (langage sms interdit).
“En temps de paix, les fils ensevelissent leurs pères ; en temps de guerre, les pères ensevelissent leurs fils. Sommes-nous en guerre Père?”
r
raja ahmed
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 1 avril 2016
Version d'Excel : 2007 EN

Message par raja ahmed » 7 avril 2016, 09:11

Sorry,
i will care about sms language.

Sir, there is any way of solution to post through VBA in Facebook?
Avatar du membre
d3d9x
Membre dévoué
Membre dévoué
Messages : 950
Appréciations reçues : 2
Inscrit le : 14 avril 2015
Version d'Excel : 2007

Message par d3d9x » 7 avril 2016, 11:03

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.
“En temps de paix, les fils ensevelissent leurs pères ; en temps de guerre, les pères ensevelissent leurs fils. Sommes-nous en guerre Père?”
r
raja ahmed
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 1 avril 2016
Version d'Excel : 2007 EN

Message par raja ahmed » 7 avril 2016, 17:18

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.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message