| muratt_aziz | 17 Ekim 2008 22:13 |
mac ban yardım
s.a arkadaslar asadaki kodun oldugu mirc bana mac adresını notice atıyor alınan noticeye kufur korumayı degıstırelek bir koruma eklemek istedım istenmeyen mac adres görünüce kişiyi atması icin pek basarılı olamadım sorun nerde arkadaslar yardımlarınızı beklıyorum... Kod:
raw 381:*:notice 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
}
#text off
on *:start:{ write macadres.txt | set %macadres.kelime Yasaklanmış Bilgisayar.! | disable #text }
#text end
alias macadres { dialog -m macadres macadres }
menu * {
(V)macadres Ban
.macadres List:/.macadres | .echo -a macadres Listesi Açılıyor
.Korumayı Aç:/.enable #vmacadres | .echo -a macadres Koruması Açıldı
.Korumayı Kapat:/.disable #vmacadres | .echo -a macadres Koruması Kapatıldı
}
dialog macadres {
title "MaÇ Adres Ekle Kaldır"
size -1 -1 113 170
option dbu
list 1, 4 37 104 96, size
button "Ekle", 2, 4 134 37 12
button "Sil", 3, 70 134 37 12
check "Korumayı Aç", 4, 5 6 50 10
text "Ban Sebebi", 5, 5 23 31 8
edit "", 6, 40 22 69 10, autohs
button "Kapat !", 7, 38 155 37 12, flat ok
}
on *:dialog:macadres:*:*:{
if ($devent == init) {
if ($group(#vmacadres).status == on) { did -c macadres 4 }
did -a macadres 6 %macadres.kelime
var %i 1
while (%i <= $lines(macadres.txt)) {
did -a macadres 1 $read(macadres.txt,%i)
inc %i
}
}
if ($devent == sclick) {
if ($did == 2) {
var %i $?"macadres macadres Ekleyin"
write macadres.txt %i
did -a macadres 1 %i
}
if ($did == 3) {
if ($did(1).sel != $null) {
write $+(-ds,$did(1).seltext) macadres.txt
did -d $dname 1 $did(1).sel
}
}
if ($did == 4) {
if ($did(4).state == 1) { enable #vmacadres }
else { disable #vmacadres }
}
}
if ($devent == edit) {
set %macadres.kelime $did(6)
}
}
#vmacadres on
on *:snotice:*:*: { if $chan == #k || $chan == # { halt }
var %i 1
while (%i <= $lines(macadres.txt)) {
if ($read(macadres.txt,%i) iswm $1-) { mode $chan +b $nick | .kick $chan $nick 0 | msg $chan $nick macadres yasaklı bilgisayar girişi tesbit edildi.. }
inc %i
}
}
#vmacadres end
|
