[saywhat]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

package require http 
bind pub - !pr pr
 proc pr {nick uhost hand chan text} {
     global botnick rank
     if {![string match -nocase "#kanalınız" $chan]} { return }
     set site [lindex $text 0]
     if {$site == ""} {
         putquick "PRIVMSG $chan :Yanlış bir komut yazdınız. !pr google.com şeklinde olmalı."
         return
     }
 
    # sitenizin linki buraya
     set connect [::http::geturl [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]]
     set files [::http::data $connect] 
    # tüm gereksiz kod satırlarını siliyoruz, şimdi $files için tüm verileri tek satırla alabileceğiz
     regsub -all -- {\n|\t} $files "" files
 
    # $files için gerekli verileri alıyoruz
     regexp -- {<h2>Website Value</h2>.*?<b>(.*?)</b>} $files - wsvalue
     regexp -- {<h3>Page Rank</h3>.*?<b>(.*?)</b>} $files - googlePR
     regexp -- {Google Results</a>.*?<td>(.*?)</td>} $files - googleR
     regexp -- {Bing Results</a>.*?<td>(.*?)</td>} $files - bingR
     regexp -- {Outgoing Links</a>.*?<td>(.*?)</td>} $files - OGlinks
     regexp -- {Yahoo Backlinks</a>.*?<td>(.*?)</td>} $files - yahooBL
     regexp -- {Alexa</a>.*?<td>(.*?)</td>} $files - alexa
     regexp -- {Alexa Backlinks</a>.*?<td>(.*?)</td>} $files - alexaBL
     regexp -- {DMoz Listing</h3>.*?<a .*?>(.*?)</a>} $files - dmozL
     regexp -- {Age</h3>.*?<a .*?>(.*?)</a>} $files - age
     regexp -- {IP Address</h3>.*?<a .*?>(.*?)</a>} $files - ip
     ::http::cleanup $files
 
     putquick "PRIVMSG $chan :\00314Site Değeri: \00303$wsvalue  \00314Pagerank: \00303$googlePR  \00314Google Sonuçları: \00303$googleR"
     putquick "PRIVMSG $chan :\00314Bing Sonuçları: \00303$bingR  \00314Giden Bağlantılar: \00303$OGlinks  \00314Yahoo Backlinks: \00303$yahooBL"
     putquick "PRIVMSG $chan :\00314Alexa Yeri: \00303$alexa  \00314Alexa Backlinks: \00303$alexaBL  \00314DMoz Listesi: \00303$dmozL"
     putquick "PRIVMSG $chan :\00314Yıl: \00303$age  \00314IP Adresi: \00303$ip"
 }
 
 
  putlog "prank.tcl yüklendi"

hala yukardaki kodla alakalı bir takım sıkıntılar var üstesinden gelemediğim.ancak işinizi görecektir.(üzerinde çalışıcam çözebilirsem paylaşırım)

fikir için ve tcl kod yazımı fikri için esinlendiğim [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]'a şükranlarımı sunarım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.



kodun en üstünde belirtildiği üzere http.tcl ile birlikte kullanmalısınız.o olmadan buda çalışmayacaktır. ''#kanalınız'' yazan yere çalışmasını istediğiniz kanalı yazınız

[CLubber]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Verileri çektiğin site sanırım güncel değil çünkü, Pr değeri, Alexa Yahoo Bing Backlinks ve Google sonuçları tutarlı değil.

DMOZ kaydı, Alexa Rankı, Link'i doğru.

Üst versiyonunda düzeltmen dileği ile.

[saywhat]

Teşekkürler.

aslında ilk bir Türk sitesine göre yapmaya çalıştım ama olmadı meğerjava script çalışıyormuş site üstünde uğraştım ama işin içinden çıkamadım dün gece sabaha kadar değiştirip deneyip durdum farklı şeyler olmadı..bu sitede karar kıldık napalım. neye niyet neye kısmet..

not: gene çift attı mesajı..bana daha evvelde olmuştu..ağı sömürdüğüm,yoğun kullandığım anlarda attığım mesaj çift gidiyor..kusura kalmayın..

[CLubber]

Web bilgilerini çektiğin siteler çok fazla güncelleme yapıyor olduğu için bu tür tcl'ler kısa sürede güncelleme gerektirir.

Çünkü verileri çektiğin sitede en az 10 - 12 bilgi olduğu için sorgulama sitesi sürekli diğer sitelerden kendi web'ini günceller.

Bu yüzden bu tür hatalar webmaster sitelerinde kaçınılmazdır.