IRCALEM.Com Genel Forum, IRC Forumu IF - mIRC Scripting mIRC Scripting Hazır Kodlar Whois Bilgilerinde Nerden Eklentisi
Whois Bilgilerinde Nerden Eklentisi
Aytac
Whois Bilgilerinde Nerden Eklentisi
0
144
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5

[-]
Etiketler
bilgilerinde eklentisi nerden whois

Bu konuyu görüntüleyen kullanıcı(lar):1 Ziyaretçi
Şuan Offine!
Şuan Offine!
Aytac Administrator
********
Proje Sorumlusu

  • Üyelik tarihi    04.02.2020
  • Konum  78 Karabük
  • Konular335
  • Mesajlar341
  • Beğenileri:15 in 12 posts
  • Beğendiği:7
  • Rep puanı 4

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.

Örnek Görünüm

[Resim: kBr4q3.jpg]

Gerçek ip ve nick bilgilerinin bir kısmı silinmiştir.

[COLOR="Silver"]Remote olarak ekleyeceğiniz kod;[/COLOR]

Kod :
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,$+(http://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
}
“İnsanların en hayırlısı, insanlara faydalı olandır”. H.Ş.



Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
dyeni
!nerden [IP|Nick] Aytac 0 152 16.03.2020, 01:16
Son Mesaj: Aytac
  mIRC !nerden kodu şehir ülke görme Aytac 0 388 23.02.2020, 03:57
Son Mesaj: Aytac

Foruma Git: