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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 01 Mayıs 2009, 01:56   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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:   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 }


 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 01 Mayıs 2009, 17:24   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Macadres ban




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ı..

 
Alıntı ile Cevapla

Alt 01 Mayıs 2009, 18:15   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Macadres ban




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

 
Alıntı ile Cevapla

Alt 01 Mayıs 2009, 18:21   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

 
Alıntı ile Cevapla

Alt 01 Mayıs 2009, 18:23   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Macadres ban




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

 
Alıntı ile Cevapla

Alt 01 Mayıs 2009, 20:41   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Macadres ban




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


 
Alıntı ile Cevapla

Alt 02 Mayıs 2009, 00:56   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Macadres ban




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


 
Alıntı ile Cevapla

Cevapla

Etiketler
ban, macadres, mirc, mirc download, mirc indir


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


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