Win7无法正访问网页数据问题解决

测试代码如下：

Sub TestDemo()
    Dim  rsp As String, url As String
    url = "https://www.cpk565.com/data/xyft/lotteryList/2020-02-23.json"
    With CreateObject("MSXML2.XMLHTTP.6.0")
        .Open "GET", url, False
        .Send
        rsp = .responsetext
        Debug.Print rsp
    End With
End Sub

出现问题：
通过测试发现，该代码在win10下成功通过，但在win7环境中没有成功！

解决办法：
按下图对ie浏览器进行设置

1、打开IE浏览器点击菜单栏的“工具”或者右上角的齿轮图标打开菜单，选择“Internet选项”；
2、然后切换到“高级”选项卡，在下方设置中找到并勾选上“使用TSL1.0 TSL 1.1 TSL 1.2”和“使用SSL3.0”选项，点击确定；
3、当然也可以使用IE浏览器的“还原高级设置”按钮，不过其他修改过的选项就得重新设置了。