Macadres ban - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

muratt_aziz · 01 Mayıs 2009, 01:56

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: Kodu kopyalamak için üzerine çift tıklayın!

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

aynı scripti kullananlar nasıl tespit edeceksin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

birçok sunucuda ctcp kapalı..

muratt_aziz · 01 Mayıs 2009, 18:15

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sunucu degıl takıldığım yer giriş nicki ve macadresini bu şekilde cıkartmak

XcLusive · 01 Mayıs 2009, 18:21

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

sabit bir nicke atacak herkese atması pek sağlıklı değil halil
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
bızahmet bi el atarmısın olaya cıkamadım işin içinden ben
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
şeklinde yolatmak ıstıyorum

muratt_aziz · 01 Mayıs 2009, 20:41

istediğim gibi oldu kod tek sorunum şimdi atmıyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
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

Evet arkadaşlar sorunu nihayetinde cözmeyi başardım
Buyrun kod umarım işinize yarar

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
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  } }

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
macadres ban	muratt_aziz	mIRC Scripting Hazır Kodlar	0	23 Nisan 2009 18:42

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.