lookjapan.COM - IRC ve mIRC dünyasının forumu!

lookjapan.COM - IRC ve mIRC dünyasının forumu! (http://www.lookjapan.com/index.php)

- Hazır Kodlar (http://www.lookjapan.com/forumdisplay.php?f=51)

- - Döviz Kurları (http://www.lookjapan.com/showthread.php?t=61)

İyi akşamlar,
Bir arkadaşın isteği üzerine yapıldı biraz basit oldu ama işinize yarar diye paylaşmak istedim..

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

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),$) ) 

  }

}

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

  }

}

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Ek olarak Altın fiyatları eklenmiştir.