on *:connect:set %serverprox $server | window -c [USER=15542]Proxy[/USER] | .Remove Proxymt.txt | .window -l [USER=15542]Proxy[/USER] | .titlebar [USER=15542]Proxy[/USER] List | sockopen Firefox [url]www.proxylists.net[/url] 80
alias proxyler set %serverprox $server | window -c [USER=15542]Proxy[/USER] | .Remove Proxymt.txt | .window -l [USER=15542]Proxy[/USER] | .titlebar [USER=15542]Proxy[/USER] List | sockopen Firefox [url]www.proxylists.net[/url] 80
 
on *:sockopen:Firefox:{ 
sockwrite -n $sockname GET [url]http://proxylists.net/socks4.txt[/url] HTTP/1.1
sockwrite -n $sockname Host: localhost
sockwrite -n $sockname $crlf
timerprint 1 3 proxy_yaz
set %updated.proxy $date
}
 
on *:sockread:Firefox: sockread -f %Firefox | write_Proxymt.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 [USER=15542]Proxy[/USER] | titlebar [USER=15542]Proxy[/USER] List | set %print.out $lines(proxymt.txt) | set %printing 1
:print
if (%print.out == %printing) { goto end } 
aline [USER=15542]Proxy[/USER] $read(proxymt.txt , %printing) | inc %printing | goto print 
:end
}
menu [USER=15542]Proxy[/USER] {
dclick: Set %proxy.click $read(proxymt.txt, $1) | Proxy.con $?*!="Tekrar Bağlanılsın Mı? Seçtiğiniz Proxy Adresi: $read(proxymt.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 [USER=15542]Proxy[/USER] | proxy_yaz
}