求教网页数据下载

刀厂八言

smsn 发表于 2022-12-1 10:46
有意思，晚上用电脑看看

麻烦看看，这个数据一直爬不下来

donathan

需要自行构造协议头

刀厂八言

donathan 发表于 2022-12-1 16:05
需要自行构造协议头

怎么构造？请指点！
我按照浏览器f12里的信息，已经把request header里的信息都进行了setrequest设置，还是不行

刀厂八言

求教怎么解决？

刀厂八言

在线等帮助，谢谢！

smsn

请求数据的时候需要带上两个数据。
cookie phpsessid和authorization ，应该在响应头或正文中有，没电脑试。
教程速成这有
https://club.excelhome.net/forum.php?mod=viewthread&tid=1159783&extra=page%3D1%26filter%3Ddigest%26digest%3D1&mobile=2

刀厂八言

smsn 发表于 2022-12-2 13:09
请求数据的时候需要带上两个数据。
cookie phpsessid和authorization ，应该在响应头或正文中有，没电脑试 ...

试了下，还是不行，我已经这样设置了

Set OBJ = CreateObject("Msxml2.XMLHTTP")
        With OBJ
            .Open "get", "https://sc.macromicro.me/charts/data/15742", False
           .setRequestHeader "authorization", "Bearer eb8684c216bdda1f3eb829cf8374491e"
            .setRequestHeader "cookie", "PHPSESSID=bb2km5ucodqdb1ogh27mjr2jr2"
            .send
aaa=.responsetext
end with


还是没数据返回

Kaohsing

刀厂八言 发表于 2022-12-2 16:10
试了下，还是不行，我已经这样设置了

Set OBJ = CreateObject("Msxml2.XMLHTTP")

COOKIE 是动态的
、

smsn

1. Sub getjson()
   
2.     Dim Token, JsonObj
   
3.     Set oDom = CreateObject("htmlfile")
   
4.     With CreateObject("Msxml2.XMLHTTP")
   
5.         .Open "GET", "https://sc.("网址.me/collections/31/cn-finance-relative/15742/cn-interest-rate-corridor", False
   
6.         .send'
   
7.         oDom.body.innerHTML = .responseText
   
8.         Token = oDom.getElementsByTagName("p")(0).dataset.stk
   
9.         .Open "GET", "https://sc."网址.me/charts/data/15742", False
   
10.         .setRequestHeader "Authorization", "Bearer " & Token
    
11.         .send
    
12.         oDom.parentWindow.execScript "var json= " & .responseText
    
13.         Set JsonObj = oDom.parentWindow.json
    
14.         Debug.Print .responseText
    
15.     End With
    
16.     Stop
    
17. End Sub

复制代码

smsn

Sub getjson()
    Dim Token, JsonObj, P
    Set oDom = CreateObject("htmlfile")
    With CreateObject("Msxml2.XMLHTTP")
        .Open "GET", "https://sc."网址.me/collections/31/cn-finance-relative/15742/cn-interest-rate-corridor", False
        .send
        oDom.body.innerHTML = .responseText
        Token = oDom.querySelector(".sosume p").getAttribute("data-stk")'IE8 以上可使用
        .Open "GET", "https://sc."网址.me/charts/data/15742", False
        .setRequestHeader "Authorization", "Bearer " & Token
        .send
        oDom.parentWindow.execScript "var json= " & .responseText
        Set JsonObj = oDom.parentWindow.json
        Debug.Print .responseText
    End With
    Stop
End Sub