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

>
+
Etiketlenen Kullanıcılar

1Beğeni(ler)
  • 1 Post By KuL

 
 
LinkBack Seçenekler Arama Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 04 Mart 2015, 20:18   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Giren kullanıcılara userip çekip ban atmak




Arkadaş bu kodu paylaşmış herkesin useripi statusta çıkartıyor eşleştiriyor. Belirlediğimiz bir useripi eşleşirse eğer kanaldan atabilir mi? Örneğin aşağıdaki kişi nick kaydedince hostu değişiyor tekrar tekrar kanala girebiliyor.

aşağıda belirlediğim userip listeye eklesem acaba kanaldan atabilir mi


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


muratt_aziz Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
userip Takip kodumuz adından da anlaşıldığı gibi //userip $nick komutunu bazalınarak yapılmıştır.

Özellikleri
userip sorgusundan gelen yanıtı kayıtlarla karşılaştırıp var ise önceki nickleri hafızaya alıp gecmısı silerek yenıden yeni nickle beraber kaydedip
girilen kanallara önceki nicklleri echo ile yansıtmasıdır

kayıt esnasında tarih alınarak bulunulan ay ve gun kayıt tarihinden sonra bir ayı doldurmuş ise obilgiyi silerek ve eskı nıckler varise onlar silinip bırarada yenı veri kaydı sistemi ile kasılmaya karşı tedbir alınmıştır


kodu deneyerek öneri ve hata gibi durumları paylaşmanızı rica ederim
daha derli toplu birsekilde sizlerin yorumları neticesinde geliştirilecektir

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:join:#: { set %nytg $nick | if $nick != $me { .timeruserip 1 1 userip $nick } } raw 340:*: { unset %aynınıck | unset %trtr set %trih $date | set %rfe $gettok($2-,1,61) | set %iplık $gettok($gettok($2-,2,64),1-3,46) | set %cokoldu $gettok($2-,1,61) $gettok($gettok($2-,2,64),1-3,46) $server $date var %ecfrsdf 1 while %ecfrsdf <= $lines(d.txt) { if %iplık isin $read(d.txt,%ecfrsdf) { set %aynınıck %aynınıck $gettok($read(d.txt,%ecfrsdf),1,32) $gettok($read(d.txt,%ecfrsdf),5-,32) } if $len(%aynınıck) > 0 { set %aynınıck $remove(%aynınıck,%rfe) if %ecfrsdf == $lines(d.txt) { .timerdfsd 1 0 fghyyy } } if $left($right($read(d.txt,%ecfrsdf),7),2) < $right($left($remove(%trih,/) ,-5),1) $+ $right($left($remove(%trih,/) ,4),1) { if $left($right($read(d.txt,1),10),2) < $right($left($remove(%trih,/) ,2),4) { bnv d.txt * $+ $right($read(d.txt,%ecfrsdf),7) $+ * } } inc %ecfrsdf } if !$read(d.txt,w,%cokoldu) { .timerff 1 1 write d.txt %cokoldu } } alias bnv { var %= = 1 | while $read(d.txt,w,$2) { write $+(-dw,$2) d.txt | inc %= } } alias fghyyy { var %x = 1 | var %t = $comchan(%nytg,0) | while %x <= %t { if $len(%aynınıck) > 0 { echo $comchan(%nytg,%x) 4,3 %nytg 0,4Nickinin Daha önceki nickleri.4,3 %aynınıck | set %trtr %aynınıck | .timerggdsz 1 0 debn } | inc %x } } alias debn { var %x1 = 1 | var %t = $lines(d.txt) | while %x1 <= %t { if (%iplık == $gettok($read(d.txt,%x1),2,32)) { bnv d.txt * $+ $gettok($read(d.txt,%x1),2,32) $+ * } if (%x1 == %t) { if !$read(d.txt,w,%cokoldu) { .timerff 1 1 write d.txt %cokoldu %trtr } } inc %x1 } }



 
Alıntı ile Cevapla

 

Etiketler
atmak, ban, cekip, giren, kullanıcılara, userip


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

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 Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
userip takip muratt_aziz mIRC Scripting Hazır Kodlar 1 27 Ekim 2014 01:32
Sunucuya giren yasaklı ipleri atmak XDie mIRC Scripting Sorunları 1 31 Temmuz 2012 16:05
#x'e giren nick kayıdı 7günden yeniyse atmak buraX mIRC Scripting Sorunları 2 20 Haziran 2010 20:24
Belirtilen Kanala Giren Kullanıcılara Mesaj?? deneme1 Servisler 1 07 Eylül 2009 14:47
userip Leo mIRC Scripting Sorunları 5 01 Nisan 2009 00:01