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

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.