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

编程问答 2022-08-07

问题描述

我在 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

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

httpshttpshttpsmsxml2