Kod : Kodu kopyalamak için üzerine çift tıklayın!

**RahmetLi** · 26 Nisan 2023, 02:15

/* 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 : Kodu kopyalamak için üzerine çift tıklayın!


         alias wn {
  if $sock($1).status == active {
    sockwrite -n $1-
  }
}

alias afree {
  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;,    )
  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:)
}