Toprak Nickli Üyeden Alıntı
(Mesaj 1041506617)
İyi akşamlar,
Bir arkadaşın isteği üzerine yapıldı biraz basit oldu ama işinize yarar diye paylaşmak istedim; Kod:
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
on *:input:#:if ($1 == !doviz) { set %:kanal # | sockclose kurx | sockopen kurx
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 }
on *:sockopen:kurx:{
sockwrite -nt $sockname GET / 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
unset %:dolar | unset %:euro | unset %:sterlin
}
on *:sockread:kurx:{
var %:kur | sockread %:kur | tokenize 32 %:kur
if (*<li class="midrow alis" title="Dolar Alış"* iswm %:kur) || (*<li class="midrow satis" title="Dolar Satış"* iswm %:kur) { set %:dolar $addtok($htmlfree(%:kur),%:dolar,32) }
if (*<li class="midrow capraz" title="Çapraz Kur: 1 USD* iswm %:kur) {
msg %:kanal 4Dolar ($) Alış(TL) =4 $token(%:dolar,2,32) - Satış(TL) =4 $token(%:dolar,1,32) - Çapraz Kur =4 $htmlfree(%:kur) € ( 1$ = $+($htmlfree(%:kur),€) )
}
if (*<li class="midrow alis" title="Euro Alış">* iswm %:kur) || (*<li class="midrow satis" title="Euro Satış"* iswm %:kur) { set %:euro $addtok($htmlfree(%:kur),%:euro,32) }
if (*<li class="midrow capraz" title="Çapraz Kur: 1 EUR* iswm %:kur) {
msg %:kanal 4Euro (€) Alış(TL) =4 $token(%:euro,2,32) - Satış(TL) =4 $token(%:euro,1,32) - Çapraz Kur =4 $htmlfree(%:kur) $ ( 1€ = $+($htmlfree(%:kur),$) )
}
if (*<li class="midrow alis" title="Sterlin Alış">* iswm %:kur) || (*<li class="midrow satis" title="Sterlin Satış"* iswm %:kur) { set %:sterlin $addtok($htmlfree(%:kur),%:sterlin,32) }
if (*<li class="midrow capraz" title="Çapraz Kur: 1 GBP * iswm %:kur) {
msg %:kanal 4Sterlin (£) Alış(TL) =4 $token(%:sterlin,2,32) - Satış(TL) =4 $token(%:sterlin,1,32) - Çapraz Kur =4 $htmlfree(%:kur) $ ( 1£ = $+($htmlfree(%:kur),$) )
}
}
Ekran Görüntüsü; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
|
