🔔 Çevrimdışı bildirim almak ister misiniz?
Bir konuya etiketlendiğinizde, özel mesaj aldığınızda, bir mesajınız alıntılandığında forumda olmasanız bile anlık bildirim almak için lütfen izni verin.
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