451355_it-IT

liliconcom

Come posso scaricare i risultati della query di questo sito Web con uno script?

Questo è un codice in un'altra lingua, come lo modifico per farlo funzionare? grazie a tutti!

Sub West()
    Dim result, antistop, Values As Variant, i, j, x, y, cnt
    Dim Json As Object
    cnt = Range("b1") & ""
    antistop = "{""question"":""ROE>20"",""perpage"":" & cnt & ",""page"":9,""secondary_intent"":""stock"",""log_info"":""{\""input_type\"":\""click\""}"",""source"":""Ths_iwencai_Xuangu"",""version"":""2.0"",""query_area"":"""",""block_list"":"""",""add_info"":""{\""urp\"":{\""scene\"":1,\""company\"":1,\""business\"":1},\""contentType\"":\""json\"",\""searchInfo\"":true}""}"
    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "Post", "http://x.10jqka.com.cn/customized/chart/get-robot-data", False
        .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/97.0.4692.71 Safari/537.36"
        .setRequestHeader "Content-Type", "application/json"
        .send antistop
        result = Split(Split(.responsetext, """datas"":")(1), ",""meta")(0)
        Set Json = JsonConverter.ParseJson(result)
      
    
End Sub

Sceneggiatura回复： 如何用脚本下载这个网站的查询结果？

• Quanto sopra è il codice VBA, come modificare nell'esecuzione JSL? Grazie!

回复： 如何用脚本下载这个网站的查询结果？

Dai un'occhiata alla nuova richiesta HTTP nell'indice degli script (e molto probabilmente nella guida) con JSON abilitato:

 

Re: Come scaricare i risultati delle query di questo sito Web con lo script?

grato!

Attraverso molti usi, ho praticamente imparato questo metodo di questa guida allo scripting.

 

Ma questo sito non può essere implementato in questo modo.

Ottengo l'URL dei dati come nello screenshot ma non funziona

http://ai.iwencai.com/urp/v7/landing/getDataList