| L4roXyL | 16 Ekim 2007 09:21 |
Google'da arama yapma ve pagerank ölçme. [Socket]
Bir ara boştaydım, meşgale olsun diye 2 tane kod yazdım.
Sizlerle paylaşmak istedim umarım işinize yarıcayacaktır. 1. Kod : Google'da arama yapma.
Kullanımı: /gara kelime 2. Kod : Pagerank değeri ölçme.
Kullanımı: /ara domain.uzantısı 1. Kod; Kod:
alias gara {
if !$1 { echo -at Bilgi: Herhangi bir kelime girmediniz. Kullanım şekli: $+($chr(2),/gara kelime,$chr(2)) | halt }
else { set -e %1 $1- | set %3 $count(%1,$chr(32)) | sockclose google | sockopen google [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 | echo -at Bilgi: $+($chr(2),%1,$chr(2)) kelimesi google'da aranıyor bekleyiniz. }
}
on *:sockopen:google: {
if $sockerr { echo -at Bilgi: Bağlantı sağlamanadı, lütfen tekrar deneyiniz. | halt }
else { sockwrite -n google GET $+(/search?hl=tr&q=,$replace(%1,$chr(32),$chr(43)),&meta=) HTTP/1.1 | sockwrite -n google Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | sockwrite -n google $crlf }
}
on *:sockread:google: {
var %2 | sockread %2
if *herhangi bir belge bulunamadı* iswm %2 { echo -at Bilgi: $+($chr(2),%1,$chr(2)) kelimesi bulunamadı. | halt }
if *için yaklaşık* iswm %2 {
echo -at Bilgi: Aranılan kelime; $+($chr(2),%1)
echo -at Bilgi: Bulunan sonuç; $+($chr(2),$gettok($replace($remove($gettok($bb(%2),1,41),Web,$chr(40)),$chr(44),$chr(112)),$calc(4+%3),32))
echo -at Bilgi: Arama süresi; $+($replace($+($chr(2),$gettok($replace($remove($gettok($bb(%2),1,41),Web,$chr(40)),$chr(44),$chr(112)),-2,32)),$chr(112),$chr(44)),$chr(2),$chr(32),saniye.)
echo -at Bilgi: $+($chr(2),Sonuçlar'ı görmek için,$chr(32),$chr(2),tıklayınız.)
}
}
alias bb { var %x, %i = $regsub($replace($1-,…,...),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x }
on ^*:hotlink:*tıklayınız.*:*: { return }
on *:hotlink:*tıklayınız.*:*: { run -n $+([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) }
Bu kod'un özelliği aradığınız kelimeler hakkında istatistlikler vericektir.
Ayrıca hotlink kullandığım için, " tıklayınız." yazan yere tıkladığınız zaman, aranılan kelimenin google'daki ilk sayfasına gidecektir. 2. Kod; Kod:
alias ara {
if !$1 { echo -at Bilgi: Aranıcak domain ismini girmediniz. Kullanım şekli(örnek); $+($chr(2),/ara domain.com) | halt }
if $1 { set %_ $1 | sockclose gg | sockopen gg [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 | echo -at Bilgi: $+($chr(2),%_,$chr(2),$chr(32),domain'i taranıyor lütfen bekleyiniz.) | echo -a - }
}
on *:sockopen:gg: {
if $sockerr { echo -at Bilgi: Bağlantı sağlamanadı, lütfen tekrar deneyiniz. | halt }
else { sockwrite -n gg GET $+(/,%_) HTTP/1.1 | sockwrite -n gg Host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | sockwrite -n gg $crlf }
}
on *:sockread:gg: {
var %gg | sockread %gg
if *<td width="410" class="desccell2">Unable to get IP Address</td>* iswm %gg { echo -at Bilgi: $+($chr(2),%_,$chr(32),$chr(2),domain'i kayıtlı değil.) | echo -a - | halt }
if *<td width="410" class="desccell1"><b>* iswm %gg {
echo -at Bilgi: $+(Domain ismi:,$chr(32),$chr(2),%_ )
echo -at Bilgi: Pagerank değeri: $+($chr(2),$gettok($ss(%gg),1,40))
echo -at Bilgi: $+($chr(2),Daha ayrıntılı bilgi almak için;,$chr(32),$chr(2),tıklayın.)
}
}
on ^*:hotlink:*tıklayın.*:*: { return }
on *:hotlink:*tıklayın.*:*: { run -n $+([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]_) }
alias ss { var %x, %i = $regsub($replace($1-,…,...),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x }
Bu kod ise; aranılan domain'in pagerank değerini verir.
Ek olarak yine hotlink kullandığım için, " tıklayın." yazan yere tıkladığınızda; domain hakkında gerçekten ayrıntılı bilgiler bulabileceğiniz siteye yönlendireleceksiniz.
Umarım işinize yarayan kodlardır. |
