mIRCForumlari.Net

mIRCForumlari.Net (https://www.mircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.mircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Güncel Altın ve döviz fiyatları (https://www.mircforumlari.net/mirc-scripting-hazir-kodlar/18407-guncel-altin-ve-doviz-fiyatlari.html)

RahmetLi 15 Nisan 2023 14:51

Güncel Altın ve döviz fiyatları
 
PHP- Kodu:

alias d_exc_total return $+(=,$chr(3),12) $remove($replace($gettok($gettok($1,15-,$asc(")),2-1,44),$chr(44),$+($chr(32),TL,$chr(32),$chr(3),4),:,$+(:,$chr(32))),") TL
alias exchange {
  sockopen exchange bigpara.hurriyet.com.tr 80
sockmark exchange https://bigpara.hurriyet.com.tr/altin/ }
on *:sockopen:exchange: {
  if ($sockerr) { msg %d_echan $+($chr(3),5) *** Siteye bağlantı sağlanamadı! | return }
  sockwrite -n $sockname GET $sock($sockname).mark HTTP/1.1
  sockwrite -n $sockname Host: $sock($sockname).addr
  sockwrite -n $sockname User-Agent: */*
  sockwrite -n $sockname Connection: Close
sockwrite -n $sockname }
on *:sockread:exchange: { if ($sockerr) { msg %d_echan $+($chr(3),5) *** Veriler alinamadi! | return }
  var %d_exc | sockread %d_exc | if ($sockbr) {
 if $regex(%d_exc,/var \$altindata =/i) { var %r 1 | while %r <= $numtok(%d_exc,123) { %total = $gettok(%d_exc,%r,123)
        if *"sembolid":2199* iswm $gettok(%total,1-1,123) { msg %d_echan $+($chr(3),5) *** GRAM ALTIN $d_exc_total($v2) }
        if *"sembolid":473* iswm $gettok(%total,1-1,123) { msg %d_echan $+($chr(3),5) *** CUMHURİYET ALTINI $d_exc_total($v2) }
        if *"sembolid":2356* iswm $gettok(%total,1-1,123) { msg %d_echan $+($chr(3),5) *** CEYREK ALTIN $d_exc_total($v2) }
        if *"sembolid":2640* iswm $gettok(%total,1-1,123) { msg %d_echan $+($chr(3),5) *** 22 AYAR BİLEZİK $d_exc_total($v2) }
        if *"sembolid":2355* iswm $gettok(%total,1-1,123) { msg %d_echan $+($chr(3),5) *** YARIM ALTIN $d_exc_total($v2) }
        if *"sembolid":1302* iswm $gettok(%total,1-1,123) { msg %d_echan $+($chr(3),5) *** DOLAR $d_exc_total($v2) }
        if *"sembolid":1639* iswm $gettok(%total,1-1,123) { msg %d_echan $+($chr(3),5) *** EURO $d_exc_total($v2) }
inc %r } } } }
on *:sockclose:exchange: { msg %d_echan $+($chr(3),5) *** $+($chr(3),4) $time  $chr(3) itibari ile güncel fiyatlar listelendi. }
on *:text:*:#kanal: { if $regex($1,/^(!|\.)kur$/i) { %d_echan = # | exchange } }



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 15:35.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.


Navbar with Avatar by Motorradforum