| SeRDaR406 | 21 Temmuz 2009 02:12 |
PicDown Snippet
PicDown Snippet
vBeta BY SeRDaR406
www.mIRCArge.com
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.
Kullanımı:
/picdown <download adı> <resmin adresi> <resmin kaydedileceği klasör>
Örnek:
/picdown mircarge http://www.mircdb.com/resim/banner.PNG c:\images\
Resmin indirilmesinin tamamlandığını anlamak için:
Kod:
on *:signal:picdown_complete:
event'ından yararlanacağız.
Örnek:
Kod:
on *:signal:picdown_complete: echo -a $1-
Verilecek yanıt: Download tamamlandı!: <download adı> <resmin kaydedildiği klasör\resmin adı>
Kod:
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)
|
