|
25 Ocak 2015, 23:53 | #1 |
Bir umuttur yaşamak
Üyelik tarihi: 09 Eylül 1991
Bulunduğu yer: Konya Mesajlar: 323 WEB Sitesi: https://www.teklan.com.tr/ IRC Sunucusu: irc.teklan.com.tr İlgi Alanı: mIRC Scripting Alınan Beğeni: 211 |
Döviz Kurları
İ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 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),$) ) } } Ölmek için doğmuştur ya insan; O yüzden her yağmur sonrası Toprak kokusunu sever.
|
Alıntı
|
15 Aralık 2018, 21:27 | #2 |
Üyelik tarihi: 03 Kasım 2016
Bulunduğu yer: Rize Mesajlar: 139 WEB Sitesi: www.sohbetciyiz.net IRC Sunucusu: irc.sohbetciyiz.net İlgi Alanı: mIRC Scripting Alınan Beğeni: 63 |
Cevap: Döviz Kurları
Kod:
on $*:text:/^[.!]d[oÖö]v[iİı]z$/Si:#: { .doviz } alias doviz { if $sock(doviz*) { sockclose doviz* } sockopen doviz www.piyasadoviz.com 80 sockmark doviz $chan } on *:sockopen:doviz:{ var %doviz .sockwrite -n $sockname %doviz GET / HTTP/1.1 %doviz Host: www.piyasadoviz.com %doviz User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:48.0) Gecko/20100101 Firefox/48.0 %doviz Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8 %doviz Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3 %doviz Connection: keep-alive %doviz $crlf } on *:sockread:doviz:{ var %:doviz sockread %:doviz var %veri $token($token(%:doviz,2,62),1,60) if (*"midrow alis" title="Dolar* iswm %:doviz) { set -u10 %dd %veri } if (*"midrow satis" title="Dolar* iswm %:doviz) { set -u10 %ds %veri } if (*"midrow capraz" title="Çapraz Kur: 1 USD* iswm %:doviz) { set -u10 %dc %veri } if (*"midrow alis" title="Euro* iswm %:doviz) { set -u10 %ed %veri } if (*"midrow satis" title="Euro* iswm %:doviz) { set -u10 %es %veri } if (*"midrow capraz" title="Çapraz Kur: 1 EUR* iswm %:doviz) { set -u10 %ec %veri } if (*"midrow alis" title="Sterlin* iswm %:doviz) { set -u10 %sd %veri } if (*"midrow satis" title="Sterlin* iswm %:doviz) { set -u10 %ss %veri } if (*"midrow capraz" title="Çapraz Kur: 1 GBP* iswm %:doviz) { set -u10 %sc %veri sockopen doviz2 altin.piyasadoviz.com 80 sockmark doviz2 $sock($sockname).mark sockclose $sockname } } on *:sockopen:doviz2:{ var %altin .sockwrite -n $sockname %altin GET /fiyat HTTP/1.1 %altin Host: altin.piyasadoviz.com %altin User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:48.0) Gecko/20100101 Firefox/48.0 %altin Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8 %altin Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.5,en;q=0.3 %altin Connection: keep-alive %altin $crlf } on *:sockread:doviz2:{ var %:altin sockread %:altin var %veri $token($token(%:altin,2,62),1,60) if (*"midrow alis" title="Çeyrek Altın* iswm %:altin) { set -u5 %aca %veri } if (*"midrow satis" title="Çeyrek Altın* iswm %:altin) { set -u5 %acs %veri } if (*"midrow alis" title="Gram Altın* iswm %:altin) { set -u5 %aga %veri } if (*"midrow satis" title="Gram Altın* iswm %:altin) { set -u5 %ags %veri } if (*"midrow alis" title="Tam Altın* iswm %:altin) { set -u5 %ata %veri } if (*"midrow satis" title="Tam Altın* iswm %:altin) { set -u5 %ats %veri } if (*"midrow alis" title="Yarım Altın* iswm %:altin) { set -u5 %aya %veri } if (*"midrow satis" title="Yarım Altın* iswm %:altin) { set -u5 %ays %veri msg $sock($sockname).mark 10Dolar 1Alış:4 %dd 6TL 1Satış:4 %ds 6TL msg $sock($sockname).mark 10Euro 1Alış:4 %ed 6TL 1Satış:4 %es 6TL msg $sock($sockname).mark 10Sterlin 1Alış:4 %sd 6TL 1Satış:4 %ss 6TL msg $sock($sockname).mark 10G.Altın 1Alış:4 %aga 6TL 1Satış:4 %ags 6TL msg $sock($sockname).mark 10Ç.Altın 1Alış:4 %aca 6TL 1Satış:4 %acs 6TL msg $sock($sockname).mark 10Y.Altın 1Alış:4 %aya 6TL 1Satış:4 %ays 6TL msg $sock($sockname).mark 10T.Altın 1Alış:4 %ata 6TL 1Satış:4 %ats 6TL sockclose $sockname } } Ek olarak Altın fiyatları eklenmiştir. |
Alıntı
|
Etiketler |
döviz, kurları |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
|
|
Benzer Konular | ||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
Dolar ve Euro fiyatları için tıkla! Döviz kurlarında son durum! | IF-Haber | Ekonomi Haberleri | 0 | 22 Mart 2016 22:11 |
Döviz Kurları(Döviz TCL Scripting) | Anti | TCL Scriptler | 0 | 21 Kasım 2015 12:08 |
Bankaların döviz işlem limiti 50 milyar dolar oldu | Nyks | Ekonomi Haberleri | 0 | 30 Ağustos 2015 13:13 |