TRstar.NET | Mirc indir

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

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

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-)
}
}

Bu kod ile web’den aynı anda birden fazla resim  dosyasını belirttiğiniz klasöre indirebilirsiniz. İndirilen resimlerin adı belirttiğiniz adresdeki resmin adı ile klasöre kaydedilir.

Yapımcı; SeRDaR406

Kullanımı:

/picdown <download adı> <resmin adresi> <resmin kaydedileceği klasör>

Örnek:

/picdown http://www.mircdb.com/resim/banner.PNG

Resmin indirilmesinin tamamlandığını anlamak için:

on *:signal:picdown_complete:

event’ından yararlanacağız.

Örnek:

on *:signal:picdown_complete: echo -a $1-

Verilecek yanıt: Download tamamlandı!: <download adı> <resmin kaydedildiği klasör\resmin adı>

——————–

*/
alias gfil return $gettok($1,-1,46)
alias picdown {
if (!$1) echo -a Download'ın adı girilmedi.
elseif (!$2) echo -a İndirilecek resim dosyasının adresi girilmedi.
elseif (!$gfil == png) || (!$gfil == bmp) || (!$gfil == gif) || (!$gfil == jpg) echo -a İndirilecek resim dosyasının uzantısı *.bmp,*.jpg,*.gif yada *.png olmalıdır.
elseif (!$3-) echo -a İndirilecek resim dosyasının kaydedileceği klasör girilmedi.
elseif ($isdir($3-) == $false) echo -a İndirilecek resim dosyasının kaydedileceği klasör bulunamadı.Hiç oluşturulmamış,silinmiş yada ismi değiştirilmiş olabilir.
elseif (!$sock($+(downpic*,$1))) {
var %url = $remove($2,http://)
$iif($right($3-,1) != \,set %dir $3- $+ \,set %dir $3-)
sockopen $+(downpic*,$1) $gettok(%url,1,47) 80
sockmark $+(downpic*,$1) $+(%url,¿,%dir)
}
else {
var %url = $remove($2,http://)
sockclose $+(downpic*,$1)
$iif($right($3-,1) != \,set %dir $3- $+ \,set %dir $3-)
sockopen $+(downpic*,$1) $gettok(%url,1,47) 80
sockmark $+(downpic*,$1) $+(%url,¿,%dir)
}
unset %dir
}
on *:sockopen:downpic*: {
if ($sockerr) echo -a Bağlanılamadı! $+ ( $+ $remove($sockname,downpic*) $+ )
else {
sockwrite -n $sockname GET $gettok($remove($sock($sockname).mark,$gettok($sock($sockname).mark,1,47)),1,191) HTTP/1.0
sockwrite -n $sockname Host: $gettok($sock($sockname).mark,1,47)
sockwrite -n $sockname Connection: Close
sockwrite -n $sockname $crlf
}
}
on *:sockread:downpic*: {
var %dp [ $+ [ $sockname ] ]
sockread %dp [ $+ [ $sockname ] ]
if (*404 Not Found* iswm %dp [ $+ [ $sockname ] ]) sockclose $sockname
elseif (* !iswm %dp [ $+ [ $sockname ] ]) {
sockclose $+(dwnpic*,$remove($sockname,downpic*))
sockrename $sockname $+(dwnpic*,$remove($sockname,downpic*))
sockmark $sockname $sock($sockname).mark
write -c $qt($gettok($sock($sockname).mark,2,191) $+ $gettok($gettok($sock($sockname).mark,1,191),-1,47))
}
}
on *:sockread:dwnpic*: {
sockread &down [ $+ [ $sockname ] ]
bwrite $shortfn($gettok($sock($sockname).mark,2,191) $+ $gettok($gettok($sock($sockname).mark,1,191),-1,47)) -1 -1 &down [ $+ [ $sockname ] ]
}
on *:sockclose:dwnpic*: .signal -n PicDown_Complete Download tamamlandı!: $remove($sockname,dwnpic*) $gettok($sock($sockname).mark,2,191) $+ $gettok($gettok($sock($sockname).mark,1,191),-1,47)