IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu sekershell
bizimkiler sosyalchat


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Arama Stil
Alt 02 Mayıs 2016, 22:25   #1
Çevrimdışı
Döviz Kurları Öğrenme


Reklam

Bir kullanıcının isteği üzerine yapmıştım sizlerinde kullanması için kodu paylaşıyorum.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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 www.piyasadoviz.com 80 } on *:sockopen:kurx:{ sockwrite -nt $sockname GET / HTTP/1.1 sockwrite -nt $sockname Host: www.piyasadoviz.com 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),$) ) } }

Resim:

Bir kullanıcının isteği üzerine yapmıştım sizlerinde kullanması için kodu paylaşıyorum.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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 www.piyasadoviz.com 80 } on *:sockopen:kurx:{ sockwrite -nt $sockname GET / HTTP/1.1 sockwrite -nt $sockname Host: www.piyasadoviz.com 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),$) ) } }

Resim:

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
döviz, hazır kodlar, kurları, mirc doviz, mirc hazır kod, öğrenme
IRCForumu.Net - Sponsor Bağlantılar


Seçenekler Arama
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık