Sub HD_TimeFrame_Yahoo() 'YAHOO FINANCE
Dim XMLHTTP As Variant, URL As String, HD_TimeFrame As String

URL = "http://finance.yahoo.com/_td_charts_api/resource/charts;comparisonTickers=;events=div" & _
       "%7Csplit%7Cearn;gmtz=11;indicators=quote;period1=1292556713;period2=1418527913;queryString=%" & _
       "7B%22s%22%3A%22%255EGSPC%2BInteractive%22%7D;range=2y;rangeSelected=undefined;ticker=%5EGSPC;" & _
       "useMock=false?crumb=D1H%2FYGX1Bss"

Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")    
     With XMLHTTP
       .Open "GET", URL, False
       .setRequestHeader "Accept", "*/*"
       .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 "Host", "finance.yahoo.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 "Connection", "keep-alive"
       .setRequestHeader "Referer", "http://finance.yahoo.com/echarts?s=%5EGSPC+Interactive"
       .setRequestHeader "Content-Type", "application/json"
       .send
     End With

     HD_TimeFrame = XMLHTTP.responseText
     Set XMLHTTP = Nothing
End Sub

Sub HD_TimeFrame_()
Dim XMLHTTP As Variant, URL As String, HD_TimeFrame As Variant

URL = "http://ru.investing.com/common/modules/js_instrument_chart/api/" & _
              "data.php?volume_series=yes&events=yes&candle_count=120&pair_interval=86400&" & _
              "chart_type=area&pair_id_for_news=166&pair_id=166&symbol=S%2526P%2B500"

Set XMLHTTP = CreateObject("Msxml2.XMLHTTP.2.6")
          With XMLHTTP
            .Open "GET", URL, False
            .setRequestHeader "Content-Type", "application/json"
            .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 "Accept", "application/json, text/javascript, */*; q=0.01"
            .setRequestHeader "Accept-Language", "ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4"
            .setRequestHeader "Referer", "http://ru.investing.com/indices/us-spx-500"
            .setRequestHeader "x-requested-with", "XMLHttpRequest"
            .setRequestHeader "Accept-Encoding", "gzip, deflate"
            .setRequestHeader "Host", "ru.investing.com"
            .setRequestHeader "Connection", "Keep-Alive"
            .send
          End With
                  
           HD_TimeFrame = XMLHTTP.responseText
'  Debug.Print HD_TimeFrame
          Set XMLHTTP = Nothing
End Sub

Private Sub HD_TimeFrame_Bloomberg() 'BLOOMBERG
Dim XMLHTTP As Variant, URL As String, HD_TF As String
URL = "http://www.bloomberg.com/apps/data?pid=webpxta&Securities=INDU:IND&TimePeriod=3M&Outfields=HDATE,PR005-H,PR006-H,PR007-H,PR008-H,PR013-H,BOLMA,BOLUP,BOLLO,BOLBW,BOLPB,RSI,MACD,MACDS,MACD2,ROCP,ROCN,TASK,TASD,TASDS,TASDSS"          
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
       With XMLHTTP
         .Open "GET", URL, False
         .setRequestHeader "Accept", "*/*"
         .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 "Host", "www.bloomberg.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", "ShockwaveFlash/16.0.0.235"
         .setRequestHeader "Connection", "keep-alive"
         .setRequestHeader "Referer", "http://www.bloomberg.com/quote/INDU:IND/chart"
         .send
       End With
       HD_TF = XMLHTTP.responseText
       Set XMLHTTP = Nothing
End Sub

{"_comment":"pair_id: 166, interval: 86400, candles: 120","candles":[[1404172800000,1973.3199,0],[1404259200000,1974.62,0],[1404345600000,1985.4399,0],[1404691200000,1977.65,0],[1404777600000,1963.71,0],[1404864000000,1972.83,0],[1404950400000,1964.6801,0],[1405036800000,1967.5699,0],[1405296000000,1977.1,0],[1405382400000,1973.28,0],[1405468800000,1981.5699,0],[1405555200000,1958.12,0],[1405641600000,1978.22,0],[1405900800000,1973.63,0]....

Private Sub Get_Web()
Dim DATA As String, URL As String, XMLHTTP As Object
'AUD
URL = "http://www.timingcharts.com/services/get_cot.php?symbol=AN&startDate=1417413600000&cotTable=fuon_ticks&window1plot=net&comm=1&large=1&specs=1&callback=jQuery18308002048165113468"
Set XMLHTTP = CreateObject("Msxml2.XMLHTTP.2.6")
      With XMLHTTP
         .Open "GET", URL, False
         .setRequestHeader "Host", "www.timingcharts.com"
         .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 5.1; rv:38.0) Gecko/20100101 Firefox/38.0"
         .setRequestHeader "Accept", "text/javascript, application/javascript, application/ecmascript, application/x-ecmascript, */*; q=0.01"
         .setRequestHeader "Accept-Language", "ru"
         .setRequestHeader "Accept-Encoding", "gzip,deflate"
         .setRequestHeader "X-Requested-With", "XMLHttpRequest"
         .setRequestHeader "Referer", "http://www.timingcharts.com/"
         .setRequestHeader "Content-Type", "keep-alive"
         .send
      End With
          
DATA = XMLHTTP.responseText
'Debug.Print DATA
End Sub