Skip to content

Instantly share code, notes, and snippets.

@nalgeon nalgeon/suggest.vbs

Last active Jun 26, 2020
What would you like to do?
Пример работы с подсказками DaData на VBScript
Dim http
Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
timeout = 2000 'milliseconds
http.SetTimeouts timeout, timeout, timeout, timeout
query = "7719402047"
request = "{ ""query"": "" " & query & " "" } "
http.Open "POST", ""
http.SetRequestHeader "Content-Type", "application/json"
http.SetRequestHeader "Authorization", "Token ВАШ_API_ключ"
http.Send request
resp = http.ResponseText
WScript.Echo resp

This comment has been minimized.

Copy link

romanvpopov commented Mar 12, 2020

г томск ул интер

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.