Hello everyone,

I was just trying to get login facebook using MSXML2 object but I do not why its giving me an error.
I am able to login using IE as object.
I am using the following code.

Sub LoginFacebook()

    Dim xmlHttp As MSXML2.ServerXMLHTTP60
    Dim Html As HTMLDocument
    Dim i As Integer
    Dim URL As String
    
    Application.ScreenUpdating = False
        
        URL = "https://www.facebook.com"
        
    'New instance of Internet Explorer
            Set xmlHttp = New MSXML2.ServerXMLHTTP60
            Set Html = New HTMLDocument
            
            xmlHttp.Open "GET", URL, False
            xmlHttp.send
            Html.body.innerHTML = xmlHttp.responseText
            'xmlHttp.Wait
            
            Do Until xmlHttp.ReadyState = READYSTATE_COMPLETE And xmlHttp.Status = 200
                DoEvents
            Loop
            
            Html.getElementById("email").Value = "UserID"
            Html.getElementById("pass").Value = "Pass"

'''''''''getting error
            Html.getElementById("u_0_v").Click
end sub