TeknikShell | 12 Ocak 2014 12:56 | Günün Sözü Can skıntısı ile el33t'in kodun güncelledim. Fazla deneme sanşım olmadı inşallah sorunsuz çalışır..
Kullanım; /soz Kod:
on *:sockopen:soz:{ sockwrite -nt $sockname GET /static/soz.html HTTP/1.1 | sockwrite -nt $sockname Host: Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. sockwrite -nt $sockname $crlf }
on *:sockread:soz:{
var %:soz | sockread %:soz | ;echo -a %:soz
if (*<p class="MsoNormal">* iswm %:soz) { set %:sozler oke! }
else if (%:sozler) { .set %:oku $addtok(%:oku,$htmlfree(%:soz),32) }
if (%:sozler) && (*</td>* iswm %:soz) { sockclose $sockname | unset %:sozler | echo 4 -a * Günün sözü; %:oku | unset %:oku }
}
alias soz { if $sock(soz) { echo 12 -a * /soz: Lütfen daha sonra tekrar deneyiniz. } | else { sockopen soz Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 80 } }
alias -l htmlfree return $regsubex($1-,/(^[^<]*>|<[^>]*>|\t|<[^>]*$)/g,$null) Kaynak; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] |