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

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sizi yaptıgınız proxy tcl scriptini güncelleme şansınız var mı.Alttaki sitelerden çekebiliriz.Sitelerini yazdım ama çekmedi.

Kod:

https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="margin:20px; margin-top:5px"> Kod:
 
package require http
 

set dosya "DosyaAdi.txt"
 

bind pub mn .update proxyupdate
 

proc proxyupdate {nick uhost hand chan text} {

    set Pre {<h3 class='post-title entry-title' itemprop='name'>.+?<a href='(.*?)'>}

    set IPre {(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}):\d{2,5}}

    set ProxBir [ProxyAl 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
foreach {_ PurlBir} [regexp -all -inline $Pre $ProxBir] {

        lappend Proxylinkler $PurlBir

    }

    set ProxIki [ProxyAl http://socksproxylist24.blogspot.com.tr/]

    foreach {_ PurlIki} [regexp -all -inline $Pre $ProxIki] {

        lappend Proxylinkler $PurlIki

    }

    set ProxUc [ProxyAl 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
foreach {_ PurlUc} [regexp -all -inline $Pre $ProxUc] {

        lappend Proxylinkler $PurlUc

    }

    set IPler ""; set i 0

    foreach ProxySitesi [split $Proxylinkler " "] {

        set PIPurl [ProxyAl $ProxySitesi]

        foreach {_ Pip} [regexp -all -inline $IPre $PIPurl] {

            if {$Pip ni $IPler} {

                lappend IPler $Pip

            }

            incr i

        }

    }

    set fp [open $::dosya w]

    puts $fp [join $IPler]

    close $fp

    puthelp "privmsg $chan :[llength $IPler] Adet Proxy IP $::dosya Dosyasına Yazıldı."

}
 

proc ProxyAl url {

    set tok [http::geturl $url]

    set data [http::data $tok]

    http::cleanup $tok

    if {[info exists data] && [string length $data]} {

        return $data

    }

}