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

cg001

lss001 发表于 2024-10-11 16:31
参考一下楼上更正

好奇怪，还是这个错误

近段时间都这样，找不到原因


我用这个版本

lss001

cg001 发表于 2024-10-11 18:55
好奇怪，还是这个错误

近段时间都这样，找不到原因

看看有没有什么加载项
或者在控制面板修复一下Offfice

perfect131

cg001 发表于 2024-10-11 18:55
好奇怪，还是这个错误

近段时间都这样，找不到原因

tls错误 更换对象 或者设置ie设置
4个对象 随便换 3楼
https://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1628424&pid=10988357

tls解决
https://club.excelhome.net/thread-1360051-1-1.html?_dsign=94ac2682
https://club.excelhome.net/forum.php?mod=viewthread&tid=1658024&_dsign=c4e90222

你这个太基础了 直接curl法
https://club.excelhome.net/threa ... tml?_dsign=d862aee4

zpy2

cg001 发表于 2024-10-11 11:31
出现这个错误

浏览器f12抓一下包，看看，我这里curl可以获取。
你win10用curl试试

cg001

perfect131 发表于 2024-10-11 22:02
tls错误 更换对象 或者设置ie设置
4个对象 随便换 3楼
https://club.excelhome.net/forum.php?mod=redi ...

大师好，这个用你说的方法试过了，都不行

这个是curl的
Sub http_request()
    Dim winhttpObj As Object
    Dim resp As String
    Set winhttpObj = CreateObject("WinHttp.WinHttpRequest.5.1")
    With winhttpObj
    .Open "null", "https://flash-api.xuangubao.cn/api/pool/detail?pool_name=limit_up", False
   
    .send
    End With
    resp = winhttpObj.responseText
    Debug.Print resp
End Sub

这个是tls更换对象及对IE设置
With CreateObject("winhttp.WinHttpRequest.5.1")  '("MSXML2.ServerXMLHTTP")  '("Microsoft.XMLHTTP") '("Winhttp.Winhttprequest.5.1")  'CreateObject("MSXML2.XMLHTTP")
        .Open "GET", url, False
        '.option(9) = 512   'TLS1.1
        .send
        jsonData = .responseText
    End With
    jsonData = getjsondata(url)

都是上面的错误信息，请大师帮忙处理一下，谢谢

cg001

perfect131 发表于 2024-10-11 22:02
tls错误 更换对象 或者设置ie设置
4个对象 随便换 3楼
https://club.excelhome.net/forum.php?mod=redi ...

perfect131

cg001 发表于 2024-10-12 10:07

谁写的半成代码 还open Null

q8254733

用内置浏览是10年前的技术，早过时了，还字典正则，用来学习原理还行，生产力完蛋。

perfect131

q8254733 发表于 2024-10-12 11:31
用内置浏览是10年前的技术，早过时了，还字典正则，用来学习原理还行，生产力完蛋。

胡说八道 你先搞个猫眼的字体加密再来说吧

q8254733

perfect131 发表于 2024-10-12 11:47
胡说八道 你先搞个猫眼的字体加密再来说吧

字体加密跟我xpath有什么关系？管你什么通通拿来