IRC ve mIRC Kullanıcılarının Buluşma Noktası
  okey oyna




13Beğeni(ler)
  • 6 Post By SuLh
  • 2 Post By SuLh
  • 2 Post By YouMyCure
  • 1 Post By Feragat
  • 2 Post By SuLh

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 10 Şubat 2016, 18:02   #1
Çevrimdışı
Ip'den giren nickleri siralama


-- Sponsor Baglantı --


Daha önce kendim için yaptığım, sunucuya giren nicklerin ip adreslerini ve girdikleri porttan giris tiplerini hash'a kaydettirip sorgulatan bir kod. Geliştirilebilir.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:snotice:*client connect*: { if $remove($8,:) = 6667 { if $hfind( $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41),*,0,w) > 0 { hadd -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $9 IRC hsave -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h } else { hmake -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) hadd -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $9 IRC hsave -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h write yuklenecek.txt takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h } } elseif $remove($8,:) = 7098 { if $hfind( $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41),*,0,w) > 0 { hadd -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $9 WEB hsave -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h } else { hmake -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) hadd -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $9 WEB hsave -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h write yuklenecek.txt takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h } } } on $*:text:/^[!.&-]tak[iIİ]p/Si:#nes: { if !$2 { msg $chan Lutfen bir ip giriniz. | return } if !$regex($2,/^[0-9]/) { msg $chan Lutfen ip giriniz, nick degil. | return } if $hfind( $+ $2 $+ ,*,0,w) = 0 { msg $chan Bu ip hakkinda herhangi bir bilgi yok.. | return } else { msg $chan ------ 4 $2 ipsinden giris yapan nickler  ----- var %i 1 while (%i <= $hfind( $+ $2 $+ ,*,0,w)) { msg $chan 2Nick: 1,8 $hfind( $+ $2 $+ ,*,%i,w)  2Giris tipi: 1,8 $hget( $+ $2 $+ ,$hfind( $+ $2 $+ ,*,%i,w)) msg $chan --------------------------------------------------------- inc %i } } } on *:start: { var %i 1 while (%i <= $lines(yuklenecek.txt)) { hmake $remove($gettok($read(yuklenecek.txt,%i),2,$asc(/)),.h) hload -s $remove($gettok($read(yuklenecek.txt,%i),2,$asc(/)),.h) $read(yuklenecek.txt,%i) inc %i } }

Daha önce kendim için yaptığım, sunucuya giren nicklerin ip adreslerini ve girdikleri porttan giris tiplerini hash'a kaydettirip sorgulatan bir kod. Geliştirilebilir.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:snotice:*client connect*: { if $remove($8,:) = 6667 { if $hfind( $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41),*,0,w) > 0 { hadd -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $9 IRC hsave -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h } else { hmake -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) hadd -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $9 IRC hsave -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h write yuklenecek.txt takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h } } elseif $remove($8,:) = 7098 { if $hfind( $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41),*,0,w) > 0 { hadd -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $9 WEB hsave -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h } else { hmake -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) hadd -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $9 WEB hsave -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h write yuklenecek.txt takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h } } } on $*:text:/^[!.&-]tak[iIİ]p/Si:#nes: { if !$2 { msg $chan Lutfen bir ip giriniz. | return } if !$regex($2,/^[0-9]/) { msg $chan Lutfen ip giriniz, nick degil. | return } if $hfind( $+ $2 $+ ,*,0,w) = 0 { msg $chan Bu ip hakkinda herhangi bir bilgi yok.. | return } else { msg $chan ------ 4 $2 ipsinden giris yapan nickler  ----- var %i 1 while (%i <= $hfind( $+ $2 $+ ,*,0,w)) { msg $chan 2Nick: 1,8 $hfind( $+ $2 $+ ,*,%i,w)  2Giris tipi: 1,8 $hget( $+ $2 $+ ,$hfind( $+ $2 $+ ,*,%i,w)) msg $chan --------------------------------------------------------- inc %i } } } on *:start: { var %i 1 while (%i <= $lines(yuklenecek.txt)) { hmake $remove($gettok($read(yuklenecek.txt,%i),2,$asc(/)),.h) hload -s $remove($gettok($read(yuklenecek.txt,%i),2,$asc(/)),.h) $read(yuklenecek.txt,%i) inc %i } }

  Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
Alt 11 Şubat 2016, 22:22   #2
Çevrimdışı
Cevap: Ip'den giren nickleri siralama




Görseli ve açıklamayı unutmuşum.

!takip ip ile çalışır.


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

  Alıntı ile Cevapla

