IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi - Sunucu Girişinde Nick ve IP Ayrı Pencere Tek Tık Whois ve Takip Ekleme

- mIRC Scripting Hazır Kodlar (https://www.ircrehberi.net/mirc-scripting-hazir-kodlar/)

- - Sunucu Girişinde Nick ve IP Ayrı Pencere Tek Tık Whois ve Takip Ekleme (https://www.ircrehberi.net/mirc-scripting-hazir-kodlar/210082-sunucu-girisinde-nick-ve-ip-ayri-pencere-tek-tik-whois-ve-takip-ekleme.html)

Sunucu Girişinde Nick ve IP Ayrı Pencere Tek Tık Whois ve Takip Ekleme

Kod:

alias _tekle {

  if ($1) {

    write takip_listesi.txt $1

    echo -a $1 takip listesine eklendi.

  } 

  else {

    echo -a Lütfen takip etmek istediğiniz nicki belirtin.

  }

}

alias _tsil {

  if (!$1) {

    echo -a Silmek istediğiniz kişiyi belirtin.

  }

  elseif ($read(takip_listesi.txt, w, $1)) {

    write -dl $+ $readn takip_listesi.txt

    echo -a $1 takip listesinden silindi.

  } 

  elseif (!$read(takip_listesi.txt, w, $1)) {

    echo -a $1 takip listesinde ekli değil.

  } 

}
 

on *:snotice:*: {

  if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]

e)) window -en @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]

e

  if $regex($1-,/Yeni\sGiris/iS) {

    var %;port $remove($7,:)

    var %;ip $gettok($gettok($9,2,64),1,41)

    var %file ip_log.txt

    var %;t $date $+ $time

    var %;n $8

    write %file %;t $+ : %;n $+ : %;ip

    echo -tm @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]

e 2 %;n  : 4 %;ip 5 %;port

    if ($read(takip_listesi.txt, w, %;n)) {

      echo -tm @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]

e 4Takip listesinde yer alan 2 %;n 4 sunucuya giriş yaptı.

    }

  }

}
 

on ^*:hotlink:*:@[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]

e: {

  if ($mouse.key & 1) {

    var %:nick $gettok($1,1,58)

    whois %:nick

  }

}

Kullanım;
/_tekle nick
/_tsil nick

Kodun amacı;

Sunucuya girişte @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...] e adında açılacak olan debug penceresine nick ve ip bilgilerini yansıtır.
Debug penceresi içerisinde nick e tek tık yaptığınız da whois olarak ayarladım ben ama siz o kısmı gzline/shun vb. şeklinde değiştirebilirsiniz.
Kod içerisinde var olan /_tekle özelliği bir nick takibe eklenir o nick sunucuya girdiğinde debug içerisinde uyarı alırsınız. Üzerine tek tık yaptığınız da whois çeker olarak ayarlı.
Nick ve ip bilgilerini kayıt eder.

Görünüm;
[19:46:22] Sinan45 : 78.178.******* 8085
[19:47:22] svs__a : 5.46.******* 8085
[19:47:51] fm35pist : 217.6******** 8085
[19:48:20] Nuryolu_ : 85.105***** 8085
[19:49:37] nida29 : 193.140*** 8085
[19:50:05] Aras : 77.244.11*** 7033
MircSystem takip listesine eklendi.
Takip listesinde yer alan MircSystem sunucuya giriş yaptı.
MircSystem takip listesinden silindi.
MircSystem takip listesine eklendi.
ali takip listesinde ekli değil.

IP bilgisinin yanında giriş port bilgisi yer alır. Kod içerisinde nick ve ip adresi girişleri $ değerleri uyuşması gerekir. Eğer o bilgiler uyuşmuyorsa konu altında sunucu giriş noticenizi paylaşırsanız size göre ayarlayabiliriz. Kullanıcı isteğine göre yapıldı. Umarım işinize yarar iyi forumlar.

Nick takip sistemi mi ?

Emeğinize sağlık.

Paylasim icin teşekkür ederiz , emeginize saglik

paylaşım için teşekkürler, kullananlar olacaktır..

Emeğine sağlık Ali

Kodu biraz güncelledim kendim için kullanmak istiyenler varsa güncel hali aşağıda, debug penceresinde nicke 1 tık yapınca whois 2 tık yaparsanız 5 saniye içerisinde gzline atar.

Kod:

alias _tekle {

  if ($1) {

    write takip_listesi.txt $1

    echo -a $1 takip listesine eklendi.

  } 

  else {

    echo -a Lütfen takip etmek istediğiniz nicki belirtin.

  }

}

alias _tsil {

  if (!$1) {

    echo -a Silmek istediğiniz kişiyi belirtin.

  }

  elseif ($read(takip_listesi.txt, w, $1)) {

    write -dl $+ $readn takip_listesi.txt

    echo -a $1 takip listesinden silindi.

  } 

  elseif (!$read(takip_listesi.txt, w, $1)) {

    echo -a $1 takip listesinde ekli değil.

  } 

}
 

on *:snotice:*: {

  if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]

e)) window -en @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]

e

  if $regex($1-,/Client\sconnecting/iS) {

    var %;port $remove($7,:)

    var %;ip $gettok($gettok($9,2,64),1,41)

    var %file ip_log.txt

    var %;t $date $+ $time

    var %;n $8

    write %file %;t $+ : %;n $+ : %;ip

    echo -tm @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]

e 2 %;n  : 4 %;ip 5 %;port

    if ($read(takip_listesi.txt, w, %;n)) {

      echo -tm @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]

e 4Takip listesinde yer alan 2 %;n 4 sunucuya giriş yaptı.

    }

  }

}
 

on ^*:hotlink:*:@[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]

e: {

  if ($mouse.key & 1) {

    if ($regex($1, /^[^:]+$/)) { 

      var %:nick $gettok($1,1,58)

      if ($($+(%,clicked.,%:nick),2)) { 

        gzline %:nick : Hatalı ise bildirin. 

        unset $+(%,clicked.,%:nick) 

        echo -a GZLine komutu çalıştırıldı: %:nick

      }

      else { 

        set -u5 $+(%,clicked.,%:nick) 1 

        whois %:nick

        echo -a Whois komutu çalıştırıldı: %:nick

      }

    }

  }

}

Yine yeni yeniden emeğine sağlık

Emeğinize sağlık.