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)
Filed under: IRC Komutlari | Tagged: +b parametreleri, +f kipi parametreleri, Access bilgisi, Akick bilgisi, ASCII karakterler, Ban rehberi, Bağlantı hataları, Bot bilgileri, Chanserv komutları, Chanserv soruları, Dcc protokolü, Kanal ve nick kipleri, Kullanıcı komutları, List komutu, Memoserv komutları, Memoserv soruları, mIRC komutlari, Nickserv soruları, Operserv komutları, Smiley listesi, Version açıklamaları, Who komutları, Wilcard bilgileri, Şifre klavuzu, İgnore komutu | Leave a comment »