Alt 11 Şubat 2016, 23:45   #3
Çevrimiçi
Cevap: Ip'den giren nickleri siralama




Emeğine Sağlık Kardeşim

__________________
Güneşin ilk ışıklarına vererek umutlarımı
Masal Dünyamın açıp kapılarını
Girdim insan Kalabalığına
  Alıntı ile Cevapla

Alt 12 Şubat 2016, 02:15   #4
Çevrimiçi
Cevap: Ip'den giren nickleri siralama




Üstte paylaştığın kod ile ilgili biliyor da olabileceğin bir kaç öneri
-
if $hfind( $+ $2 $+ ,*,0,w)

tanım içinde tanım kullanırken $+ ile birleştirmeye gerek kalmaz

if $hfind($2,*,0,w)

-

art arda kullanılan if koşullarında her defasında return veya halt etmeye gerek yok.

elseif kullanarak bu daha düzenli yapılabilir. if'lerin birbirinden bağımsız çalışması biraz engellenmiş olur.
if (koşul) { kodlar }
elseif (koşul) { kodlar }
elseif (koşul) { kodlar }
elseif (koşul) { kodlar }

-
if - else de return hatası

if (koşul) { kodlar | return }
else { kodlar }

if altında else kullanıldığında, if koşulunu return etmeye gerek kalmaz. Eğer koşul uymuyorsa else yi çalıştıracaktır.

if (koşul) { kodlar }
else { kodlar }
gibi..


-
hash tablo da -s anahtarı, yapılan işlemde bilgilendirme mesajı almak içindir.
ayrıca hadd komutunda -m anahtarı kullanırsan, öncesinde hmake yapmaya gerek kalmaz. -m anahtarı eğer tablo yoksa oluşturmaya yarar.

Anlatımım yanlış anlaşılmasın, hepimizin eksikleri/bilmedikleri var. Amacım sadece konunun zenginleşmesi.

Güzel paylaşım, başarılar.

__________________
Tell me. Do you bleed? You will.
  Alıntı ile Cevapla

Alt 12 Şubat 2016, 02:31   #5
Çevrimdışı
Cevap: Ip'den giren nickleri siralama




Feragat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Üstte paylaştığın kod ile ilgili biliyor da olabileceğin bir kaç öneri
-
if $hfind( $+ $2 $+ ,*,0,w)

tanım içinde tanım kullanırken $+ ile birleştirmeye gerek kalmaz

if $hfind($2,*,0,w)

-

art arda kullanılan if koşullarında her defasında return veya halt etmeye gerek yok.

elseif kullanarak bu daha düzenli yapılabilir. if'lerin birbirinden bağımsız çalışması biraz engellenmiş olur.
if (koşul) { kodlar }
elseif (koşul) { kodlar }
elseif (koşul) { kodlar }
elseif (koşul) { kodlar }

-
if - else de return hatası

if (koşul) { kodlar | return }
else { kodlar }

if altında else kullanıldığında, if koşulunu return etmeye gerek kalmaz. Eğer koşul uymuyorsa else yi çalıştıracaktır.

if (koşul) { kodlar }
else { kodlar }
gibi..


-
hash tablo da -s anahtarı, yapılan işlemde bilgilendirme mesajı almak içindir.
ayrıca hadd komutunda -m anahtarı kullanırsan, öncesinde hmake yapmaya gerek kalmaz. -m anahtarı eğer tablo yoksa oluşturmaya yarar.

Anlatımım yanlış anlaşılmasın, hepimizin eksikleri/bilmedikleri var. Amacım sadece konunun zenginleşmesi.

Güzel paylaşım, başarılar.

Tabii ki eleştiri, anlatım olmadan gelişim olmaz. Alternatif fikir oldukça eleştiri güzeldir, önerilerini dikkate alacağım teşekkür ederim..

  Alıntı ile Cevapla

Cevapla

Etiketler
ip, kodu, takip

Seçenekler
Stil

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
Q Basic Alıştırma sinif yas siralama Kaf_Dağı Programlama 0 21 Aralık 2015 12:37
Kanal Giren Nickleri Random Renklendirmek Feragat mIRC Parça Kodlar 1 23 Mart 2015 10:48
Kanala Giren Nickleri Kaydedecek Kod eNyA mIRC Scripting Sorunları 10 20 Mayıs 2012 17:53
liste.txtden sirasi ile dialogda siralama? Aero mIRC Scripting Sorunları 6 16 Şubat 2009 20:59
Kanala Giren Nickleri Kaydetme alemdar66 mIRC Scripting Sorunları 9 07 Ekim 2007 04:59



Casino Siteleri