<?xml version="1.0" encoding="UTF-8"?>
<job>
	<script language="VBScript">
	<![CDATA[
	Option Explicit
	Dim fileName, document, window
	'Небольшой хак для загрузки движка Internet Explorer в режиме совместимости IE=11 (с поддержкой HTML5)
	'Получение ссылки на документ
	Set document = WScript.GetObject("res://ieframe.dll/23/EN-US-PAGE2.HTML")
	'Получение ссылки на окно
	Set window = document.parentWindow
	'Ожидание полной загрузки
	While document.readyState <> "complete"
		WScript.Sleep 100
	Wend

	Dim JSON, i, elements, textStream
	'Получение ссылки на объект JSON
	Set JSON = window.JSON
	'Создание объекта XMLHttpRequest
	With(window.XMLHttpRequest())
		'Открытие запроса
		.open "GET","https://api.crypto-bridge.org/api/v1/ticker",false
		'Установка возвращаемых данных
		.responseType = "JSON"
		'Выполнение запроса
		.send
		'Разбор ответа
		Set elements = JSON.parse(.responseText)
		'Открытие текстового файла для сохранения данных
		Set textStream = CreateObject("Scripting.FileSystemObject").OpenTextFile("data.txt",2,True)
		'Цикл перебора элементов
		For i = 0 to elements.length - 1
			textStream.WriteLine i & ": " & Eval("elements.[" & i & "].last")
		Next
	End With
	
	MsgBox "Complete !", vbInformation
	
	]]>
	</script>
</job>

<?xml version="1.0" ?>
<job id="JSON Request">
	<script language="JavaScript" src="https://raw.githubusercontent.com/douglascrockford/JSON-js/master/json2.js"></script>
	<script language="JavaScript">
	<![CDATA[
	with(new ActiveXObject('MSXML2.ServerXMLHTTP.6.0')){
		open('GET','https://api.crypto-bridge.org/api/v1/ticker',false);
		send();
		var array = JSON.parse(responseText);
		with(new ActiveXObject('Scripting.FileSystemObject').OpenTextFile('data.txt',2,true)){
			for(var i in array){
				WriteLine(i + ': ' + array[i].last);
			}
		}
		WScript.Echo('Data parsed');
	}
	]]>
	</script>
</job>

<?xml version="1.0" ?>
<job id="JSON Request">
	<script language="JavaScript" src="https://raw.githubusercontent.com/douglascrockford/JSON-js/master/json2.js"></script>
	<script language="VBScript">
	<![CDATA[
	Option Explicit
	Dim data, i
	With CreateObject("MSXML2.ServerXMLHTTP.6.0")
		.Open "GET", "https://api.crypto-bridge.org/api/v1/ticker", False
		.Send
		Set data = JSON.parse(.responseText)
		With(CreateObject("Scripting.FileSystemObject").OpenTextFile("data.txt",2,true))
			For i = 0 to data.length - 1
				.WriteLine i & ": " & Eval("data.[" & i & "].last")
			Next
		End With
		WScript.Echo "Data parsed"
	End With
	]]>
	</script>
</job>

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

'  A JSON array must be loaded using JsonArray:
set jsonArray = CreateObject("Chilkat_9_5_0.JsonArray")

success = jsonArray.Load("https://api.crypto-bridge.org/api/v1/ticker")

If (success <> 1) Then
    outFile.WriteLine(jsonArray.LastErrorText)  '!!! "Unable to get array at index 0."
    WScript.Quit
End If

'  Examine the values:
i = 0
Do While i < jsonArray.Size
    ' jsonObj is a Chilkat_9_5_0.JsonObject
    Set jsonObj = jsonArray.ObjectAt(i)
    outFile.WriteLine(i & ": " & jsonObj.StringOf("last"))

    i = i + 1
Loop

outFile.Close

 ChilkatLog:
  Load:
    ChilkatVersion: 9.5.0.71
    Unable to get array at index 0.
  --Load
--ChilkatLog