TRstar.NET | Mirc indir

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)