474424_en-US

liliconcom

How to change the VBA of excel to JSL in order to download data?

Hello, everyone!

The VBA can download data from this website.But I don't know how to change it to JSL to make it work.

Thank you very much!

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

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

Use JMP's http request, just like VB.

 

The octet stream means you need blobToChar conversion.The octet stream means you need blobToChar conversion.The octet stream means you need blobToChar conversion.The octet stream means you need blobToChar conversion.

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

VBA code, I just don't know how to change to JSL.

Experts are invited to guide.Thank you very much!

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

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

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

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"}]