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

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Otomatik Proxy Listesi Oluşturma (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/127247-otomatik-proxy-listesi-olusturma.html)

Otomatik Proxy Listesi Oluşturma

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...

Kod:

 

on *:connect:set %serverprox $server | window -c @proxy | .Remove Proxy.txt | .window -l @proxy | .titlebar @proxy List | sockopen Firefox [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80

alias proxyler set %serverprox $server | window -c @proxy | .Remove Proxy.txt | .window -l @proxy | .titlebar @proxy List | sockopen Firefox [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80

 

on *:sockopen:Firefox:{ 

sockwrite -n $sockname GET [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 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

}