IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   aynı ident yada benzerliği gzline (https://www.ircforumlari.net/mirc-scripting-sorunlari/435789-ayni-ident-yada-benzerligi-gzline.html)

angry1 15 Aralık 2011 22:22
aynı ident yada benzerliği gzline
 
SLM ArkadaşLar şöyle bi girişler oluyor sunucuya ben bunu sanoticeden tespit edip gzline uygulatmak istiyorum

[+2SCRC] [21:20] *** Giriş: KaraoKe (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[+2SCRC] [21:20] *** Giriş: anet_ (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[+2SCRC] [21:20] *** Giriş: Doty (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[+2SCRC] [21:20] *** Giriş: CH4TOM4N (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[+2SCRC] [21:20] *** Giriş: shari (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[+2SCRC] [21:20] *** Giriş: Orfield (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[+2SCRC] [21:20] *** Giriş: LickMyAxe (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
[+2SCRC] [21:20] *** Giriş: Tatar (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)


bu identi spam alsam baska idenle gelıyor

aynı ident yada cokfazla benzerlik taşıyan ident girişinde maximum 3 giriş olsa fazlasında sanoticeden gzline uygulatsak ?

Set kardeşimin yazdıgı bir kode var
ident deilde bunu nick için yazdı cokta harıka calısıyor bunu idente göre ayarlamamız mumkunmu kodeye baktıqınızda daha anlasılır olcaktır..


on *:snotice:*connecting*: { if ($regex($9,/(Sohbet|kelebek)/i)) { halt } if ($tnick($9)) { if (!$hget(tnick)) { hmake tnick 100 } hinc -u10 tnick $tnick($9) if ($hget(tnick,$tnick($9)) >= 3) { gzline $9 +0 Ban sebebin. } } } alias tnick { var %t 1 while %t <= $len($1) { if $mid($1,%t,1) !isalpha { if $len($left($1,$calc(%t - 1))) > 2 { return $mid($1,1,$calc(%t - 1)) } } inc %t } }


kode budur bunu ident e göre ayarlamak mumkunmu

angry1 15 Aralık 2011 22:22
Cevap: aynı ident yada benzerliği gzline
 
on *:snotice:*connecting*: { if ($regex($9,/(Sohbet|kelebek)/i)) { halt } if ($tnick($9)) { if (!$hget(tnick)) { hmake tnick 100 } hinc -u10 tnick $tnick($9) if ($hget(tnick,$tnick($9)) >= 3) { gzline $9 +0 Ban sebebin. } } } alias tnick { var %t 1 while %t <= $len($1) { if $mid($1,%t,1) !isalpha { if $len($left($1,$calc(%t - 1))) > 2 { return $mid($1,1,$calc(%t - 1)) } } inc %t } }

Paint 15 Aralık 2011 22:29
Cevap: aynı ident yada benzerliği gzline
 
$9 olan yerleri $gettok($10,1,64) ile değişirsen istediğin olur. Bu arada bir dahakine lütfen kodları kod tagları içerisinde ver.

angry1 15 Aralık 2011 22:36
Cevap: aynı ident yada benzerliği gzline
 
Paint dostum cok sağol ayrıca gelişmişle yapıorum kodları ama tağa almıyor
başka ne sekilde kod tağları içine alabılırım acaba ? birde hatalı bi değişim yapabılırım yanlıs gzlıne uygulatmayım vaktın varsa sen kodu düzeltip verebılırmısın ?

Paint 15 Aralık 2011 22:59
Cevap: aynı ident yada benzerliği gzline
 
Kod:
on *:snotice:*connecting*: {
  if ($regex($gettok($10,1,64),/(Sohbet|kelebek)/i)) { halt }
  if ($tnick($gettok($10,1,64))) {
    if (!$hget(tnick)) { hmake tnick 100 }
    hinc -u10 tnick $tnick($gettok($10,1,64))
    if ($hget(tnick,$tnick($gettok($10,1,64))) >= 3) {
    gzline $gettok($10,1,64) +0 Ban sebebin.  }
} }
alias tnick {
  var %t 1
  while %t <= $len($1) {
    if $mid($1,%t,1) !isalpha {
      if $len($left($1,$calc(%t - 1))) > 2 {
        return $mid($1,1,$calc(%t - 1))
    } }
inc %t } }
Code tagları:
[CODE]
/CODE]
not: kapatma tagının başına [ ekle . Ben eklersem kod alanı açılıyor otomatikman.

angry1 16 Aralık 2011 23:44
Cevap: aynı ident yada benzerliği gzline
 
paint kardesim kod hiç tepkı vermedi tekrar bi bakarmıısn acaba

angry1 16 Aralık 2011 23:48
Cevap: aynı ident yada benzerliği gzline
 
Kod:
on *:snotice:*connecting*: {  if ($regex($9,/(Sohbet|kelebek)/i)) { halt }  if ($tnick($9)) {    if (!$hget(tnick)) { hmake tnick 100 }    hinc -u10 tnick $tnick($9)    if ($hget(tnick,$tnick($9)) >= 3) {        gzline $9 +0 Ban sebebin.    }    } } alias tnick {  var %t 1  while %t <= $len($1) {    if $mid($1,%t,1) !isalpha {        if $len($left($1,$calc(%t - 1))) > 2 {        return $mid($1,1,$calc(%t - 1))      }    }    inc %t  } }

kodun orjınal halınde tnick diyor ya acaba ondanmı kaynaklanıyor ?

SiLuet 17 Aralık 2011 15:05
Cevap: aynı ident yada benzerliği gzline
 
Kod:
on *:snotice:*connecting*: {
  var %id. $remove($gettok($10,1,64),$chr(40))
  if ($regex(%id.,/(Sohbet|kelebek)/i)) { halt }
  if ($tnick(%id.)) {
    if (!$hget(tident)) { hmake tident 100 }
    hinc -u10 tident $tnick(%id.)
    if ($hget(tident,$tnick(%id.)) >= 3) {
      gzline $9 +0 Ban sebebin. 
    }
  }
}
alias tnick {
  var %t 1
  while %t <= $len($1) {
    if $mid($1,%t,1) !isalpha {
      if $len($left($1,$calc(%t - 1))) > 2 {
        return $mid($1,1,$calc(%t - 1))
      }
    }
    inc %t
  }
}
Bu şekilde dene.
Ayrıca Aynı mesajı 2-3 defa neden Yazıyorsun Merak ediyorum. Diğer Konunun Altınada Aynı Sorunu Yazmışsın. Bir defa Yazdıktan Sonra Sabırlı bir şekilde Beklemen Gerek.Gereksiz Yere Post tekrarı yapmanın Anlamı Yok diye düşünüyorum.

angry1 17 Aralık 2011 15:32
Cevap: aynı ident yada benzerliği gzline
 
haklısın kardesim onu yanlışlıkla yazdım fakat silemedim

angry1 17 Aralık 2011 19:13
Alıntı:
SiLuet Nickli Üyeden Alıntı (Mesaj 1040962671)
Kod:
on *:snotice:*connecting*: {
  var %id. $remove($gettok($10,1,64),$chr(40))
  if ($regex(%id.,/(Sohbet|kelebek)/i)) { halt }
  if ($tnick(%id.)) {
    if (!$hget(tident)) { hmake tident 100 }
    hinc -u10 tident $tnick(%id.)
    if ($hget(tident,$tnick(%id.)) >= 3) {
      gzline $9 +0 Ban sebebin. 
    }
  }
}
alias tnick {
  var %t 1
  while %t <= $len($1) {
    if $mid($1,%t,1) !isalpha {
      if $len($left($1,$calc(%t - 1))) > 2 {
        return $mid($1,1,$calc(%t - 1))
      }
    }
    inc %t
  }
}
Bu şekilde dene.


Kardeşim bu çalışmadı bi bakabilcenmi

bi baksanız ustad lar ?


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk