Написал запросчик методом GET:
Sub HD_TimeFrame_()
Dim XMLHTTP As Variant, URL As String, HD_TimeFrame As String
URL = "http://ru.investing.com/common/modules/js_instrument_chart/api/data.php?symbol=S%2526P%2B500&pair_id=166&pair_id_for_news=166&chart_type=area&pair_interval=86400&candle_count=120&events=yes&volume_series=yes"
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
With XMLHTTP
.Open "GET", URL, False
.setRequestHeader "Accept", "application/json, text/javascript, */*; q=0.01"
.setRequestHeader "Accept-Encoding", "gzip, deflate, sdch"
.setRequestHeader "Accept-Language", "ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4"
.setRequestHeader "Connection", "keep-alive"
.setRequestHeader "Host", "ru.investing.com"
.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/39.0.2171.95 Safari/537.36"
.setRequestHeader "X-Requested-With", "XMLHttpRequest"
.setRequestHeader "Referer", "http://ru.investing.com/indices/us-spx-500"
.setRequestHeader "Content-Type", "application/json"
.send
End With
HD_TimeFrame = XMLHTTP.responseText
' Debug.Print HD_TimeFrame
Set XMLHTTP = Nothing
End Sub
По идее он должен возвратить JSON, но увы - возвращает какой-то невостребованный HTML. "Сижу" на этой проблеме уже неделю, весь гугл и яндекс обшарил - ответов нет. Думал, может комп глючит где-то. Сегодня написал такой же запросчик, но на сайт Yahoo (на страницу где есть JSON). Результат положительный - JSON вернул корретно. Помогите найти причину ошибки.
.