on *:text:*:#:{
if $1 == !
pr {
set %
pr-chan $chan
msg $chan $2 sitesinin bilgileri toplanıyor. Lütfen bekleyin.
set %cumle $2
sockopen aLieN-
PR prsorgulama.org 80
}
}
on *:sockopen:aLieN-
PR: {
sockwrite -n $sockname GET $+(/,%cumle) HTTP/1.1
sockwrite -n $sockname Host: $+(prsorgulama.org,$crlf,$crlf)
}
on *:sockread:aLieN-
PR: {
var %a
sockread %a
if *<span class="footer"><img src="img/
pr/1* iswm %a {
write
pr.txt %a
}
else {
write
pr.txt $temizle(%a)
}
}
on *:sockclose:aLieN-
PR: {
msg %
pr-chan Site Adresi : $read(
pr.txt,39)
msg %
pr-chan
PR Değeri : $right($left($gettok($read(
pr.txt,44),4,34),-4),1)
msg %
pr-chan Alexa Sıra : $read(
pr.txt,51)
msg %
pr-chan Yahoo Backlink : $read(
pr.txt,59)
msg %
pr-chan Google Backlick: $read(
pr.txt,84)
msg %
pr-chan Alexa Backlink : $read(
pr.txt,91)
msg %
pr-chan Yahoo Dizini : $read(
pr.txt,97)
msg %
pr-chan Google İndex S.: $read(
pr.txt,104)
msg %
pr-chan Bing İndex S. : $read(
pr.txt,116)
msg %
pr-chan Yahoo İndex S. : $read(
pr.txt,110)
msg %
pr-chan Digg Link : $read(
pr.txt,123)
msg %
pr-chan Delicious Link : $read(
pr.txt,129)
msg %
pr-chan Dmoz Kaydı : $replace($read(
pr.txt,66),ı,ı)
msg %
pr-chan Son İndex. Trh.: $read(
pr.txt,170)
msg %
pr-chan Site Değeri($) : $read(
pr.txt,151)
remove
pr.txt
}
Kod çalişiyor ama verileri vermiyor kanala yardimci olurmusunuz arkadaşlar..