IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - join i *:snotice:*Client connecting*: e cevirmek

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - join i *:snotice:*Client connecting*: e cevirmek (https://www.ircforumlari.net/mirc-scripting-sorunlari/414140-join-i-snotice-client-connecting-e-cevirmek.html)

join i *:snotice:*Client connecting*: e cevirmek

Sa arkadaslar bunu join kanala girişte degilde sunucuya bağlanırken algılasa gline eklese daha faydalı olur sanırım yardımcı olursanız

alias equ { /dialog -m start start }
dialog start {
title "equaL system :)"
size -1 -1 467 274
option pixels
box "", 11, 19 13 430 256
text "mIRCTR Oper KORUMA / Güvenlik", 1, 136 3 167 20
edit "", 3, 125 37 186 20, center
button "Nick zline liste ekle", 8, 30 70 190 30, flat
button "İdent zline liste ekle", 4, 30 108 190 30, flat
button "Host zline liste ekle", 5, 30 148 190 30, flat
button "Host zline list'en sil", 2, 240 148 190 30, flat
button "İdent zline list'en sil", 6, 241 108 190 30, flat
button "Nick zline list'en sil", 7, 240 70 190 30, flat
button "Kapat", 9, 125 190 192 29, flat
text " Bu koruma sunucuya hep aynı nick yada ident ile saldırıları önlemek için yazılmıştır.", 10, 24 228 413 16
text " Code sahibi / equaL (Gökhan) ", 12, 140 248 165 16
}

on 1:dialog:start:*:*: {
if ($devent == init) {
did -a start 3 $null
}
if ($devent == sclick) {
if ($did == 8 ) { /auser zline $did(3) | /echo -a 0,4 $did(3) 0,1 Nicki Gzline Liste eklendi }
}
if ($devent == sclick) {
if ($did == 9 ) { /dialog -c start start }
}
if ($devent == sclick) {
if ($did == 7 ) { /ruser zline $did(3) | /echo -a 0,4 $did(3) 0,1 Nicki Gzline List'en silindi }
}
if ($devent == sclick) {
if ($did == 2 ) { /ruser zline *!*@ $+ $did(3) | /echo -a 0,4 $did(3) 0,1 hostu Gzline List'en silindi }
}
if ($devent == sclick) {
if ($did == 4 ) { /auser zline *! $+ $did(3) $+ @* | /echo -a 0,4 $did(3) 0,1 identi Gzline Liste eklendi }
}
if ($devent == sclick) {
if ($did == 6 ) { /ruser zline *! $+ $did(3) $+ @* | /echo -a 0,4 $did(3) 0,1 identi Gzline List'en silindi }
}
if ($devent == sclick) {
if ($did == 5 ) { /auser zline *!*@ $+ $did(3) | /echo -a 0,4 $did(3) 0,1 hostu Gzline Liste eklendi }
}
}

on zline:join:#:{
gzline $nick : 1Güvenlik Korumasi4 $time - $me
}

on zline:join:#:{
*:snotice:*Client connecting*:{
bu bolumu bu sekıldemı deişcem who ya gerek duyulcakmı

Cevap: join i *:snotice:*Client connecting*: e cevirmek

Kod:

on *:snotice:*Connecting*:$iif($ulist($9,zline) == 1,gzline $9 1Guvenlik Korumasi4 $date - $time )

Cevap: join i *:snotice:*Client connecting*: e cevirmek

Alıntı:

Set Nickli Üyeden Alıntı (Mesaj 1040842421)

Kod:

on *:snotice:*Connecting*:$iif($ulist($9,zline) == 1,gzline $9 1Guvenlik Korumasi4 $date - $time )

set kaderdesim bu sekıl calısmadı bu ya tepki yok
ayrac falan ekledim yine olmadı nedendir anlamaıom

on *:snotice:*Connecting*:$iif($ulist($9,zline) == 1,{ gzline $9 1Guvenlik Korumasi4 $date - $time ) } böylede denedim

kullanıcı listesinde bu sekıl eklı zline:*krxczs*!@*
zline:*!*zcz*@*
zline:deneme!*@*

ayrıca Who ya gerek yok demi atladıqımız bişey varmı die :)

Cevap: join i *:snotice:*Client connecting*: e cevirmek

saat gec oldu sabah bı coder arkadas bakar sanırım : )

Cevap: join i *:snotice:*Client connecting*: e cevirmek

Sadece bir yeri ters olmuş.

Kod:

on *:snotice:*Connecting*:$iif($ulist($9,zline) == 1,gzline $9 1Guvenlik Korumasi4 $date - $time )

dene bakalım.

Cevap: join i *:snotice:*Client connecting*: e cevirmek

Alıntı:

WingmaN Nickli Üyeden Alıntı (Mesaj 1040876147)

Sadece bir yeri ters olmuş.

Kod:

on *:snotice:*Connecting*:$iif($ulist($9,zline) == 1,gzline $9 1Guvenlik Korumasi4 $date - $time )

dene bakalım.

hocam denedim fakat bı tepkı yok
normal joınde calısıyor ama sanoticeden calısmıyor

Cevap: join i *:snotice:*Client connecting*: e cevirmek

Kod:

Forumda Bilgi Paylaşımı Yasakmış :)

Cevap: join i *:snotice:*Client connecting*: e cevirmek

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] dostum calısmadı ya
şimdi illakı bu kod olcak diyede birsey yok
bir text dosyasına yada farklı bir dosyaya manuelde ekleye bılırım

