VBA 学习笔记 - 网络请求

Posted 2023-01-24 笑虾

VBA 学习笔记 - 网络请求

• Microsoft.XMLHTTP
• MSXML2.serverXMLHTTP.6.0
• WinHttp.WinHttpRequest.5.1
• 参考资料

Microsoft.XMLHTTP

Sub XMLHTTPTest()

    Dim request As Object
    Dim response As String
    Dim isAsync  As Boolean
    Dim url As String

    Set request = CreateObject("Microsoft.XMLHTTP")
    isAsync = True
    url = "https://cn.bing.com/hp/api/v1/trivia?format=json&id=HPQuiz_20221212_PoinsettiaDay&FORM=Z9FD1"
    
    With request
        .Open "POST", url, isAsync
        .setRequestHeader "Cookie", "jerry=9527"
        .send
        While .ReadyState <> 4
            DoEvents
        Wend
        
        response = .responseText
        Debug.Print "《Microsoft.XMLHTTP》"
        Debug.Print "状态：" & .Status
        Debug.Print "响应：" & response
        Debug.Print vbCrLf
    End With

End Sub

MSXML2.serverXMLHTTP.6.0

Sub serverXMLHTTPTest()

    Dim request As Object
    Dim response As String
    Dim isAsync  As Boolean
    Dim url As String

    Set request = CreateObject("MSXML2.serverXMLHTTP.6.0")
    isAsync = True
    url = "https://cn.bing.com/hp/api/v1/trivia?format=json&id=HPQuiz_20221212_PoinsettiaDay&FORM=Z9FD1"
    
    With request
        .Open "POST", url, isAsync
        .setRequestHeader "Cookie", "jerry=9527"
        .send
        .WaitForResponse
        
        response = .responseText
        Debug.Print "《MSXML2.serverXMLHTTP.6.0》"
        Debug.Print "状态：" & .Status
        Debug.Print "响应：" & response
        Debug.Print vbCrLf
    End With

End Sub

WinHttp.WinHttpRequest.5.1

Sub winHttpRequestTest()

    Dim request As Object
    Dim response As String
    Dim isAsync  As Boolean
    Dim url As String

    Set request = CreateObject("WinHttp.WinHttpRequest.5.1")
    isAsync = True
    url = "https://cn.bing.com/hp/api/v1/trivia?format=json&id=HPQuiz_20221212_PoinsettiaDay&FORM=Z9FD1"
    
    With request
        .Open "POST", url, isAsync
        .setRequestHeader "Cookie", "jerry=9527"
        .send
        .WaitForResponse
        
        response = .responseText
        Debug.Print "《WinHttp.WinHttpRequest.5.1》"
        Debug.Print "状态：" & .Status
        Debug.Print "响应：" & response
        Debug.Print vbCrLf
    End With

End Sub

参考资料

MSDN - WinHttp.WinHttpRequest.5.1