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

>
+
Etiketlenen Kullanıcılar

4Beğeni(ler)
  • 1 Post By saywhat
  • 3 Post By CLubber

 
 
LinkBack Seçenekler Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 07 Nisan 2012, 11:46   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
prank.tcl (pagerank)




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

 
Alıntı ile Cevapla

 

Etiketler
pagerank, pranktcl


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Pagerank(PR) Nedir? Linux Google Seo 3 27 Temmuz 2013 16:07
2 Pagerank ( 3 ) 1 Pagerank ( 2 ) Herkezle ! Firat31 Link değişimi 4 06 Şubat 2011 02:13
Pagerank Güncellemesi riXos Google Seo 3 28 Şubat 2010 16:29
Pagerank 2 ve Üzeri WEBCI Link değişimi 0 22 Ekim 2008 08:00