从 VBA 迁移到 VB.NET 后，MSXML2.XMLHTTP60 无法使用“https”

如何解决从 VBA 迁移到 VB.NET 后，MSXML2.XMLHTTP60 无法使用“https”

我在 vba 中有一个运行良好的代码。我正在迁移到 Visual Basic 中的应用程序。它适用于 http 网址，但不适用于 https。没有错误，只是 .readyState 永远不会得到 4（无限循环）。请帮忙。

Public Function GetResponse(ByVal url As String) As String

        Const RunAsync As Boolean = True
        Const ProcessComplete As Integer = 4

        Dim request As MSXML2.XMLHTTP60
        request = New MSXML2.XMLHTTP60

        Dim response As String

        With request
            .open("GET",url,RunAsync)
            .setRequestHeader("Content-Type","application/json")
            .send()

            do while request.readyState <> ProcessComplete
                Application.DoEvents()
                Debug.Print("code:" & request.readyState & " " & Now())
            Loop

            response = .responseText

        End With

        GetResponse = response
    End Function