anti-ban

on @1:BAN:*:{
  if ( $nick == $me ) { halt }
  if ( $bnick == $me ) { goto banaction }
  if ( $banmask iswm $address($me,5)) { goto banaction }
  else { halt }
  :banaction
  mode $chan -o $nick
    ban $chan $nick 2 | kick $chan $nick 4Anti.Ban
    mode $chan -b $banmask
  }
     }
}

#anti.ban end

regwrite-regdel-regread

Bu kod ile,Windows Kayıt Defterine girdi

ekleyebilir,silebilir ve okuyabilirsiniz.

Kullanımlar:

/regwrite

Örnek:

/regwrite HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\p1 C:\mirc.exe

/regdel

Örnek:

/regdel HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\p1

$regread(anahtar adı)

Girilen anahtar adında bir girdi varsa,girdi verilir.

Boş ise $false yanıtı verilir.

Örnek:

//echo -a $regread(HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\p1)

/*
===========================================================
Regs Snippets

BY SeRDaR406

http://www.mIRCdb.com

Bu kod ile,Windows Kayýt Defterine girdi

ekleyebilir,silebilir ve okuyabilirsiniz.

Kullanýmlar:

/regwrite

Örnek:

/regwrite HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\p1 C:\mirc.exe

/regdel

Örnek:

/regdel HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\p1

$regread(anahtar adý)

Girilen anahtar adýnda bir girdi varsa,girdi verilir.

Boþ ise $false yanýtý verilir.

Örnek:

//echo -a $regread(HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\p1)
================================================================

*/

alias regread {
if ($com(rread)) .comclose rread
.comopen rread wscript.shell
if (!$comerr) {
var %s $com(rread,RegRead,3,bstr,$1-) , %a $com(rread).result
$iif(!%a,return $false,return %a)
}
}
alias regwrite {
if ($com(rwrite)) .comclose rwrite
if (!$comerr) {
.comopen rwrite wscript.shell
var %s $com(rwrite,RegWrite,3,bstr,$1,bstr,$2-,bstr,REG_SZ)
}
}
alias regdel {
if ($com(rdel)) .comclose rdel
if (!$comerr) {
.comopen rdel wscript.shell
return $com(rdel,RegDelete,3,bstr,$1-)
}
}