Need help with logon website using MSXML2.XMLHTTP.6.0 for the specific website below. I have the code to extract the tables on the website but need help logging on please. Would really like a pop up msg to confirm a successful logon. Below if my attempt that I "borrowed" from another post. Thanks in advance.
Dim xml As Object
Dim html As Object
Dim text As Object
Set xml = CreateObject("MSXML2.XMLHTTP.6.0")
Set html = CreateObject("htmlFile")
With xml
.Open "POST", "https://flightwise.com/Account/Login", False
.setRequestHeader "Content-Type", "text/xml"
.send "email=MyEmail@yahoo.com&Password=MyPassword"
.Open "GET", "https://flightwise.com/Account/Login", False
.setRequestHeader "Content-Type", "text/xml"
.send
End With
Aucun commentaire:
Enregistrer un commentaire