Bu mac adres banlamayı nasıl yapıyorsun sunucuya giren kişinin mac adresini nasıl alıyorsun kod lar nelerdir bizimle paylaşırmısın biz bu konu üzerinde cok çalıştık alamadık mac adresi Gemlik arkadaşımız da konuyla ilgilendi sağolsun sonuc aşağıda sade mircle ve atılcak kişidede bu kod olması kaydıyla mac adres bula bildik sen nasıl buluyorsun bizimle paylaşırmısın..
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_NetworkAdapt er,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) { .kill $nick yasak } }