Konu başlığından anlaşılacağı gibi isim anlam(lar)ını görüntülemeye yarayan bir çalışma.
Kaynak alınan site :
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias anlam {
sockclose isim
sockopen isim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.80
set -e %isim $1
}
on *:sockopen:isim:{
sockwrite -n $sockname GET / $+ %isim $+ / HTTP/1.1
sockwrite -n $sockname Host: $+(
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.sockwrite -n $sockname
}
on *:sockread:isim:{
var %temp
sockread %temp
if (*Hata*404*Sayfa*Bulunamad* iswm %temp) { echo 4 -a Kayıt bulunamadı. | sockclose isim }
if (*<p>*</p>* iswm %temp) && !$regex(%temp,/(isimbul\.net|Yoruma kapal)/) { echo 3 -a $htmlfree(%temp) | sockclose isim }
}
alias htmlfree {
var %x, %i = $regsub($replace($1-,$+($chr(38),#8217,$chr(59)),'),/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x
}
Kodu remote kısmına ekledikten sonra;
/anlam isim (Örnek: /anlam cenk)
komutunu uygulamanız yeterlidir.Türkçe karakterleri(ı,ö,ü,ç,ş,ğ,İ,Ş,Ç,Ğ,Ü,Ö) kullanmayınız,isim(mevcutsa) otomatik olarak sayfaya yönlendirilecektir.
Hoşca paylaşımlar...