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

Kod:

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:)

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