IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:

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

}

Arkadaşlar bu kod remote ye eklendiğinde güncel proxy listesi veriyor size bu liste proxy.txt kloserine otomatik eklenıyo tamam sorun yokta bu listeye zline atma gibi savunma amaçlı bişey yapabilirmi Coder' arkadaşlar ?