Abracadabra.1forum.biz -
Would you like to react to this message? Create an account in a few clicks or log in to continue.



 
AnasayfaLatest imagesAramaKayıt OlGiriş yap

 

 İsim Anlamaları

Aşağa gitmek 
YazarMesaj
JuLiet
Admin
Admin
JuLiet


Mesaj Sayısı : 113
Kayıt tarihi : 03/05/10
Yaş : 37
Nerden : iStanbuL

İsim Anlamaları Empty
MesajKonu: İsim Anlamaları   İsim Anlamaları I_icon_minitimeCuma Mayıs 14, 2010 1:37 pm

Kod:
- alias anlam {
sockclose isim
sockopen isim www.isimbul.net 80
set -e %isim $1
}
on *:sockopen:isim:{
sockwrite -n $sockname GET / $+ %isim $+ / HTTP/1.1
sockwrite -n $sockname Host: $+(www.isimbul.net,$str($crlf,2))
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 (*
** 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 Ahmet)
Sayfa başına dön Aşağa gitmek
http://kelebekhelpteam.org/
 
İsim Anlamaları
Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Abracadabra.1forum.biz - :: mIRC Scripting ve Sohbet Programları :: mIRC Scripting-
Buraya geçin: