451355_de-DE

liliconcom

Wie kann ich die Abfrageergebnisse dieser Website mit einem Skript herunterladen?

Dies ist Code in einer anderen Sprache, wie ändere ich ihn, damit er funktioniert? Danke euch allen!

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

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

• Das Obige ist VBA-Code, wie ändert man die JSL-Ausführung? Danke!

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

Sehen Sie sich New HTTP Request im Scripting Index (und höchstwahrscheinlich Guide) mit aktiviertem JSON an: