/* Hakkında */
Kod, tamamen socket mantığını devralarak çalışmaktadır, "
POST " mantığını kullanmaktadır, "
POST " mantığı, site üzerin de ki belirlemiş olduğunuz bir bölüme veri göndermek amacı ile kullanılan bir veridir. Bu veri sayesinde, istediğimiz siteyi o bölüme yerleştirerek o bölümden gelen sonuçları mIRC'imizin üzerine aktarabilmekteyiz.
Kodun amacı, herhangi bir web adresinin, meta-satırlarını size göstermesidir, ve
Google üzerinde en fazla kaç kelimeniz
belirgin bir şekilde okunduğunu da size gösteren bir içerik sunmaktadır. Birçok arkadaşımız, web ile ilgenip aynı-zamanda IRC'de vakit geçirmeyi seven kişiler olduğundan ötürü, sizlere yardımcı olacağı kanaatındayım, bu kodun biraz daha gelişmiş halini, " chat.com.tr
#webmaster " kanalında görebilir, kullanabilirsiniz.
/* Kullanım */
Kullanımı çok basittir, yapmanız gereken tek işlem " /meta siteadı " şeklindedir.
/* Kod (code) */
Kod:
alias wn {
if $sock($1).status == active {
sockwrite -n $1-
}
}
alias afree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x), %x = $remove(%x, , )
return %x
}
alias meta {
if !$sock(meta) {
if ($1 == $null) {
echo -a Herhangi bir site bilgisi girilmedi, lütfen /meta siteadı şeklinde kullanınız.
halt
}
set %::postveri $1
sockopen meta webuildpages.com 80
}
else { .echo -a Zaten şuan da aktif konumdayım. }
}
on *:sockopen:meta:{
var %wn url= $+ %::postveri $+ &c=1
wn meta POST /seo-tools/spider-test/index.php HTTP/1.1
wn meta Content-Type: application/x-www-form-urlencoded; charset="utf-8"
wn meta Content-Length: $calc($len(%wn) + 1)
wn meta Host: webuildpages.com
wn meta
wn meta %wn
}
on *:sockread:meta:{
var %w
sockread %w
if (*<p><strong>Title:* iswm %w) echo -a 2Title: $remove($afree(%w),title:)
if (*<p><strong>Description:* iswm %w) echo -a 2Description: $remove($afree(%w),description:)
if (*<p><strong>Keywords:* iswm %w) echo -a 2Keywords: $remove($afree(%w),keywords:)
if (*<p><strong>Size:* iswm %w) echo -a 2Boyut: $remove($afree(%w),Size:) (byte)
if (*<p><strong>Number*distinct*words:* iswm %w) echo -a 2Google icin kelime sayisi: $remove($afree(%w),Number,of,Distinct,words:)
}