Для работы нужна библиотека JSON.ahk - https://yadi.sk/d/XaGmxYIN3J4Jw2
Сам код (путь к библиотеки укажи свой):
Код
#SingleInstance, Force
#NoEnv
#Include, %A_ScriptDir%\lib\JSON.class.ahk
FileEncoding, % "UTF-8"
url(url) {
ComObjError(false)
HTTP := ComObjCreate("WinHttp.WinHttpRequest.5.1")
HTTP.Open("GET", url, false)
HTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko")
HTTP.SetRequestHeader("Referer", url)
HTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
HTTP.Send()
HTTP.WaitForResponse()
return JSON.Decode(HTTP.ResponseText)
}
IP := "2.2.2.2"
json := url("http://ip-api.com/json/" IP "?lang=ru")
MsgBox, % "IP-адрес: " IP "`nГород: " json["city"] "`nСтрана: " json["country"] "`nКод страны: " json["countryCode"] "`nРегион (Область): " json["regionName"] " (" json["region"] ")`nПровайдер: " json["isp"] "`nПочтовый индекс: " json["zip"] "`nТаймзона: " json["timezone"] "`nШирота: " json["lon"] "`nДолгота: " json["lat"]
