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
Bookmarks