Google'da arama yapma ve pagerank ölçme. [Socket]

L4roXyL

Profesyonel
Katılım
16 Eki 2011
Mesajlar
124
Beğeniler
1
#1
Yazan: L4roXyL - Hasan AYDENİZ
Tarih: 2007

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 [URL="http://www.google.com.tr/"]www.google.com.tr[/URL] 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: [URL="http://www.google.com.tr/"]www.google.com.tr[/URL] | 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,$lisanssız,%x),   %x = $remove(%x, ,$chr(9)) | return %x  } 
on ^*:hotlink:*tıklayınız.*:*: { return }
on *:hotlink:*tıklayınız.*:*: { run -n $+([URL="http://www.viewwhois.com/,$replace%28%_,$chr%2832%29,$chr%2843"]www.viewwhois.com/,$replace(%_,$chr(32),$chr(43[/URL])) }
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 [URL="http://www.viewwhois.com/"]www.viewwhois.com[/URL] 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: [URL="http://www.viewwhois.com/"]www.viewwhois.com[/URL] | 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 $+([URL="http://www.viewwhois.com/,%"]www.viewwhois.com/,%[/URL]_) }
alias ss { var %x, %i =   $regsub($replace($1-,…,...),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$lisanssız,%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.
 

Bu konuyu okuyanlar (Üyeler: 1, Misafirler: 0)

Üst