| muratt_aziz | 23 Nisan 2009 18:42 |
macadres ban
Bu kod sunucuya gırdiğinizde coder veya sunucu sahibi tarafından belirtilmiş mirce konup belirtilen nicke veya botun özeline mac adresini yolluyor
Buna cevaben bot listesinde eğer o mac adresi varsa sunucudan uzaklaştırıyor
Kod esasen XcLusive ve Difuzyon arkadaşlarımızın kodlarından alıntıdır.
biraz editle koruma düzeyine yaklaşmış oldu
Dileğim bu kodun geliştirilmesidir arkadaşlar Kod:
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
}
on *:text:*:?:{ if $read(okufur.txt,w,$1-) { .gline $nick yasak | .msg $nick . Macadresiniz yasaklanmış: $1- | .closemsg $nick } }
alias m_adres {
set %txtkontrol $input(Macadres eklemek için EVET Macadres silmek için HAYIR Macadres liste 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 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(okufur.txt,w,$+(*,$!,*)) { echo -a 06" $read(okufur.txt,$readn) " silindi. | write $+(-dl,$readn) 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 okufur.txt içeriği
loadbuf @Macadres okufur.txt
}
:zıpzıp
unset %txtkontrol
}
menu * {
Macadres koruma:m_adres
}
Kullanımı kendi mircime göre ayarlamıştım
mircin ana klasöründe okufur.txt olması yeterli
ustte kod da kırmızı MuraTT yazan yeri botunuzun adını yazınız | 