ali!*@*
*ali*!*@*
*!ali@*
*!*ali*@*
*!*@1234567
*!*@*1234567*
nick ident host istediğim nicki identi hostu wildcard tan da faydalanarak eklemeliyim
ben bu sekılde calısmasını istiyorum sunucuya bağlanma aşamasında gzline uygulatacağım
farklı bır sistemde olabılır manuel de eklerim fark etmez farklı bır kodda olur
bu şekilde calışsın yeterlidir.. tşkler.

Cevap: join i *:snotice:*Client connecting*: e cevirmek

Kod:

Forumda Bilgi Paylaşımı Yasakmış :)

Cevap: join i *:snotice:*Client connecting*: e cevirmek

Alıntı:

GhoSt Nickli Üyeden Alıntı (Mesaj 1040879758)

Kod:

on *:snotice:*: {

  if (connecting isin $1-) {

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

    if ($read(zline.txt,w,$9)) {

      gzline $9 Guvenlik Korumasi $date - $time )

    }

    if ($read(zline.txt,w,$+(*,%ip,*))) {

      gzline $9 Guvenlik Korumasi $date - $time )

    }

  }

}

mirc ana klasorune zline.txt diye ac nıcklerı ıcıne yaz dene calışmassa solersın denemeye fırsatım yok :)

Not: Mask Olarak Ekleme. yani GhoSt Olarak Ekle GhoSt!*@* Ekleme Yapma.

GhoSt
Deneme
100.100.5.100
888.885.1.100

vs. Eklersınız ip veya nick seklinde

Şuan Denedım Sorunsuz Calısıyor.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] dostum öncelikle ellerine sağlık emek verdin ben sunu sormak istedim kullanmadan önce

ali* nicki alile baslayanlar
*ali* icinde ali gecenler

txt dosyasına yıldız içinde eklesem çalısırmı yada bı sorun cıkarmı

Cevap: join i *:snotice:*Client connecting*: e cevirmek

Alıntı:

angry1 Nickli Üyeden Alıntı (Mesaj 1040877570)

hocam denedim fakat bı tepkı yok
normal joınde calısıyor ama sanoticeden calısmıyor

çalışıyor o kod.

Cevap: join i *:snotice:*Client connecting*: e cevirmek

Alıntı:

Egzodya Nickli Üyeden Alıntı (Mesaj 1040879903)

çalışıyor o kod.

hacım calısıyosa sendekı kodu ver bana calısmıyor bende

eklediğin nick ident host

