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/)

- - Oto Xline txx'e Ekleme (https://www.ircforumlari.net/mirc-scripting-sorunlari/619236-oto-xline-txxe-ekleme.html)

RedHack

29 Eylül 2014 10:02

Oto Xline txx'e Ekleme

Sunucudan Proxy, Clone Sebebi ile (Zline,Gline) ile uzaklaştırılan (clone.txt) ip'i kaydedilmesi ve sunucuya tekrar giriş yaparsa o ip'ten uzaklaştırılması mümkünmüdür.

aLone

29 Eylül 2014 14:00

Cevap: Oto Xline txx'e Ekleme

Statusdeki zline atıldıgında çıkan iletiyi kopyalarsan daha basit kısa bir kod da yazılabilir.
deneme imkanım yok aklıma boyle geldi sen dersin artık.

Kod:

on ^*:snotice:*: {

  if $2 == permanent && $3 == Z:Line && $4 == Added {

    write cip.txt $6

  } 

  if $2 == permanent && $3 == GLobal && $4 == Z:line && $5 == Added {

    write cip.txt $7 

  } 

  if ($2 == Z:line) && ($3 == added) { 

    write cip.txt $5

  }

  if $2 == Global && $3 == Z:Line && $4 == Added {

    write cip.txt $6 

  }

}

on ^*:snotice:*Client connecting on*:{ 

  var %:ip $remove($gettok($10,2,64),$chr(41))

  if $read(cip.txt,w,$+(*,%:cip,*)) {

.gzline %:cip 1d uzaklastırıldın } }

IRC-Dancer

11 Ekim 2014 22:49

Cevap: Oto Xline txx'e Ekleme

Bu kodu '' Kullanma '' derim ; Neden ?
1.cisi atılan her line yi kaydeder ; bu küfürden uzaklaştırılanda , harfiyen yönetimden birisi kullansada vs vs..

Olması gereken kodun açılımı şü şekil olmalı bence ; '' Line '' de sebeb ne belirtiliyorsa ; Fix kılınmalı ;
Ornek : Proxy Girişi yasaktır.
Bu sebebi snoticeden okutarak hash sistemine kayıt ettire bilirsin veya atılan proxy'leri kanala rapor verıyorsan '' text '' olarak kaydettire bilirsin.@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] gerekli yardımı almadıysan , böyle bi sistem yazabilirim.

Set	11 Ekim 2014 23:20

Cevap: Oto Xline txx'e Ekleme

Kod:

on *:snotice:*: { 

  if !$hget(zline) { hmake zline | hload zline zline.63 }

  if if $regex($1-,/(G|K|Z).+(line).+(added)/i) && $regex($1-,/(\d+.\d+.\d+.\d+.)/g) {

    hadd -m zline $regml(1) $date

    hsave zline zline.63

  }

  if $regex($1-,/(connecting)/i) &&  $regex($1-,/(\d+.\d+.\d+.\d+.\w)/g)  {

    who +I $+(*,$regml(1),*)

  }

}

raw 352:*:if $hget(zline,$4) { 

  gzline $+(*@,$4) Mesajiniz.

}

Denemedim herhalde işe yarar , hayırlı IF'ler.

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