on *:start:_al
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
alias _güncel { echo -a Proxy list güncellendi toplam4 $lines(proxy.txt) | sockclose _proxy* | unset %* | .timercycle 1 5 kontrol }
alias _ekle {
  if $regex($1,/(\d+\.\d+\.\d+\.\d+)) {
    if !$read(proxy.txt,w,$1) { .write proxy.txt $+($1,:,$2) }
  }
}
alias _al { 
  .remove proxy.txt 
  sockclose links 
  sockopen links 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 
  $+(.timer,qproxy) 1 60 _güncel 
}
on *:sockopen:links:{ 
  sockwrite -nt $sockname GET / HTTP/1.1 
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  sockwrite -nt $sockname Accept-Language: tr-TR
  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
  sockwrite -nt $sockname Connection: Keep-Alive
  sockwrite -nt $sockname $crlf
}
on *:sockread:links:{ 
  var %links | sockread %links | .tokenize 32 %links 
  if (*#more* iswm %links) { return }
  if (*timestamp-link*.html* iswm %links) {
    var %rand $rand(10,999999)
    .sockopen $+(ipal,%rand) $sock($sockname).addr 80
    .sockmark $+(ipal,%rand) $token($token(%links,3-5,47),1,39)
  }
}
on *:sockopen:ipal*:{ 
  sockwrite -nt $sockname GET $+(/,$sock($sockname).mark) HTTP/1.1 
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  sockwrite -nt $sockname Accept-Language: tr-TR
  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
  sockwrite -nt $sockname Connection: Keep-Alive
  sockwrite -nt $sockname $crlf
}
on *:sockread:ipal*:{ 
  var %ipal | sockread %ipal | .tokenize 32 %ipal 
  if (*.*.*:* iswm %ipal) && (*a* !iswm %ipal) { 
    _ekle $token(%ipal,1,58) $token(%ipal,2,58) 
  }
}