Global $sWebsite = 'http://ip-api.com/json'
Global $sLocation = 0
Global $sProvider = 0
$bRead = InetRead($sWebsite, 1)
If $bRead = '' Then
MsgBox(48, 'Error', $sWebsite & ' does not responding')
Else
$sHtml = BinaryToString($bRead, 4)
$sLocation = StringRegExpReplace($sHtml, '(?si).*?"city":"(.*?)","country":"(.*?)".*', '\1, \2')
$sProvider = StringRegExpReplace($sHtml, '(?si).*?"isp":"(.*?)".*', '\1')
EndIf
MsgBox(64, 'Results', StringFormat('Откуда вы: %s\nВаш провайдер: %s', $sLocation, $sProvider))