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

Cry · 14 Ağustos 2011, 13:14

Yazdığım ilk kod olmakla birlikte, devamının da geleceğini belirtmek isterim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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: Kodu kopyalamak için üzerine çift tıklayın!

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

Set · 14 Ağustos 2011, 19:56

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

Rohit · 14 Ağustos 2011, 22:14

evet sinan'in dedigi gibi, basarilar.

Anatolia · 15 Ağustos 2011, 00:15

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

XnL · 23 Ağustos 2011, 20:37

Cry Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Yazdığım ilk kod olmakla birlikte, devamının da geleceğini belirtmek isterim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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: Kodu kopyalamak için üzerine çift tıklayın!

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

Cry · 23 Ağustos 2011, 22:11

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

Ravage · 24 Ağustos 2011, 00:40

Denedim ben, çalışıyor. Eline sağlık, Serkan.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Mudin · 24 Ağustos 2011, 04:18

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

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

WingmaN · 24 Ağustos 2011, 06:02

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.

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Meta	Desmont	Felsefe	0	11 Kasım 2014 15:02

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.