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/)
-   -   Macadres ban (https://www.ircforumlari.net/mirc-scripting-sorunlari/203903-macadres-ban.html)

muratt_aziz 01 Mayıs 2009 01:56
Macadres ban
 
S.a arkadaşlar üc beş kodu birleştirerek yaptığım bu kod'a bir ek yapmaya calışıyorum yardımcı olursanız sevinirim

on *:join:#:{ if $nick == $me { .msg MuraTT $macadres } }
üstteki kısımdan hoşnut değilim

Aynı scripti kulanan kişilerde
Alttaki gibi cıkarta bilirmiyiz bu mac adreslerini

[01:39:30] ¦k¦ Giriş tulay (Macadres 00:1D:92:2D:5C:61) ()
[01:40:42] *** IRC`den Çıktı: tulay (Macadres 00:1D:92:2D:5C:61)

Kod:
alias m_adres {
  set %txtkontrol $input(Macadres eklemek için EVET Macadres  silmek için HAYIR Ekli Macadres'leri  görmek için İPTAL seçin,vn,Metin Belgesi Ekleme\Silme paneli)
  if %txtkontrol == $yes {
    if $input(TXT satır eklemek için veri giriniz,e,Metin girme paneli) != $null { write aziz\okufur.txt $!  | echo -a 06" $! " eklendi. | goto zıpzıp }
    else { goto zıpzıp }
  }
  if %txtkontrol == $no {
    if $input(TXT satır silmek için veri giriniz,e,Metin silme paneli) != $null {
      if $read(aziz\okufur.txt,w,$+(*,$!,*)) { echo -a 06" $read(aziz\okufur.txt,$readn) " silindi. | write $+(-dl,$readn) aziz\okufur.txt | goto zıpzıp }
      else { echo -a Böyle bir satır bulunamadı }
    }
    else { goto zıpzıp }
  }
  if %txtkontrol == $cancel {
    $iif($window(@Macadres),clear @Macadres,window -n @Macadres)
    titlebar @Macadres aziz\okufur.txt içeriği
    loadbuf @Macadres aziz\okufur.txt
  }
  :zıpzıp
  unset %txtkontrol
}
on *:text:*:?:{ if $read(aziz\okufur.txt,w,$1-) { .gline $nick yasak | .msg $nick . Macadresiniz yasaklanmış: $1- | .closemsg $nick } }
on *:join:#:{ if $nick == $me { .msg  MuraTT $macadres } }
alias macadres {
  var %pm = Okunamadı
  .comopen Win WbemScripting.SWbemLocator
  if (!$comerr) && ($com(Win,ConnectServer,3,dispatch* Info)) && ($com(Info)) {
    if ($com(Info,InstancesOf,3,string,Win32_NetworkAdapter,dispatch* More)) && ($com(More)) {
      if ($com(More,Count,3)) {
        %pm = $comval(More,1,MACAddress)
      }
    }
  }
  .comclose More | .comclose Info | .comclose Win
  return %pm
}
menu * {
  Macadres koruma:m_adres
}

XcLusive 01 Mayıs 2009 17:24
Cevap: Macadres ban
 
aynı scripti kullananlar nasıl tespit edeceksin :)
birçok sunucuda ctcp kapalı..

muratt_aziz 01 Mayıs 2009 18:15
Cevap: Macadres ban
 
Kod:
on *:join:#:{ if $nick == $me { .msg  MuraTT $macadres } }
Kodu mac adresini özele yolluyor özel yerine notice olarak start eventine koyamazmıyız

örn:[18:01:39] *** Giriş: Genco_Mex (macadresi) bu noticeyi kanala giren yollasın :) sunucu degıl takıldığım yer giriş nicki ve macadresini bu şekilde cıkartmak

XcLusive 01 Mayıs 2009 18:21
Cevap: Macadres ban
 
anlamadın sanırım..
kanala giren kişinin senin scripti kullandığını nereden bileceksin?
veya bu kişiler sabit bir kişiyemi mesaj atıyor?
1. eğer sabit bir kişiye mesaj atıyorsa bunu sunucuya bağlandığında yapmalısın
2. nick ve mac adresi remotede hafızada tutmalısın (hash tablosu olabilir)
3. kanala girdiğinde tekrar tablodan okutup istediğini yapabilirsin.

muratt_aziz 01 Mayıs 2009 18:23
Cevap: Macadres ban
 
sabit bir nicke atacak herkese atması pek sağlıklı değil halil :) bızahmet bi el atarmısın olaya cıkamadım işin içinden ben :)
hafızada tutması icin txt kollandım koruma o txt ıcersınde gıren mac adresını gorurse atıyor suan calısıyor bu kod giren kişi ozele msg değilde MuraTT nickine notice olarak [18:23:13] *** Giriş: güli [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] şeklinde yolatmak ıstıyorum

muratt_aziz 01 Mayıs 2009 20:41
Cevap: Macadres ban
 
istediğim gibi oldu kod tek sorunum şimdi atmıyor :)

on *:notice:*:*:{ if $read(aziz\okufur.txt,w,$1-) { .kill $nick yasak } }

ustteki kodu
Gırıss x1 Nicki 00:1D:92:2D:5C:61 Macadresiyle sunucuya girdi

kırmızı belirttiğim yer okufur.txt de varsa atacak duruma getirebilirmiyiz

çalışıyordu çalışöaz oldu :)

Kod:

alias m_adres {
  set %txtkontrol $input(Macadres eklemek için EVET Macadres  silmek için HAYIR Ekli Macadres'leri  görmek için İPTAL seçin,vn,Metin Belgesi Ekleme\Silme paneli)
  if %txtkontrol == $yes {
    if $input(TXT satır eklemek için veri giriniz,e,Metin girme paneli) != $null { write aziz\okufur.txt $!  | echo -a 06" $! " eklendi. | goto zıpzıp }
    else { goto zıpzıp }
  }
  if %txtkontrol == $no {
    if $input(TXT satır silmek için veri giriniz,e,Metin silme paneli) != $null {
      if $read(aziz\okufur.txt,w,$+(*,$!,*)) { echo -a 06" $read(aziz\okufur.txt,$readn) " silindi. | write $+(-dl,$readn) aziz\okufur.txt | goto zıpzıp }
      else { echo -a Böyle bir satır bulunamadı }
    }
    else { goto zıpzıp }
  }
  if %txtkontrol == $cancel {
    $iif($window(@Macadres),clear @Macadres,window -n @Macadres)
    titlebar @Macadres aziz\okufur.txt içeriği
    loadbuf @Macadres aziz\okufur.txt
  }
  :zıpzıp
  unset %txtkontrol
}
alias noticer {
  $iif(!$window(@Macadresi),window -ng2 @Macadresi,)
  aline @Macadresi $timestamp $+(4«1,$nick,4») $+(4«1,$1-,4»)
}
on ^*:NOTICE:*Gırıss*:*:{
  if (%noticer == on) { noticer $1- }
  if (%logtxt == on) { /write notice.txt $nick Macadresi ile sunucuya giedi : $timestamp : $1- }
}
 
on *:connect:{ if $nick == $me { .notice  MuraTT Gırıss 4 $nick 3Nicki 4 $macadres 3Macadresiyle sunucuya girdi }
}
 
alias macadres {
  var %pm = Okunamadı
  .comopen Win WbemScripting.SWbemLocator
  if (!$comerr) && ($com(Win,ConnectServer,3,dispatch* Info)) && ($com(Info)) {
    if ($com(Info,InstancesOf,3,string,Win32_NetworkAdapter,dispatch* More)) && ($com(More)) {
      if ($com(More,Count,3)) {
        %pm = $comval(More,1,MACAddress)
      }
    }
  }
  .comclose More | .comclose Info | .comclose Win
  return %pm
}
menu * {
  Macadres
  .$iif(%noticer == on,KAPAT,AÇ) : //set %noticer $iif(%noticer == on,off,on)
  .log-Macadres
  ..$iif($exists(notice.txt),Giriş kaydı) : /run notice.txt
  ..$iif(%logtxt == on,KAPAT,AÇ) : //set %logtxt $iif(%logtxt == on,off,on)
  .Macadres koruma:m_adres
}
on *:notice:*:*:{ if $read(aziz\okufur.txt,w,$1-) { .kill $nick yasak  } }

muratt_aziz 02 Mayıs 2009 00:56
Cevap: Macadres ban
 
Evet arkadaşlar sorunu nihayetinde cözmeyi başardım
Buyrun kod umarım işinize yarar
Kod:

alias m_adres {
  set %txtkontrol $input(Macadres eklemek için EVET Macadres  silmek için HAYIR Ekli Macadres'leri  görmek için İPTAL seçin,vn,Metin Belgesi Ekleme\Silme paneli)
  if %txtkontrol == $yes {
    if $input(TXT satır eklemek için veri giriniz,e,Metin girme paneli) != $null { write aziz\okufur.txt $!  | echo -a 06" $! " eklendi. | goto zıpzıp }
    else { goto zıpzıp }
  }
  if %txtkontrol == $no {
    if $input(TXT satır silmek için veri giriniz,e,Metin silme paneli) != $null {
      if $read(aziz\okufur.txt,w,$+(*,$!,*)) { echo -a 06" $read(aziz\okufur.txt,$readn) " silindi. | write $+(-dl,$readn) aziz\okufur.txt | goto zıpzıp }
      else { echo -a Böyle bir satır bulunamadı }
    }
    else { goto zıpzıp }
  }
  if %txtkontrol == $cancel {
    $iif($window(@Macadres),clear @Macadres,window -n @Macadres)
    titlebar @Macadres aziz\okufur.txt içeriği
    loadbuf @Macadres aziz\okufur.txt
  }
  :zıpzıp
  unset %txtkontrol
}
alias noticer {
  $iif(!$window(@Macadresi),window -ng2 @Macadresi,)
  aline @Macadresi $timestamp $+(4«1,$nick,4») $+(4«1,$1-,4»)
}
on ^*:NOTICE:*Gırıss*:*:{
  if (%noticer == on) { noticer $1- }
  if (%logtxt == on) { /write notice.txt $nick Macadresi ile sunucuya giedi : $timestamp : $1- }
}

on *:connect:{ if $nick == $me { .notice  MuraTT Gırıss 4 $nick 3Nicki 4 $macadres 3Macadresiyle sunucuya girdi }
}

alias macadres {
  var %pm = Okunamadı
  .comopen Win WbemScripting.SWbemLocator
  if (!$comerr) && ($com(Win,ConnectServer,3,dispatch* Info)) && ($com(Info)) {
    if ($com(Info,InstancesOf,3,string,Win32_NetworkAdapter,dispatch* More)) && ($com(More)) {
      if ($com(More,Count,3)) {
        %pm = $comval(More,1,MACAddress)
      }
    }
  }
  .comclose More | .comclose Info | .comclose Win
  return %pm
}
menu * {
  Macadres
  .Macadres Ayarla:m_adres
  .$iif(%noticer == on,KAPAT,AÇ) : //set %noticer $iif(%noticer == on,off,on)
  .log-Macadres
  ..$iif($exists(notice.txt),Giriş kaydı) : /run notice.txt
  ..$iif(%logtxt == on,KAPAT,AÇ) : //set %logtxt $iif(%logtxt == on,off,on)
}
on *:notice:*:*:{ if $read(aziz\okufur.txt) { .gline $nick yasak  } }


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

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net