#SingleInstance, Force
#NoEnv
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)
}

~Enter::
if (isInChat() = 1)
{
    Sleep, 200
    dwAddress := dwSAMP + 0x12D8F8
    chatInput := readString(hGTA, dwAddress, 256)
    if chatInput contains /checkip
    {
    showDialog("1", "{FFFAFA}IP Чекер", "{FFFAFA}Введите IP адрес", "Закрыть")
    input, IP, V, {enter}
    json := url("http://ip-api.com/json/" IP "?lang=ru")
    addChatMessage("{00FF00}[Чекер IP] Подождите идет определение данных IP")
    Sleep, 1000
    Info := "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"]
    showDialog("0", "{FFFAFA}IP Чекер", Info , "Закрыть")
    }
    return
}
return