mIRCForum.Com - mIRC Kullanıcılarının Buluşma Noktası   Reklam Alanı


  mIRCForum.Com - mIRC Kullanıcılarının Buluşma Noktası MF - IRC ve mIRC Kod Dünyası Hazır Kodlar

Gevezeyiz Sohbet

Hazır Kodlar Başlıktanda anlayabileceğiniz üzere, bu bölüme sadece yapmış olduğunuz kodlamaları paylaşabilirsiniz.

Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Arama
Alt 07 Mayıs 2019, 21:14   #1
Che
 
Che - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 07 Mayıs 2016
Bulunduğu yer: Ankara
Mesajlar: 635
WEB Sitesi: www.ircproxy.net
IRC Sunucusu: irc.Gevezeyiz.NET
İlgi Alanı: mIRC Scripting
Kan Grubu: 0 RH (-)
Alınan Beğeni: 94
Post !ip [IP|NICK] Takip Kodu.

Merhaba,
Gelişmiş bir nick/ip takip kodu oldu..

Kod:
on *:input:#:{
  if $regex($1,/^[!.&-][ıiİ]p$/Si) { 
    if !$2 { msg # Lütfen Nick/IP belirtiniz. Kullanımı:4 !ip [IP|NICK] }
    elseif $regex($2,/\d+\.\d+\.\d+\.\d+/Si) {
      if !$isfile($+(IP/,$strip($2),.txt)) { msg # $+(,$strip($2),) IP'ine ait kayıt bulunamadı. | return }
      msg # =====" 2Nick "=====" 2Ident "=====" 2Action "=====" 2Saat "===== " 2Tarih "=====
      msg # -
      var %:_ar = $lines($+(IP/,$strip($2),.txt)) | while %:_ar {
        var %:read = $read($+(IP/,$strip($2),.txt),%:_ar)
        msg # 2-4 $token(%:read,2,32) - ID:2 $token(%:read,3,32) - Aksiyon:2 $token(%:read,4-,32) - Zaman:2 $token($token(%:read,1,32),2,191) -5 $iif($date == $token($token(%:read,1,32),1,191),Bugün,$token($token(%:read,1,32),1,191))
        dec %:_ar
      }
      msg # -
      msg # 4* Bilgi: $+(2,$strip($2),) IP'sine ait $+(4,$lines($+(IP/,$strip($2),.txt)),) adet kayıt sıralanmıştır.
      msg # ===============================================================
      msg # -
      .hadd -ms Ns-list $strip($2) #
      ns list $+(*@,$strip($2))
    }
    else {
      if !$isfile($+(IP/,$strip($2),.txt)) { msg # $+(,$strip($5),) Nick'ine ait kayıt bulunamadı. | return }
      msg # =====" 2IP "=====" 2Ident "=====" 2Action "=====" 2Saat "===== " 2Tarih "=====
      msg # -
      var %:_ar = $lines($+(IP/,$strip($2),.txt)) | while %:_ar {
        var %:read = $read($+(IP/,$strip($2),.txt),%:_ar)
        msg # 2-4 $token(%:read,2,32) - ID:2 $token(%:read,3,32) - Aksiyon:2 $token(%:read,4-,32) - Zaman:2 $token($token(%:read,1,32),2,191) -5 $iif($date == $token($token(%:read,1,32),1,191),Bugün,$token($token(%:read,1,32),1,191))
        dec %:_ar
      }
      msg # -
      msg # 4* Bilgi: $+(2,$strip($2),) Nick'ine ait $+(4,$lines($+(IP/,$strip($2),.txt)),) adet kayıt sıralanmıştır.
      msg # ===============================================================
      msg # -
    }
  }
}
on *:notice:*:?:{
  if ($nick == NickServ) {
    if $regex($1-,/uyan veriler:/Si) && $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) { msg $hget(Ns-list,$regml(1))  $+(2,$regml(1),) IP'ine ait NickServ kayıtları. }
    elseif $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) && $hget(Ns-list,$regml(1)) { msg # $hget(Ns-list,$regml(1)) Nick:4 $strip($1) }
    elseif $regex($1-,/liste sonu/Si) { 
      $iif($4 == 0/0,msg $hget(NS-list,1).data NickServ de identify edilmiş nick bulunmamaktadır.) 
      .hfree -sw Ns-list
    }
  }
}

on *:snotice:*:{
  if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {
    var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5), %_hub $regml(1)
    var %_girs = $iif(%_hub == at,%_port HUB,$iif(%_port == 7005,Mobil,$iif(%_port == 1985,Web,IRC))) Girişi
    $iif(!$isdir(IP),.mkdir IP)
    .write $+(IP/,%_ip,.txt) $+($date,¿,$time) %_nick %_ident %_girs
    .write $+(IP/,%_nick,.txt) $+($date,¿,$time) %_ip %_ident %_girs
  }
  elseif $regex($1-,/his\/her nickname to/Si) { 
    var %_nk = $token($1-,-1,32), %_it $token($token($1-,1,64),2,40), %_ips $token($token($1-,2,64),1,41)
    $iif(!$isdir(IP),.mkdir IP)
    .write $+(IP/,%_ips,.txt) $+($date,¿,$time) %_nk %_it Nick Değişimi
    .write $+(IP/,%_nk,.txt) $+($date,¿,$time) %_ips %_it Nick Değişimi
  }
  elseif $regex($1-,/Permanent (.+) added for .+@(.+) on.+from (.+)!.+/Si) { .hadd -msu15 IRC-Giris $regml(2) $regml(3) $regml(1) Uyguladı. }
  elseif $regex($1-,/Client exiting/Si) { 
    if $regex($1-,/Client exiting\: (.+) \((.+)@(.+)\) .+/Si) { var %_cnk = $regml(1), %_cit $regml(2), %_cip $regml(3) }
    elseif $regex($1-,/Client exiting at .+: (.+)!(.+)@(.+)/Si) { var %_cnk = $regml(1), %_cit $regml(2), %_cip $token($regml(3),1,32) }
    var %:ban = $hget(IRC-Giris,%_cip)
    $iif(!$isdir(IP),.mkdir IP)
    .write $+(IP/,%_cip,.txt) $+($date,¿,$time) %_cnk %_cit $iif(%:ban,%:ban,Sunucudan Çıkış)
    .write $+(IP/,%_cnk,.txt) $+($date,¿,$time) %_cip %_cit $iif(%:ban,%:ban,Sunucudan Çıkış)
    $iif($hget(IRC-Giris,%_cip),.hdel -ms IRC-Giris %_cip)
  }
}

Code: Toprak






To view links or images in signatures your post count must be 10 or greater. You currently have 0 signatures.
 Che isimli Üye şimdilik offline konumundadır   Alıntı
Alt 01 Mayıs 2020, 15:19   #2
Che
 
Che - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 07 Mayıs 2016
Bulunduğu yer: Ankara
Mesajlar: 635
WEB Sitesi: www.ircproxy.net
IRC Sunucusu: irc.Gevezeyiz.NET
İlgi Alanı: mIRC Scripting
Kan Grubu: 0 RH (-)
Alınan Beğeni: 94
Standart Cevap: !ip [IP|NICK] Takip Kodu.

Ziyaretçilere içerik gizlenmiştir.
Ücretsiz olarak sizde bize katılmak istermisiniz?

Kayıt ol Giriş yap







To view links or images in signatures your post count must be 10 or greater. You currently have 0 signatures.
 Che isimli Üye şimdilik offline konumundadır   Alıntı

Yeni Konu   Cevap Yaz

Etiketler
ip takip, ip|nick, kodu, takip

Seçenekler Arama

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



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


Powered by vBulletin® Version 3.8.9 Beta 1
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.0
mIRCForum - Sohbet
Copyright ©2005 - 2020 mIRCForum.Com | Tüm Hakları Saklıdır.