İp adresi konum sorgulama (Güncel) - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Chelt · 23 Kasım 2025, 17:32

bunu böyle deneyin

alias sorgula {
if (!$1) { echo -a Lütfen bir IP giriniz. Örnek: /sorgula 1.2.3.4 | return }
set %ipaddr $1
set %ipdata $null
echo -a IP %ipaddr bilgileri sorgulanıyor...
sockopen -e iplookup ipwho.is 443
}

on *:SOCKOPEN:iplookup:{
if ($sockerr) { echo -a Sunucuyla bağlantı kurulamıyor. | sockclose $sockname | return }
sockwrite -n $sockname GET / $+ %ipaddr HTTP/1.1
sockwrite -n $sockname Host: ipwho.is
sockwrite -n $sockname User-Agent: mIRC
sockwrite -n $sockname Connection: close
sockwrite -n $sockname $crlf
}

on *:SOCKREAD:iplookup:{
if ($sockerr) { echo -a Sunucuyla bağlantı hatası. | sockclose $sockname | return }
var %tmp
sockread %tmp
if (%tmp != $null) {
if (!$regex(%tmp,/^(HTTP\/|Content-|Server:|Date:|Connection:|Access-Control)/i)) {
set %ipdata %ipdata $+ %tmp
}
}
}

on *:SOCKCLOSE:iplookup:{ .timer 1 1 showdata }

alias showdata {
if (%ipdata == $null) { echo -a Gösterilecek veri yok. | unset %ipaddr | unset %ipdata | return }

var %type = Bulunamadı
var %asn = Bulunamadı
var %country = Bulunamadı
var %region = Bulunamadı
var %city = Bulunamadı
var %org = Bulunamadı
var %domain = Bulunamadı
var %continent = Bulunamadı

; API success kontrolü
if ($regex(%ipdata,/"success":\s*false/i)) {
echo -a 4HATA: API IP bilgisini döndüremedi.
unset %ipaddr | unset %ipdata
return
}

if ($regex(%ipdata,/"type":"([^"]+)"/i)) { set %type $regml(1) }
if ($regex(%ipdata,/"continent":"([^"]+)"/i)) { set %continent $regml(1) }

if ($regex(%ipdata,/"asn":\s*([0-9]+)/i)) { set %asn $regml(1) }
elseif ($regex(%ipdata,/"asn":"AS([0-9]+)"/i)) { set %asn $regml(1) }

if ($regex(%ipdata,/"org":"([^"]+)"/i)) { set %org $regml(1) }
elseif ($regex(%ipdata,/"isp":"([^"]+)"/i)) { set %org $regml(1) }

if ($regex(%ipdata,/"country":"([^"]+)"/i)) { set %country $regml(1) }
if ($regex(%ipdata,/"region":"([^"]+)"/i)) { set %region $regml(1) }
if ($regex(%ipdata,/"city":"([^"]+)"/i)) { set %city $regml(1) }

if ($regex(%ipdata,/"domain":"([^"]+)"/i)) { set %domain $regml(1) }
elseif ($regex(%ipdata,/"hostname":"([^"]+)"/i)) { set %d

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
İp adresi ve konum sorgulama	Che	mIRC Scripting Hazır Kodlar	3	10 Mayıs 2025 11:30
IP adresi şehir/ülke sorgulama	XcLusive	mIRC Scripting Hazır Kodlar	6	19 Mart 2025 14:59
Güncel Haberlerin Doğru Adresi	knk	Web Site Tanıtımı	0	28 Haziran 2024 02:36
e-Devlet şehit sorgulama sayfası açıldı! e-Devlet şehit sorgulama nasıl yapılır? Soy ağacı sorgulama...	yaSmin	Haber Arşivi	0	28 Şubat 2018 10:42
Coğrafi Konum, Özel Konum, Matematik Konum	Liaaa	Genel Coğrafya	0	07 Kasım 2012 14:35

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.