Authentication 使用MSXML2.XMLHTTP.6.0登录网站_Authentication_Web

Authentication 使用MSXML2.XMLHTTP.6.0登录网站

authentication web

Authentication 使用MSXML2.XMLHTTP.6.0登录网站,authentication,web,Authentication,Web,需要使用MSXML2.XMLHTTP.6.0登录以下特定网站的帮助。我有代码提取的网站上的表，但需要帮助登录请。希望弹出消息确认成功登录。下面是我从另一篇文章中“借用”的尝试。提前谢谢 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

需要使用MSXML2.XMLHTTP.6.0登录以下特定网站的帮助。我有代码提取的网站上的表，但需要帮助登录请。希望弹出消息确认成功登录。下面是我从另一篇文章中“借用”的尝试。提前谢谢

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://flightaware.com/account/session", False
  .setRequestHeader "Content-Type", "text/xml"
  .send "flightaware_username = MyEmail@yahoo.com & flightaware_password = MyPassword"
  .Open "GET", "https://flightaware.com/account/session", False
  .setRequestHeader "Content-Type", "text/xml"
  .send
End With