474424_it-IT

liliconcom

Come cambiare il VBA di Excel in JSL per scaricare i dati?

Ciao a tutti!

Il VBA può scaricare dati da questo sito Web. Ma non so come cambiarlo in JSL per farlo funzionare.

Grazie mille!

Sub Post()
Dim User_agent, Url_Post
User_agent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/87.0.4280.66 Safari/537.36"
Url_Post = "http://excalc.icfqs.com:7616/TQLEX?Entry=HQServ.hq_nlp"
Post_data = "[{""funcId"":4,""cond"":""code,1603969|"",""modname"":""TickAly""}]"
With CreateObject("WinHttp.WinHttpRequest.5.1")
    .Open "post", Url_Post, False
    .SetRequestHeader "User-Agent", User_agent
    .Send (Post_data)
    Debug.Print .Responsetext
End With
End Sub

Automazione e scriptingfinestre回复： 这样的网址怎样才能编写脚本才能下载数据？

POST:
http://excalc.icfqs.com:7616/TQLEX?Entry=HQServ.hq_nlp HTTP/1.1
Host: excalc.icfqs.com:7616
Proxy-Connection: keep-alive
Content-Length: 85
Origin: http://excalc.icfqs.com:7616
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/78.0.3904.108 Safari/537.36
Content-Type: text/plain
Accept: */*
Referer: http://excalc.icfqs.com:7616/site/tdx-zbfx/page-detail.html?setcode=1&code=688262&name=%E5%9B%BD%E8%8A%AF%E7%A7%91%E6%8A%80&color=0
Accept-Encoding: gzip, deflate
Accept-Language: zh-CN,zh;q=0.9,en;q=0.8,zh-TW;q=0.7
Cookie: ASPSessionID=

[{"funcId":1,"offset":0,"count":200,"cond":"code,1688262|INT,3","modname":"TickAly"}]

回复： 这样的网址怎样才能编写脚本才能下载数据？

回复： 这样的网址怎样才能编写脚本才能下载数据？

Codice VBA, non so come passare a JSL.

Gli esperti sono invitati a guidare. Grazie mille!

Sub Post()
Dim User_agent, Url_Post
User_agent = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/87.0.4280.66 Safari/537.36"
Url_Post = "http://excalc.icfqs.com:7616/TQLEX?Entry=HQServ.hq_nlp"
Post_data = "[{""funcId"":4,""cond"":""code,1603969|"",""modname"":""TickAly""}]"
With CreateObject("WinHttp.WinHttpRequest.5.1")
    .Open "post", Url_Post, False
    .SetRequestHeader "User-Agent", User_agent
    .Send (Post_data)
    Debug.Print .Responsetext
End With
End Sub

回复： 这样的网址怎样才能编写脚本才能下载数据？

Usa la richiesta http di JMP, proprio come VB.

 

The octet stream means you need blobToChar conversion.The octet stream means you need blobToChar conversion.Il flusso di ottetti significa che hai bisogno della conversione blobToChar.