IRCALEM.Com Genel Forum, IRC Forumu IF - mIRC Scripting mIRC Scripting Hazır Kodlar Döviz Kurları - Altın Sorgulama
irc

Döviz Kurları - Altın Sorgulama
Aytac
Döviz Kurları - Altın Sorgulama
0
376
  • 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5

[-]
Etiketler
sorgulama altın kurları döviz

Bu konuyu görüntüleyen kullanıcı(lar):2 Ziyaretçi
Şuan Offine!
Şuan Offine!
Aytac Administrator
********
Proje Sorumlusu

  • Üyelik tarihi    04.02.2020
  • Konum  78 Karabük
  • Konular351
  • Mesajlar364
  • Verilen beğeni8 in 5 posts
  • Alınan beğeni6
  • Rep puanı 6

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
  }
}

mIRC Doviz kurları remote.
“İnsanların en hayırlısı, insanlara faydalı olandır”. H.Ş.


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
dyeni
mIRC Düşecek Domain sorgulama Aytac 0 440 16.03.2020, 00:54
Son Mesaj: Aytac

Foruma Git: