抓取通过加密的HTTPS网页数据

zbs112

如网址：https://web.ifzq.gtimg.cn/appstock/app/day/query?code=sh600105


我用如下VBA代码：

Private Sub CommandButton1_Click()
    Dim Url As String
    Url = "https://web.ifzq.gtimg.cn/appstock/app/day/query?code=sh600105"
    Dim strText As String
    With CreateObject("msxml2.xmlhttp")
        .Open "POST", Url, False
        .send
        strText = .responseText
    End With
End Sub

提示运行错误，系统找不到指定资源。

如何修改代码，获得加密网页https的内容？


打开该网址，网页数据截图如下：


我用Fiddler工具，截图如下：

perfect131

换个对象

zbs112

刚才试改了楼上提供的对象，还是提示错误。

perfect131

zbs112 发表于 2023-5-30 18:30
刚才试改了楼上提供的对象，还是提示错误。

应该是 TSL错误
参考： https://club.excelhome.net/forum ... amp;_dsign=c4e90222

perfect131

我这边 4 个对象 都能获取

可能你的 IE 有问题
3 楼：https://club.excelhome.net/forum ... 24&pid=10988357

zbs112

前几天我电脑WIN7也可以正常获取数据。

现在就不能了，HTTPS前面有个锁，我截图如下：

wanghan519

4楼说的对，改成WinHttp.WinHttpRequest.5.1就行

zbs112

好的，谢谢两位！

tspliu

wanghan519 发表于 2023-5-30 19:39
4楼说的对，改成WinHttp.WinHttpRequest.5.1就行

可能和这个关系不大，这个get请求我试着是没有任何问题