来自已启用ssl的url上的Excel vba的POST请求

Sub SendPOSTRequest()
    Dim url As String
    Dim postData As String
    Dim httpRequest As Object
    
    ' 设置URL和POST数据
    url = "https://example.com/api"
    postData = "param1=value1&param2=value2"
    
    ' 创建WinHttpRequest对象
    Set httpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    ' 设置SSL选项
    httpRequest.Option(WinHttpRequestOption_SecureProtocols) = SecureProtocol_SSL3 Or SecureProtocol_TLS1 Or SecureProtocol_TLS1_1 Or SecureProtocol_TLS1_2
    
    ' 发送POST请求
    httpRequest.Open "POST", url, False
    httpRequest.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    httpRequest.send postData
    
    ' 获取响应内容
    MsgBox httpRequest.responseText
    
    ' 释放资源
    Set httpRequest = Nothing
End Sub