Genel Forumlar Haylazforum.Net

Genel Forumlar Haylazforum.Net (https://haylazforum.net/)
-   mIRC Hazır Kodlar (https://haylazforum.net/324-mirc-hazir-kodlar/)
-   -   Whois Bilgilerinde Nerden Eklentisi (https://haylazforum.net/mirc-hazir-kodlar/9434-whois-bilgilerinde-nerden-eklentisi.html)

Aytac 27.Şubat.2019 21:31

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.

Örnek Görünüm

[Linki Görebilmeniz Icin Üye Olmaniz Gerekiyor! Üye Olmak Icin Tiklayin...]

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

Remote olarak ekleyeceğiniz kod;

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
}



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 08:39.

Powered by vBulletin® Version 3.8.9
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.
Search Engine Optimization by vBSEO 3.6.1

User Alert System provided by Advanced User Tagging (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.Navbar with Avatar by Motorradforum