VBA - XMLHTTP 和 WinHttp 请求速度

VBA - XMLHTTP 和 WinHttp 请求速度

vba
Sub XMLHTTPRequestExample()
    Dim xmlHttp As Object
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
    
    Dim url As String
    url = "http://api.example.com/data"
    
    xmlHttp.Open "GET", url, False
    xmlHttp.send
    
    Dim response As String
    response = xmlHttp.responseText
    
    ' 处理响应结果
    MsgBox response
End Sub

vba
Sub WinHTTPRequestExample()
    Dim winHttp As Object
    Set winHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    Dim url As String
    url = "http://api.example.com/data"
    
    winHttp.Open "GET", url, False
    winHttp.send
    
    Dim response As String
    response = winHttp.responseText
    
    ' 处理响应结果
    MsgBox response
End Sub

vba
Sub CompareRequestSpeed()
    Dim xmlHttp As Object
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
    
    Dim winHttp As Object
    Set winHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    Dim url As String
    url = "http://api.example.com/data"
    
    Dim i As Integer
    Dim startTime As Double
    Dim endTime As Double
    Dim xmlHttpTime As Double
    Dim winHttpTime As Double
    
    For i = 1 To 100
        startTime = Timer
        
        xmlHttp.Open "GET", url, False
        xmlHttp.send
        
        endTime = Timer
        xmlHttpTime = xmlHttpTime + (endTime - startTime)
        
        startTime = Timer
        
        winHttp.Open "GET", url, False
        winHttp.send
        
        endTime = Timer
        winHttpTime = winHttpTime + (endTime - startTime)
    Next i
    
    MsgBox "XMLHTTP 平均耗时: " & xmlHttpTime / 100 & "秒" & vbCrLf & "WinHttp 平均耗时: " & winHttpTime / 100 & "秒"
End Sub