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