#1
|
|||
|
|||
Web'den resim çek
alias resimindir { if * $+ / $+ * !iswm $1 || $2 { echo -a * Hata! Lütfen düzgün parametreler kullanın. ÖRN: [Link'i Görebilmeniz İçin Kayıt Olunuz.! Kayıt OL] } if $sock(resin) || $sock(resin2) { echo -a * Başka bir indirme işlemi devam etmekte } else { .unset %resin.* .set %resin.govde $remove($1,[Link'i Görebilmeniz İçin Kayıt Olunuz.! Kayıt OL] .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.* }} |
Benzer Konular |
||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
Atatürk Resimleri | haktan | Atatürk Köşesi | 62 | 19 February 2009 14:10 |
Alkışlanacak Vefa | ceyLin | Genel ve Güncel Konular, Son Haberler | 0 | 23 November 2008 16:31 |
Elveda Rumeli 30. bölüm / 5 .kısım | ceyLin | Elveda Rumeli | 0 | 17 November 2008 15:51 |