IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - ~ Meta Bot (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/403511-meta-bot.html)

Yazdığım ilk kod olmakla birlikte, devamının da geleceğini belirtmek isterim :) Hataları bildirirseniz, düzeltme şansım olur. Yardımlarından ötürü Aeg (Sinan) kardeşime çok teşekkür ederim.

Kullanım: !meta siteniz
Örnek kullanım: !meta [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] / !meta trforumlar.net
Lütfen başına http:// takısı eklemeyiniz, çalışmaz.
Kodda belirtilen #kanal kelimesini değiştirmeyi unutmayınız.

Kod:

on *:text:*:#kanal: {

  if ($1 == !meta) {

    if (!$2) { msg # 2Site girmediniz. | halt }

    if ($3) { msg # 2Site adresini doğru giriniz. | halt }

    msg # 12 $2 2adresi taranıyor, lütfen bekleyiniz.

    set %site http:// $+ $2

    meta %site

  }

}
 

on *:sockopen:meta*: {

  var %komut = sockwrite -n $sockname

  var %cry url= $+ $gettok($sock($sockname).mark,1,42) $+ &robot=&custom_robot=&email=&Submit=Submit

  %komut POST /cgi-bin/analyzer/meta.pl HTTP/1.1

  %komut Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:5.0.1) Gecko/20100101 Firefox/5.0.1

  %komut Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8

  %komut Accept-Language: en-us,en;q=0.5

  %komut Accept-Encoding: gzip, deflate

  %komut Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7

  %komut Connection: keep-alive

  %komut Referer: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Content-Type: application/x-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Content-Length: $calc($len(%cry) + 1)

  %komut

  %komut %cry

}
 

on *:sockread:meta*: {

  var %s

  sockread %s 

  if (Title:</td> isin %s) {

    msg #kanal 12Title:2 $htmlfree($gettok(%s,8-,32))

    msg #kanal 2Site başlığınız12 $len($htmlfree($gettok(%s,8-,32))) 2karakterden oluşmaktadır. En fazla12 70 2karakter kullanabilirsiniz.

  }

  if (Description:</td> isin %s) {

    msg #kanal 12Description:2 $htmlfree($gettok(%s,8-,32))

    msg #kanal 2Site açıklamanız12 $len($htmlfree($gettok(%s,8-,32))) 2karakterden oluşmaktadır. En fazla12 160 2karakter kullanabilirsiniz.

  }

  if (Keywords:</td> isin %s) {

    msg #kanal 12Keywords:2 $htmlfree($gettok(%s,8-,32))

    msg #kanal 2Anahtar kelimeleriniz12 $len($htmlfree($gettok(%s,8-,32))) 2karakterden oluşmaktadır. En fazla12 260 2karakter kullanabilirsiniz.

  }  

}
 

alias htmlfree {

  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;,    )

  return %x

}

alias meta {

  var %random $rand(0,9999999)

  if ($sock( $+ $sock(meta,%random))) { var %random $+(%random,$rand(0,999)) }

  sockopen $+(meta,%random) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80

  sockmark $+(meta,%random) $1

}

Umarım işinize yarar, lütfen görüşlerinizi eksik etmeyin.

Cry / 2011

Cevap: ~ Meta Bot

Eline saglık Serkan , ben birşey yapmadım sadece yolu gösterdim , gerisi sana ait , devam'ıda gelir ins,

Cevap: ~ Meta Bot

evet sinan'in dedigi gibi, basarilar.

Cevap: ~ Meta Bot

elinize sağlık büyük yarar sağlayacak arayan arkadaşlar için ,)

Cevap: ~ Meta Bot

Alıntı:

Cry Nickli Üyeden Alıntı (Mesaj 1040784953)

Kod:

on *:text:*:#kanal: {

  if ($1 == !meta) {

    if (!$2) { msg # 2Site girmediniz. | halt }

    if ($3) { msg # 2Site adresini doğru giriniz. | halt }

    msg # 12 $2 2adresi taranıyor, lütfen bekleyiniz.

    set %site http:// $+ $2

    meta %site

  }

}

 

on *:sockopen:meta*: {

  var %komut = sockwrite -n $sockname

  var %cry url= $+ $gettok($sock($sockname).mark,1,42) $+ &robot=&custom_robot=&email=&Submit=Submit

  %komut POST /cgi-bin/analyzer/meta.pl HTTP/1.1

  %komut Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:5.0.1) Gecko/20100101 Firefox/5.0.1

  %komut Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8

  %komut Accept-Language: en-us,en;q=0.5

  %komut Accept-Encoding: gzip, deflate

  %komut Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7

  %komut Connection: keep-alive

  %komut Referer: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Content-Type: application/x-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Content-Length: $calc($len(%cry) + 1)

  %komut

  %komut %cry

}

 

on *:sockread:meta*: {

  var %s

  sockread %s 

  if (Title:</td> isin %s) {

    msg #kanal 12Title:2 $htmlfree($gettok(%s,8-,32))

    msg #kanal 2Site başlığınız12 $len($htmlfree($gettok(%s,8-,32))) 2karakterden oluşmaktadır. En fazla12 70 2karakter kullanabilirsiniz.

  }

  if (Description:</td> isin %s) {

    msg #kanal 12Description:2 $htmlfree($gettok(%s,8-,32))

    msg #kanal 2Site açıklamanız12 $len($htmlfree($gettok(%s,8-,32))) 2karakterden oluşmaktadır. En fazla12 160 2karakter kullanabilirsiniz.

  }

  if (Keywords:</td> isin %s) {

    msg #kanal 12Keywords:2 $htmlfree($gettok(%s,8-,32))

    msg #kanal 2Anahtar kelimeleriniz12 $len($htmlfree($gettok(%s,8-,32))) 2karakterden oluşmaktadır. En fazla12 260 2karakter kullanabilirsiniz.

  }  

}

 

alias htmlfree {

  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;,    )

  return %x

}

alias meta {

  var %random $rand(0,9999999)

  if ($sock( $+ $sock(meta,%random))) { var %random $+(%random,$rand(0,999)) }

  sockopen $+(meta,%random) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80

  sockmark $+(meta,%random) $1

}

Umarım işinize yarar, lütfen görüşlerinizi eksik etmeyin.

Cry / 2011

mrc Remotesine Ekledim ama calısmadı neden kaynaklanmis olablir ?

[KBSC] [20:33:57] <12XnL> !meta trforumlar.net
[KBSC] [20:33:58] <03xnLBot> 12 trforumlar.net 2adresi taranıyor, lütfen bekleyiniz.

BÖle birsey cıktı ama gerisi gelmedi ilgi ve alakanızdan dolayı saqolun simdiden

Cevap: ~ Meta Bot

Kodu tekrar test ettim herhangi bir sorun yok. Kodda yazan #kanal kelimelerinin hepsini değiştiğinizden emin misiniz?

Cevap: ~ Meta Bot

Denedim ben, çalışıyor. Eline sağlık, Serkan. :)

Cevap: ~ Meta Bot

if ($3) { msg # 2Site adresini doğru giriniz. | halt }

sanırsam burda !$3 yapacağın yerde yalnış bi tabir kullanmışsın.

Cevap: ~ Meta Bot

Hayır orda bir sorun yok, Mudin. Sanırım arkadaşımız, eğer ki cümle içerisinde " $3 " geçiyorsa, işlem kabul edilmesin, uyarı versin şeklinde düşünerek yazmış ama, gereksiz bir kod. Zaten girmiş olan veri " $1 - $2 - $3 " sıralaması içerisinden, direkt " $2 " olarak çekilmekte, " $2- " olarak değil.