🔔 Çevrimdışı bildirim almak ister misiniz?
Bir konuya etiketlendiğinizde, özel mesaj aldığınızda, bir mesajınız alıntılandığında forumda olmasanız bile anlık bildirim almak için lütfen izni verin.
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, , )
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
}