451355_en-US

liliconcom

How can I download the query results of this website with a script?

This is code in another language, how do I modify it to work? thank you all!

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

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

Check out New HTTP Request in Scripting Index (and most likely Guide) with JSON enabled:

 

Re: How to download query results of this website with script?

grateful!

I have basically mastered this method of this scripting guide through many uses.

 

But this site cannot be implemented in this way.

I get the url of the data as in the screenshot but it doesn't work

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