alias resimindir { if * $+ / $+ * !iswm $1 || $2 { echo -a * Hata! Lütfen düzgün parametreler kullanın. ÖRN: www.mircdb.com/images/logo } if $sock(resin) || $sock(resin2) { echo -a * Başka bir indirme işlemi devam etmekte } else { .unset %resin.* .set %resin.govde $remove($1,http://) .set %resin.uzanti $gettok(%resin.govde,2-,47) .set %resin.ana $gettok(%resin.govde,1,47) .set %resin.ismi $gettok(%resin.govde,$numtok(%resin.govde,47),47) sockopen resin %resin.ana 80 echo 3 -a * Web sitesine bağlantı kuruluyor; %resin.ana echo 1 -a - }}on *:sockopen:resin: { if $sockerr { echo 3 -a * Web sitesine bağlanırken hata oluştu, lütfen bağlantınızı ve web sitesini kontrol ediniz } else { echo 3 -a * Web sitesine bağlantı kuruldu; %resin.ana echo 1 -a - sockwrite -n $sockname GET / $+ %resin.uzanti HTTP/1.0 sockwrite -n $sockname Host: %resin.ana $+ $crlf $+ $crlf echo 3 -a * Veri kontrol edildi; %resin.ismi echo 1 -a - }}on *:sockread:resin: { var %ğ sockread %ğ if (*404*Not* iswm %ğ) || (*Found* iswm %ğ) { echo 4 -a * HATA! Verdiğiniz URL adresinde böyle bir resim bulunmamaktadır! echo 1 -a - sockclose resin sockclose resin2 .unset %resin.* .halt } if (*403* iswm %ğ) || (*Forbid* iswm %ğ) { echo 4 -a * HATA! Verdiğiniz URL adresinden resim çekmek yasak! echo 1 -a - sockclose resin sockclose resin2 .unset %resin.* .halt } if (* !iswm %ğ) { .sockclose resin2 sockrename resin resin2 write -c $qt(%resin.ismi) echo 3 -a * Veri oluşturuldu , datalar çekiliyor; %resin.ismi echo 1 -a - }}on *:sockread:resin2: { sockread &pdata bwrite $shortfn(%resin.ismi) -1 -1 &pdata}on *:sockclose:resin2: { if $isfile(%resin.ismi) { echo 3 -a * Datalar çekildi veri kaydedildi; $mircdir $+ 4 $+ %resin.ismi .unset %resin.* }}