Mirc Addonlar / Güncel Proxy Listesi, Mirc addonlar | Güncel proxy listesini mircten alma

[Tanlmslz]

Mirc Addonlar / Güncel Proxy Listesi, Mirc addonlar | Güncel proxy listesini mircten alma

Mirc Addonlar / Güncel Proxy Listesi



Herhangi bir IRC serverine mirc ile bağlandığınızda bu addonu kullanarak güncel proxy listesini çıkarabilirsiniz.

Bu sayede en güncel listeyi elde etmiş olur ve gerekli önlemleri alabilirsiniz.

Yazının devamını okuyunuz.

Kod:

on *:connect:set %serverprox $server | window -c @proxy | .Remove Proxy.txt | .window -l @proxy | .titlebar @proxy List | sockopen Firefox www.proxylists.net 80
alias proxyler set %serverprox $server | 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_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
}

Bu Kod Bir Servere Bağlanıldığında, yada /proxyler komutu kullanıldığında @Proxy penceresine en güncel proxy listesini verir... Proxy Penceresindeki Herhangi Bit Proxy Adresine Tıklanıldığında Otomatik olarak seçilen proxy kullanılmaya başlar...