如何在IE被屏蔽的情况下登录网站并在VBA中检索数据？

Sub LoginAndRetrieveData()
    Dim loginUrl As String
    Dim dataUrl As String
    Dim username As String
    Dim password As String
    Dim httpRequest As Object
    Dim responseData As String
    
    ' 设置登录URL和数据检索URL
    loginUrl = "https://example.com/login"
    dataUrl = "https://example.com/data"
    
    ' 设置用户名和密码
    username = "your_username"
    password = "your_password"
    
    ' 创建HTTP请求对象
    Set httpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    ' 发送登录请求
    With httpRequest
        .Open "POST", loginUrl, False
        .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .send "username=" & username & "&password=" & password
    End With
    
    ' 获取登录后的Cookie
    Dim cookie As String
    cookie = httpRequest.getResponseHeader("Set-Cookie")
    
    ' 使用Cookie进行数据检索
    With httpRequest
        .Open "GET", dataUrl, False
        .setRequestHeader "Cookie", cookie
        .send
        responseData = .responseText
    End With
    
    ' 处理检索到的数据
    ' ...
    
    ' 关闭HTTP请求对象
    Set httpRequest = Nothing
End Sub