使用Xmlhttprequest登录网站时出现错误

Question

我想使用xmlhttprequest登录到一个网站。我的代码是

  Dim xmlreq As New MSXML2.XMLHTTP60
  Dim htmldoc As New MSHTML.HTMLDocument
  Dim htmlmsg As MSHTML.IHTMLElement
  xmlreq.Open "GET", "https://yyy.com/main.php?pid=406&action=zz", False, "user", "password"
  xmlreq.send
  htmldoc.body.innerHTML = xmlreq.responseText
  Set htmlmsg = htmldoc.getElementById("search-btn")
  Debug.Print htmlmsg.innerText

此代码无法使我越过登录页面，该页面一直停留在该页面上。除了“用户名”和“密码”之外，我还需要在提交之前提供第三个字段，这是一个下拉选项。

我不知道如何将此字段传递给我的代码。下面是登录表单的屏幕截图。