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.
type="text/javascript" src="https://code.jquery.com/jquery-1.12.0.min.js">



 

 

 
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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
    }
}