使用 Excel-VBA 获取 HTML 源 - 弹出 Window

Question

下面的帖子有一种使用以下代码提取 url 的 HTML 的方法。

使用 Excel-VBA 获取 HTML 源

    Public Function getHTTP(ByVal url As String) As String
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", url, False: .Send
        getHTTP = StrConv(.responseBody, vbUnicode)
    End With
End Function

代码运行良好，但我的问题是我拥有的网站（内部网站）在我第一次登录时弹出 window。 所以通过这种方法访问得到了弹出窗口的 HTML。 我怎样才能超越这个 window？

手动操作网站时，第一次访问web页面时，弹窗出现几秒钟然后消失，我点击了一个按钮登录。

---

更新：深入研究，返回的 html 是该站点的登录 window。 通常在这个基于 Intranet 的站点上，我当天第一次访问时，我单击“继续”按钮（没有用户名/密码），然后它会自动登录。并且任何时候我继续访问该站点时，我都可以 go 直接访问该站点无需重新登录。我用作 url 的链接是指向该站点上某个页面的直接链接。 很好奇如何让 XMLHTTP 登录到网站...

这是登录信息 - 它不是标准的用户名和密码。 它是用户名、密码、部门和城市。 还有一个单选按钮，用于在 2 个设置之间切换。 然后我会点击登录。

Answer 1

我会先尝试这个小修改，以便准确获取中间页面的responseBody （仅一次）：

Public Function getHTTP(ByVal url As String) As String
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", url, False: .send
        Debug.print StrConv(.responseBody, vbUnicode):getHTTP = ""
    End With
End Function

然后我会复制来自Immediate Window的响应并使用下一个改编代码：

Public Function getHTTP(ByVal url As String) As String
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", url, False: .send

        Do While StrConv(.responseBody, vbUnicode) = "the copied text from Immediate Window"
            DoEvents
        Loop
        getHTTP = StrConv(.responseBody, vbUnicode)
    End With
End Function

或者，如果响应太长，请使用Left("the text in discussion", 10) = "Whatever x"

编辑：尝试以下列方式转换您的初始 function 以包括身份验证：

Public Function getHTTP(ByVal url As String) As String
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", url, False: .Send
        .setRequestHeader "Authorization", "Basic " & Base64Encode(Your_User & ":" & password)
        getHTTP = StrConv(.responseBody, vbUnicode)
    End With
End Function