on *:connect:set %serverprox $server | window -c @proxy | .Remove Proxy.txt | .window -l @proxy | .titlebar @proxy List | sockopen Firefox 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
alias proxyler set %serverprox $server | window -c @proxy | .Remove Proxy.txt | .window -l @proxy | .titlebar @proxy List | sockopen Firefox 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80

on *:sockopen:Firefox:{
  sockwrite -n $sockname GET /socks4.txt HTTP/1.1
  sockwrite -n $sockname Host: proxylists.net
  sockwrite -n $sockname $crlf
  sockwrite -n $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)
  timerprint 1 5 proxy_yaz
  set %updated.proxy $date
}

on *:sockread:Firefox: sockread -f %Firefox | write_Proxy.txt %Firefox 
alias write_Proxy.txt {
  if $1 == HTTP/1.1 goto end
  if $1 == Date: goto end
  if $1 == Server: goto end
  if $1 == Last-Modified: goto end
  if $1 == ETag: goto end
  if $1 == Accept-Ranges: goto end
  if $1 == Content-Length: goto end
  if $1 == Content-Type: goto end
  write Proxy.txt $1-
  :end
}
alias proxy_yaz {
  window -l @proxy | titlebar @proxy List | set %print.out $lines(proxy.txt) | set %printing 1
  :print
  if (%print.out == %printing) { goto end } 
  aline @proxy $read(proxy.txt , %printing) | inc %printing | goto print 
  :end
}
menu @proxy {
  dclick: Set %proxy.click $read(proxy.txt, $1) | Proxy.con $?*!="Tekrar Bağlanılsın Mı? Seçtiğiniz Proxy Adresi: $read(proxy.txt, $1) "
  Yenile:proxyler
}

alias Proxy.con {
  if ($1 == $false) { echo -s Bağlantı iptal edildi.. | goto end }
  echo 2 -s %serverprox 'a Bağlanmak İçin Kullanılan Proxy : $replace(%proxy.click , : , $chr(32) ) | firewall on $replace(%proxy.click , : , $chr(32) ) | Echo -s $server Serverine Bağlanırken Kullanılan Proxy : $replace(%proxy.click , : , $chr(32) ) | server %serverprox
  :end
}
alias Proxywin {
  if $1 == $null proxy_yaz
  if $1 == minimized Window -c @proxy | proxy_yaz
}

alias güncelle {
  .flush tor
  sockopen dify proxylist.net 80
  echo 4 -st Güncel proxy listesi alınıyor...
}
on *:sockopen:dify:{
  sockwrite -n $sockname GET /?list=tor HTTP/1.1
  sockwrite -n $sockname Host: proxylist.net $+ $crlf $+ $crlf
}
on *:sockread:dify:{
  if ($sockerr) { echo 12 -st Hataya rastlandı | halt }
  else {
    var %dify 
    sockread %dify
    if $regex(%dify,/^tor:(.+)-/) { .auser tor $regml(1) }
  }
} 
on *:start:güncelle
on *:snotice:*client*connecting*:if $regex($level($remove($token($10,2,64),$chr(4
1))),/^(tor)$/i) { gzline $9 +0 Proxy girişi yasak }