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;
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;
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.
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])) }
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 }
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.