kullanıcı listesine direk eklenıyor bakıyorum
* *!cipiares*@* Kullanıcı listesine eklendi
-
0,4 cipiares* identi Gzline Liste eklendi
-
[13:40:18] * Bağlantınız Kesildi
ve ayrıca bağlantıyıda kesiyor direk statuste nickım değilde eklediğim kelime yazıyor nickım oymus qibi

ya ustatlar diyorum kı
manuel kendim ekleyim elimle nick ident hostu
nu kod olmasada olur ben calıstıramadım sanoticede joinde calısıyor
sizin yazabılceqiniz farklı bır sistemde olabılır txt hmake ne bilim wildcar kullanabılecegim sekılde . önerilerinizi beklıyorum..

Cevap: join i *:snotice:*Client connecting*: e cevirmek

Ghost'un,vermiş olduğu code sağlıklı bir şekilde çalışıyor kendi script'ime ekledim deneme amaçlı zline.txt içerisine atıyorum Eternal, nick'ini ekledin direk uzaklaştırıyor aynı şekilde IP, içinde geçerli atıyorum 1111.111.11 IP adresini zline txt dosyasına ekledin sunucuya girişte atıyor.

~

PHP- Kodu:

   [14:08] *** Notice -- Received KILL message for Eternal!confused@C294FA9.xxx.net from x Path: Root.xxx.net!Entrance (Guvenlik Korumasi 22/10/2011 - 14:08:26 ))

PHP- Kodu:

   [14:08] *** Notice -- Client exiting: Eternal (confused@11.1.1.1.) [[irc.xxx.net] Local kill by Entrance (Guvenlik Korumasi 22/10/2011 - 14:08:26 ))]

Ayrıca mIRC Scripting ile, ilgileniyor isen ve birşeyler yapmak istiyorsan ilk önce araştırmalısın ve birşeyler yapmaya az'da olsa özen göstermelisin ayrıca diyorsun ki, manuel eklemek istiyorum Ghost'un, vermiş olduğu Code'ye

CesuryureK, Nick'li arkadaşımızın INPUT ile yazdığı bir Code var onu istemiş olduğun gibi uyarlıyorum fakat birdaha ki,sefere sen de birşeyler yapmaya çalış mirc scripting'ten pek anlamıyorum anladığım kadarıyla, yaptım birşeyler;

Orjinal hali;

Kod:

on *:input:*: {

  if ($1 == !ekle) { write ident.txt $2 | .timer 1 1 .Echo -a $str($chr(42),3) $2 ident ident.txt Listesine Eklendi.. }

  elseif ($regex($1,/(^[!](ç|c)(i|ı)kar$)/i)) { write -d ident.txt $2 | .timer 1 1 .Echo -a  $str($chr(42),3) $2 ident Ident.txt Listesinden Silindi.. }

}

Son hali;

Kod:

on *:input:*: {

  if ($1 == !ekle) { $iif($read(zline.txt,w,$+(*,$2,*)),.timer 1 1 echo -a Zaten $1 listeye ekli,.timer 1 1 .Echo -a $str($chr(42),3) $2 Nick/IP zline.txt Listesine Eklendi.. $(|) write zline.txt $2) }

  if ($regex($1,/(^[!](ç|c)(i|ı)kar$)/i)) { $iif(!$read(zline.txt,w,$+(*,$2,*)),.timer 1 1 echo -a Zaten $2 listede yok ,.timer 1 1 .Echo -a $str($chr(42),3) $2 Nick/IP zline.txt Listesinden Silindi. $(|) write $+(-dl,$readn) zline.txt) }

}

Code'nin, çalışma mantığı;

!ekle Nick
!cikar Nick
!ekle IP
!cikar IP

Not; ekleme yaparken zline txt dosyası değiştirilip, diske yeniden kaydedilsin mi şeklinde bir diyalog gelicek karşına ilk haline getirilmesine izin ver diyip karşısında ki, kutuyu işaretleyip evet demen yeterli olucaktır.

Cevap: join i *:snotice:*Client connecting*: e cevirmek

Alıntı:

angry1 Nickli Üyeden Alıntı (Mesaj 1040880467)

Yıldızlı ekleme yapma, düz ekleme yap.