IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi

/altin

Kod:

alias altin { vcek https://api.genelpara.com/json/?list=altin&sembol=all }

alias vcek {

  var %qk $+(hop,$r(1,9999)) | .comopen %qk Msxml2.ServerXMLHTTP.6.0

  noop $com(%qk, open, 2, bstr, GET, bstr, $1)

  noop $com(%qk, send, 1) $com(%qk, responseText, 2)

  var %l1 $len($com(%qk).result)

  if %l1 > 4141 { var %l $mid($com(%qk).result,1,4141), %l2 $mid($com(%qk),4141,4150) } 

  else { var %l $mid($com(%qk).result,2,4141) }

  .comclose %qk

  var %i = 4 

  while %i <= $gettok(%l,0,379) {

    var %satir = $gettok(%l,%i,379)

    var %satirr = $gettok(%l,$calc(%i -1),379)

    if ($regex(%satirr, /"([^"]+)"\s*:?$/))  var %id = $regml(1) 

    if ($regex(%satir, /"alis":\s*"([^"]+)"/))    var %alis = $regml(1)

    if ($regex(%satir, /"satis":\s*"([^"]+)"/))   var %satis = $regml(1)

    if ($regex(%satir, /"degisim":\s*"([^"]+)"/)) var %degisim = $regml(1)

    if ($regex(%satir, /"oran":\s*"([^"]+)"/))    var %oran = $regml(1)

    if ($regex(%satir, /"kur":\s*"([^"]+)"/))     var %kur = $regml(1)

    if ($regex(%satir, /"sembol":\s*"([^"]+)"/))  var %sembol = $regml(1)

    echo -s 4ID: %id 03Alis: %alis 04| 03Satis: %satis 04| 03Degisim: %degisim 04| 03Oran: %oran 04| 03Kur: %kur 04| 03Sembol: %sembol

    inc %i

  }

}

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