Вопрос по GetIpInfoRu(ip)

Статус
В этой теме нельзя размещать новые ответы.

Vlad1917592p5

Новичок
Автор темы
1
0
Что делаю не так?

(инклуд)
C++:
GetIpInfoRu(IP){
    UrlDownloadToFile, % "http://api.2ip.ua/geo.xml?ip=" IP, ipinfo.xml
    UrlDownloadToFile, % "http://api.2ip.ua/provider.xml?ip=" IP, infprov.xml
    FileRead, ipinfo, *P65001 %A_ScriptDir%\ipinfo.xml
    FileRead, infprov, *P65001 %A_ScriptDir%\infprov.xml
    RegExMatch(ipinfo,"<country_rus>(.*)</country_rus>.*<region_rus>(.*)</region_rus>.*<city_rus>(.*)</city_rus>.*<latitude>(.*)</latitude>.*<longitude>(.*)</longitude>.*<time_zone>(.*)</time_zone>",infip)
    infprov := RegExReplace(infprov,"&quot;","''")
    RegExMatch(infprov,"<ip>(.*)</ip>.*<name_rus>(.*)</name_rus>.*<site>(.*)</site>",infp)
    FileDelete, %A_ScriptDir%\ipinfo.xml
    FileDelete, %A_ScriptDir%\infprov.xml
    infip := Array(infip1,infip2,infip3,infip4,infip5,infip6,infp1,infp2,infp3)
    ;<< 1 - Страна 2 - Область 3 - Город 4 - latitude 5 - longitude 6 - Часовой пояс 7 - Ip Adrees с сервера 8 - Имя провайдера 9 - Сайт провайдера >>
    return infip
}

Делаю:
Что делаю не так?

(инклуд)
C++:
:?*:/geoip`n::
ShowDialog(1, "Информация о IP адресе", "Введите IP адресс , о котором хотите узнать информацию", "Ок")
input, geoips, V, {enter}
GetIpInfoRu(geoips)
SendInput,{f6}%infip1% | %geoips% {enter}
return

Данные не выдаются. Прошу помощи , что делаю не так?
 

Smer4

Известный
424
51
Лол уже делал такой скрипт для себя, я делал так.
Из кода.
Код:
Addr := GetIpInfoRu(ip)
Country := % Addr[1]
OBL := % Addr[2]
City := % Addr[3]
IP := % Addr[7]
Provider := % Addr[8]
AddChatMessage( "Страна - " Country " Область - " OBL " Город - " City " IP адрес - " IP " Провайдер - " Provider)
 
Статус
В этой теме нельзя размещать новые ответы.