IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  odeaweb

>
+
Etiketlenen Kullanıcılar

3Beğeni(ler)

 
 
LinkBack Seçenekler Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 18 Kasım 2025, 09:09   #8
Çevrimiçi
~ BLaCK_and_WHiTe ~
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İp adresi konum sorgulama (Güncel)




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias sorgula { if (!$1) { echo -a Örnek: /sorgula 1.2.3.4 | return } unset %head.done set %ip.raw $null set %ip.addr $1 sockopen -e ip.lookup ipwho.is 443 } on *:sockopen:ip.lookup:{ if ($sockerr) { echo -a Bağlantı hatası. | return } sockwrite -nt $sockname GET /json/$+ %ip.addr HTTP/1.1 sockwrite -nt $sockname Host: ipwho.is sockwrite -nt $sockname User-Agent: mIRC sockwrite -nt $sockname Connection: close sockwrite -nt $sockname $crlf } on *:sockread:ip.lookup:{ var %l sockread %l ; header bitti mi? if (!$len(%l)) { set %head.done 1 | return } if (%l == $chr(13)) { set %head.done 1 | return } if (!%head.done) return ; json verisini ekle set %ip.raw %ip.raw %l } on *:sockclose:ip.lookup:{ if (%ip.raw == $null) { echo -a Sunucu veri göndermedi. unset %ip.* return } var %j = %ip.raw var %asn = Bulunamadı var %ulke = Bulunamadı var %kita = Bulunamadı var %bolge = Bulunamadı var %sehir = Bulunamadı var %isp = Bulunamadı var %tur = Bulunamadı var %domain = Bulunamadı if ($regex(%j,/"asn":\s*([0-9]+)/)) set %asn $regml(1) if ($regex(%j,/"country":"([^"]+)"/)) set %ulke $regml(1) if ($regex(%j,/"continent":"([^"]+)"/)) set %kita $regml(1) if ($regex(%j,/"region":"([^"]+)"/)) set %bolge $regml(1) if ($regex(%j,/"city":"([^"]+)"/)) set %sehir $regml(1) if ($regex(%j,/"isp":"([^"]+)"/)) set %isp $regml(1) if ($regex(%j,/"type":"([^"]+)"/)) set %tur $regml(1) if ($regex(%j,/"domain":"([^"]+)"/)) set %domain $regml(1) echo -a ASN: $fixutf(%asn) echo -a Ülke: $fixutf(%ulke) echo -a Kıta: $fixutf(%kita) echo -a Bölge: $fixutf(%bolge) echo -a Şehir: $fixutf(%sehir) echo -a ISP: $fixutf(%isp) echo -a Tür: $fixutf(%tur) echo -a Domain: $fixutf(%domain) unset %ip.* unset %head.done } alias fixutf { return $replace($1-,\u0130,İ,\u0131,ı,\u00dc,Ü,\u00fc,ü,\u011e,Ğ,\u011f,ğ,\u015e,Ş,\u015f,ş,\u00d6,Ö,\u00f6,ö,\u00c7,Ç,\u00e7,ç) }

$replace() parametresini 7.81'e göre biraz daha farklıymış tekrar kontrol ettim ve sondaki kısmı tekrar gözden geçirdim yine de bir hata varsa ufak bir testle sizin mirciniz üzerinde yaptığınız bazı değişikliklerden kaynaklanabilir.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
/echo -a $fixutf(\u00f6\u011f\u015f)

bunu yazdığınız zaman altaki yazması gerekir.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
öğş


__________________
BLaCK_and_WHiTe is now known as SNOOPY


Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
 
Alıntı ile Cevapla

 


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


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



Canlı Akış 0

+
Canlı akışı görmek için lütfen
Üye Girişi Yapın veya
Kayıt Olun.

Reaksiyonlar

×