如何在 Visual Basic 6 (vb6) 中使用 TLS 1.2 - REST

APIGee https://apigee.com/api-management/正在将请求迁移到 TLS 1.2

操作系统：Windows Server 2003！！！

我有一个用 vb6 开发的旧应用程序，但由于这次新迁移，它停止工作

这是我的代码

Public Function GetCustomerName(ByVal pCPFCliente As String) As String
    Dim xmlhttp As MSXML2.ServerXMLHTTP
    Set xmlhttp = New MSXML2.ServerXMLHTTP


    xmlhttp.Open "GET", const_URL & "/customer=" & pCPFCliente & "&identification.type=CPF", False
    xmlhttp.setRequestHeader "Content-Type", "application/json"
    xmlhttp.setRequestHeader "Authorization", const_TOKEN
    xmlhttp.send

    Dim objJson As Object
    Set objJson = JSON.parse(xmlhttp.responseText)
    Dim lacoRecord As Integer
    Dim customerName As String
    customerName = ""

    If xmlhttp.Status = 200 Then
        For lacoRecord = 1 To objJson.Item("records").Count
            customerName = objJson.Item("records")(lacoRecord).Item("name")
        Next
    ElseIf xmlhttp.Status = 404 Then
        If objJson.Item("errorCode") = 20023 Then
            Call WriteLogManual("CONSULTA CPF", "Cliente não encontrado! " & pCPFCliente, pPedido, 0, 0, 0, 0, 0)
        Else
            Call WriteLogManual("CONSULTA CPF", "Erro ao consultar CPF " & pCPFCliente & " - " & xmlhttp.responseText, pPedido, 0, 0, 0, 0, 0)
        End If
    ElseIf xmlhttp.Status = 503 Then
        MsgBox "Ocorreu um erro 503 ao buscar o CPF do Cliente na API. " & Chr(13) & xmlhttp.responseText
        Call WriteLogManual("CONSULTA CPF", "Erro ao consultar saldo na ApiGee - " & xmlhttp.responseText, pPedido, 0, 0, 0, 0, 0)
    Else
        MsgBox "Ocorreu um erro ao buscar o saldo do Cliente na API. " & Chr(13) & xmlhttp.responseText
        Call WriteLogManual("CONSULTA CPF", "Erro ao consultar saldo na ApiGee - " & xmlhttp.responseText, pPedido, 0, 0, 0, 0, 0)
    End If

    GetCustomerName = customerName
End Function

为了使用更新的 TLS 协议，需要更新 Windows 上的底层 WinHTTP 服务。这确实不是 VB6 特有的，它适用于在 Windows 上使用 WinHTTP 库的所有应用程序。

Microsoft 在以下位置提供了有关将更新应用到 Windows 7、Windows Server 2008 R2 和 Windows Server 2012 的说明：知识库 3140245 https://support.microsoft.com/en-us/help/3140245/update-to-enable-tls-1-1-and-tls-1-2-as-a-default-secure-protocols-in。还必须更新注册表中的 DefaultSecureProtocols 值，以默认启用 TLS 1.2（和其他所需版本）。

如果您使用的是旧版本的 Windows，WinHTTP 库不支持高于 1.0 的 TLS https://stackoverflow.com/questions/10794670/tls-1-2-on-windows-server-2003-and-xp（并且由于您不再获得操作系统的安全更新，这可能是您最不用担心的）。您需要使用一些其他不使用底层操作系统 Schannel 库来处理加密的 HTTPS 库，尽管我不知道有什么可以轻松集成到 VB6 中。将服务器升级到受支持的 Windows 版本可能是最简单的方法。