Webden resim çek
mirc script Web\'den resim çek kodu
28.01.2011
irc kodu
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.*
}
}