关于get抓取网络数据时出现错误的问题

cg001

sub zt()
    Dim xhr As Object
    Dim url As String
    Dim responseText As String
    url = "https://flash-api.xuangubao.cn/api/pool/detail?pool_name=limit_up"
    Set xhr = CreateObject("MSXML2.XMLHTTP.6.0")    ' CreateObject("MSXML2.XMLHTTP")  '
    With xhr
        .Open "GET", url, False
'        .setRequestHeader "Accept -Encoding", "gzip , deflate"
'        .setRequestHeader "Accept -Language", "zh -cn"
'        .setRequestHeader "Connection", "Keep -Alive"
'        .setRequestHeader "Host", "flash -api.xuangubao.cn"
'        .setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.1; WOW64; Trident/7.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0; .NET4.0C; .NET4.0E)"
'        .setRequestHeader "Content-Type", "application/json; charset=UTF-8"

        .send
        jsonData = .responseText
    End With
end sub




运行到 .send 时总是提示未找到指定资源
请老师们指教一下，这个如何解决，谢谢！

lss001

Set xhr = CreateObject("Winhttp.Winhttprequest.5.1")

Yalishanda30

试试。。。。。。

cg001

Yalishanda30 发表于 2024-10-11 07:44
试试。。。。。。

出现这个错误

cg001

lss001 发表于 2024-10-11 07:33
Set xhr = CreateObject("Winhttp.Winhttprequest.5.1")

错误

lss001

cg001 发表于 2024-10-11 15:12
错误

sub zt()
    Dim xhr As Object
    Dim url As String
    Dim responseText As String

    url = "https://flash-api.xuangubao.cn/api/pool/detail?pool_name=limit_up"
    Set xhr = CreateObject("Winhttp.Winhttprequest.5.1")  
    With xhr
        .Open "GET", url, False
      
        .setRequestHeader "Content-Type", "application/json; charset=UTF-8"

        .send
        jsonData = .responseText
    End With
end sub

deadzlq

PQ参考解法

cg001

lss001 发表于 2024-10-11 15:37
sub zt()
    Dim xhr As Object
    Dim url As String

一样出现安全频道错误的信息

cg001

deadzlq 发表于 2024-10-11 15:55
PQ参考解法

这个我很少用，用VBA的比较多

lss001

cg001 发表于 2024-10-11 16:25
这个我很少用，用VBA的比较多

参考一下楼上更正