on *:connect: window -c @proxy | Remove Proxy.txt  |  window -l @proxy | titlebar @proxy List |  sockopen Firefox www.proxylists.net 80
on *:sockopen:Firefox:{ 
  sockwrite -n $sockname GET http://proxylists.net/socks4.txt HTTP/1.1
  sockwrite -n $sockname Host: localhost
  sockwrite -n $sockname $crlf
  timerprint 1 3 Proxy_Print
  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_print {
  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 $?*!="ReConnect by : $replace(%proxy.click , : , $chr(32) ) $crlf are you sure? "
}
 
alias Proxy.con {
  if ($1 == $false) { echo -s Connections aborted.. | goto end }
  echo -s Changging Proxy To: $replace(%proxy.click , : , $chr(32) ) | firewall on $replace(%proxy.click , : , $chr(32) ) | Echo -s Reconnect To $server By Proxy : $replace(%proxy.click , : , $chr(32) ) | server vampire.webchat.org 7000
  :end
}
alias Proxywin {
  if $1 == $null proxy_print
  if $1 == minimized Window -c @proxy | proxy_print
}
 

Commenting Options