need help for pagerank script
#1
hi.

sorry i cant speak French,i was educated 1 year at school but it was too many years ago ,so i' forgot everything what i had learnd :d

i've been trying to make a pagerank script in last couple of days but i couldnt made it so i understood that to i need someone's help for to finish that b-cus i actualy dunno what i've trying to do with that.

this is my first time as you can see on code i am a newbie . i have try to make a get data from a web page script so i am trying to learn how ...i'd check some couple of scripts something similar and i had trying to made same on this but as you can see downstairs its not been working and i realy dunno how i can fix this.

i tried so many different ways for to get work this code but at last i understood that to i cant make it and i need help..
i will be thankful for all of your helps

best regards ..

here is that code''

Code :
package require http

bind pub - !pr pr
proc pr {nick uhost hand chan text} {
  global botnick rank
if {![string match -nocase "#bum" $chan]} { return }
  set site [lindex $text 0]
  if {$site == ""} {putquick "PRIVMSG $chan :Yanlış yada eksik komut girdiniz. !pr http://site.com ÅŸeklinde olmalı.";return}
   set connect [::http::geturl http://www.sitebilgi.net/]
   set files [::http::data $connect]
   regexp -- {</a></td><td class="sonuc"><span>...(.*?)</span></td>.*?} $files - googlePS
   regexp -- {<td class="sonuc"><span>...(.*?)</span></td>.*?} $files - googleP
   regexp -- {<td class="sonuc"><span>...(.*?)</span></td>.*?} $files - alexaG
   regexp -- {<td class="sonuc"><span>...(.*?)</span></td>.*?} $files - alexaC
   regexp -- {<td class="sonuc"><span>...(.*?)</span></td>.*?} $files - googleB
   regexp -- {<td class="sonuc"><span>...(.*?)</span></td>.*?} $files - googleI
   regexp -- {<td class="sonuc"><span>...(.*?)</span></td>.*?} $files - facebook
   regexp -- {<td class="sonuc"><span>...(.*?)</span></td>.*?} $files - dmoz
   regexp -- {<td class="sonuc"><span>...(.*?)</span></td>.*?} $files - yahooB
   regexp -- {<td class="sonuc"><b><span>...(.*?)</span></b></td>.*?} $files - bingI
  ::http::cleanup $files
  
   putquick "PRIVMSG $chan Google pagerank\0033$googleP:  Alexa Dünya sırası\0033$alexaG:"
   putquick "PRIVMSG $chan Alexa ülke sırası\0033$alexaC:  Google backlink\0033$googleB:"
   putquick "PRIVMSG $chan Google indeksi\0033$googleI:  Facebook'ta paylaşım\0033$facebook:"
   putquick "PRIVMSG $chan DMOZ kaydı\0033$dmoz:  Yahoo indeks\0033$yahooB:"
   putquick "PRIVMSG $chan Sayfa Hızı Skoru\0033$googlePS: Bing indeks sayısı\0033$bingI:"
}
Répondre Avertir
#2
its just been solved the problem of this code.thanks anyway Smile
Répondre Avertir


Atteindre :


Utilisateur(s) parcourant ce sujet : 1 visiteur(s)
Tchat 100% gratuit -Discutez en toute liberté