chat eczaonline.com yazılım uzmanı gaziantep web tasarım

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

L4roXyL

Profesyonel
Katılım
16 Eki 2011
Mesajlar
124
Beğeniler
2
#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)

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur. iyinet.com sayfalarında yer alan yazı, görsel ve linklerle ilgili hukuki şikayetleriniz için Buradan iletişime geçmeniz durumunda, ilgili kanunlar ve yönetmelikler çerçevesinde en geç 7 gün içerisinde iyinet yönetimince tarafınıza dönüş sağlanacaktır. Betcup Artemisbet Forum pulibet
Üst