IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershelldamlasu
bizimkiler sihirlisohbet sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 27 Mart 2019, 20:03   #1
Çevrimiçi
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
Whois Bilgilerinde Nerden Eklentisi


Oper/Adminlerin kullanabileceği whois çektiğiniz kullanıcının whois bilgilerinde ip, şehir, ülke, locasyon ve organizasyon bilgilerini ekleme.

Ayrıca /nerden nick şeklindede çalışmaktadır. Doğruluk oranı %100 değildir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
raw 378:*:{ haltdef nerden $7 } alias nerden { if ($longip($1)) { var %e echo $color(whois) $iif($active == Status Window,-s,$active), %h 1, %r var %a ajax. $+ $upper($regsubex($str(.,10),/./g,$mid($md5($time),$r(1,32),1))) .comopen %a msxml2.xmlhttp %e $chr(160) %e $str($chr(160),16) ---------( 12 $1  ) noop $com(%a,send,$com(%a,open,1,bstr,GET,bstr,$+(https://ipinfo.io/,$1,/json),bool,true)) $com(%a,ResponseText,2) %r = $remove($replace($remove($com(%a).result,$({,0),$(},0),"),$+($chr(44),$lf),=),$lf) if ($count(%r,=)) { while ($gettok(%r,%h,61)) { %e $str($chr(160),15) $(|,0) $regsubex($v1,(.+):,$+($upper(\1),$str($chr(160),$calc(11-$len(\1))),:)) inc %h } } %e $str($chr(160),16) --------- 14 IP Ek Bilgileri ---------- %e $chr(160) .comclose %a } else whois $1 }

Oper/Adminlerin kullanabileceği whois çektiğiniz kullanıcının whois bilgilerinde ip, şehir, ülke, locasyon ve organizasyon bilgilerini ekleme.

Ayrıca /nerden nick şeklindede çalışmaktadır. Doğruluk oranı %100 değildir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
raw 378:*:{ haltdef nerden $7 } alias nerden { if ($longip($1)) { var %e echo $color(whois) $iif($active == Status Window,-s,$active), %h 1, %r var %a ajax. $+ $upper($regsubex($str(.,10),/./g,$mid($md5($time),$r(1,32),1))) .comopen %a msxml2.xmlhttp %e $chr(160) %e $str($chr(160),16) ---------( 12 $1  ) noop $com(%a,send,$com(%a,open,1,bstr,GET,bstr,$+(https://ipinfo.io/,$1,/json),bool,true)) $com(%a,ResponseText,2) %r = $remove($replace($remove($com(%a).result,$({,0),$(},0),"),$+($chr(44),$lf),=),$lf) if ($count(%r,=)) { while ($gettok(%r,%h,61)) { %e $str($chr(160),15) $(|,0) $regsubex($v1,(.+):,$+($upper(\1),$str($chr(160),$calc(11-$len(\1))),:)) inc %h } } %e $str($chr(160),16) --------- 14 IP Ek Bilgileri ---------- %e $chr(160) .comclose %a } else whois $1 }

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
bilgilerinde, eklentisi, nerden, whois
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler
Stil

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 Açık
Pingbacks are Açık
Refbacks are Açık