Log into Facebook account and post

[jaryszek]

Hi Guys,

I was looking trough internet and forums but i have not found anything helpful so I am writing here.

I have code and this is working for me to log on Facebook:

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 = "xxx@com.pl"
    ie.document.All.Item("pass").Value = "yyyyy"
    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

I would like to additionally post.
But i don't know how to find a specific class and find a button "send".

The class for writing text in posting windows is "_1mf _1mj" but
ie.document.all.getbyclassname("_1mf _1mj") doesn't work for me.

Please help
Jacek Antek

 

[jaryszek]

Wow thank you !

Hmm from where do you know that

"u_0_n" is for login button and "xhpc_message" is for statusbox?

I am thinking how to search effectively for these different classes?

Jacek

 

[Ombir]

Open Firefox and right click anywhere on the page and click inspect element.

Now you'll find a mouse pointer on left of Inspector tab. Click the pointer and hover your mouse to desired item on page to find out respective properties of a item.

 

[jaryszek]

Thank you Ombir.

I have clicked on "Co słychać" and only this class like in the attachment was showed.

So you had to know that this is for class xhpc_message

I know that is a HTML already but I am very curious
Maybe your way will teach me doing things like these in the future ?

Thank you once again!
Jacek Antek

 

[Ombir]

Check this:

 

[jaryszek]

Thank you My Friend,

I have not find it yet but I will be trying

Jacek

 

[jaryszek]

Hi MY Friends,


Could you please help with adding post for specific group ?


I have created group:


https://www.facebook.com/groups/1864378780474099/


and in my Inspector there is no xhpc-message class name, only "_1mf _1mj" like in attachment:

Unfortunately now code with xhpc-message it is not working.

Could you please tell me how in your inspector the class for posting in group is called?

Thank you in advance !

Warm regards,
Jacek Antek

 

[jaryszek]

And one more question, is it possible to add images or videos via VBA while posting ?

Thank you Guys and thank you Ombir for your enormous help!

Jacek

 

[Ombir]

Try this for group posting:

Dim ie          As InternetExplorer
Sub Ombir_07Jan2017()
Dim doc         As HTMLDocument
Dim msg         As String
Dim Statusbox   As Object

Set ie = New InternetExplorer
msg = "Group Testing"

With ie
    .Visible = True
    .Navigate "https://www.facebook.com/groups/1864378780474099/"
    Call IEReady
End With

Set doc = ie.Document

doc.getElementById("email").Value = "jaryszek@o2.pl"
doc.getElementById("pass").Value = "Testtest1234"
doc.getElementById("loginbutton").Click
    Call IEReady
Do While Statusbox Is Nothing
    On Error Resume Next
    Set Statusbox = doc.getElementsByName("xhpc_message_text")(0)
Loop
On Error GoTo 0
    Statusbox.Value = msg
    Statusbox.Focus
    doc.getElementsByName("xhpc_message")(0).Value = msg
    Application.Wait Now() + TimeValue("00:00:02")
doc.getElementsByClassName("_1mf7 _4jy0 _4jy3 _4jy1 _51sy selected _42ft")(0).Click
    Application.Wait Now() + TimeValue("00:00:03")
    ie.Quit
End Sub
Sub IEReady()
Do While ie.Busy: DoEvents: Loop
waitfor 1
    Do While ie.ReadyState <> 4
        waitfor 3
    Loop
End Sub
Sub waitfor(ByVal nSec As Long)
nSec = nSec + Timer
    Do While Timer < nSec
       DoEvents
    Loop
End Sub

As far as I know, it is not possible to upload image/videos via VBA or it may be possible with help of complicated window APIs.

Another alternative might be possible with Autoit or Selenium. Google it.

 

[jaryszek]

Wow you are the best Ombir !!!

Thank you very much, I will try to do this image uploading.

Best Wishes
Jacek Antek