alias indir {
if $hget(indirt) {
.hfree -s indirt
}
unset %indir*
set %sitem $$?"Lütfen Kendi Sitenizi Yazınız ornek: sohbetce.net"
if %sitem == $null {
:r
set %sitem $$?"Lütfen Kendi Sitenizi Yazınız ornek: sohbetce.net"
if %sitem == $chr(32) {
goto r
}
}
sockopen indir
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.hayta.net 80
}
on 1:sockopen:*: {
if $sockname == indir {
if $hget(indirt) {
.hfree -s indirt
}
unset %indir*
sw $sockname GET /index.html HTTP/1.1
sw $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.hayta.net
sw $sockname $crlf
}
elseif indir isin $sockname {
write -c $shortfn(download/ $+ $nopath($gettok($sockname,1,900)))
sw $sockname GET / $+ $gettok($gettok($sockname,1,900),2-,47) HTTP/1.1
sw $sockname Host: $gettok($gettok($sockname,1,900),1,47)
sw $sockname $crlf
}
}
alias _sockopen {
if $sock($1).status != active && $sock($1).status !== connecting {
sockopen $1-
}
}
on 1:sockread:*: {
if $sockname == indir {
var %r
sockread %r
if color="#cccccc" isin %r && <A HREF=" isin %r && .htm isin %r {
_sockopen
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">$remove($gettok($mid(%r,- $pos(%r,htm,1),59),2,34),http://,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">$chr(900) $+ indir
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">$sockname {
if $hget(indirt,$hash($sockname,32)) != 1 {
sockread %indir [ $+ [ $hash($sockname,32) ] ]
if %indir [ $+ [ $hash($sockname,32) ] ] == $null {
hadd -m indirt $hash($sockname,32) 1
}
}
else {
sockread 800 &r
var %i 1 , %lin $numtok($bvar(&r,1,$bvar(&r,0).long).text,10)
while %i <= %lin {
var %r = $gettok($bvar(&r,1,$bvar(&r,0).long).text,%i,10)
if title=" isin %r && <a href=" isin %r {
_sockopen
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">$remove($gettok($mid(%r,- $pos(%r,htm,1),59),2,34),http://,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">$chr(900) $+ indir
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">$nopath($gettok($sockname,1,900)) -1 -1 $replace($bvar(&r,1,$bvar(&r,0).long).text,hayta.net,%sitem)
}
}
}
on 1:sockclose:*: {
if $sockname != indir && indir isin $sockname {
if $sock(*indir,0) == 0 {
if $hget(indirt) {
.hfree -s indirt
}
unset %indir*
echo -s Download Tamamlandı.
}
}
}
