ultima atualização: 23/02/2008
Com esta classe é possível resgatar os principais indicadores do mercado financeiro em tempo real (online).
A fonte utilizada para os dados é o site www.cma.com.br. Por esta razão as informações a veracidade das infomações são de responsabilidade do mesmo.
As informações do mercado disponíveis neste código são:
Indicadores (BOLSAS):
– Bovespa
– Dow Jones
– Nasdaq
– Merval
– Londres
– Paris
– Tóquio
– Frankfurt
Indicadores (MOEDAS):
– Dólar Comercial
– Dólar Médio Venda
– Dólar Paralelo
– Dólar Turismo
– Euro x Dólar
– Euro x Real
– Dólar Futuro
Indicadores (RISCO):
– Risco Brasil
IMPORTANTE: Pode ocorrer mudanças no site que serve de fonte para a extração dos dados isso acarretará em erro no código.
<% '======================================================= 'CLASSE DOS INDICADORES FINANCEIROS '======================================================= Class IndicadoresFinanceiros '----------------------------------------------------- 'Funcao: getIndicadoresFinanceiros() 'Sinopse: Retorna Lista de Indicadores Financeiros ' Indicadores (BOLSAS): ' - Bovespa (ID: BOVESPA) ' - Dow Jones (ID: DOWJONES) ' - Nasdaq (ID: NASDAQ) ' - Merval (ID: MERVAL) ' - Londres (ID: LONDRES) ' - Paris (ID: PARIS) ' - Tóquio (ID: TOQUIO) ' - Frankfurt (ID: FRANKFURT) ' Indicadores (MOEDAS): ' - Dólar Comercial (ID: DOLARCOMERCIAL) ' - Dólar Médio Venda (ID: DOLARMEDIOVENDA) ' - Dólar Paralelo (ID: DOLARPARALELO) ' - Dólar Turismo (ID: DOLARTURISMO) ' - Euro x Dólar (ID: EURODOLAR) ' - Euro x Real (ID: EUROREAL) ' - Dólar Futuro (ID: DOLARFUTURO) ' Indicadores (RISCO): ' - Risco Brasil (ID: RISCOBRASIL) 'Retorno: Coleção (Scripting.Dictionary) 'Autor: Gabriel Fróes - www.codigofonte.com.br 'Ultima Atualização: 23 / 02 / 2008 '----------------------------------------------------- Function getIndicadoresFinanceiros() 'Declaração das variáveis/objetos Dim Retorno Dim URL Dim posInicio Dim posFim Dim htmlInicioPadrao Dim htmlFimPadrao Dim htmlInicio Dim htmlFim Dim Indicador Dim Nome Dim Valor Dim Percentual Dim Hora Dim Data Dim objXmlHttp Dim objColecao 'Inicialização dos objetos/variáveis Set objXmlHttp = Server.CreateObject("MSXML2.XMLHTTP") Set objColecao = Server.CreateObject("Scripting.Dictionary") htmlInicioPadrao= "align=right class=""conteudo"">" htmlFimPadrao = "" posInicio = 1 posFim = 1 'Consulta ao site com os indicadores URL = "https://www.cma.com.br/mercadofinanceiro.asp" objXMLHttp.Open "GET", URL, False objXMLHttp.Send Retorno = BinaryToString(objXmlHttp.ResponseBody) Set objXmlHttp = Nothing 'Cortando a String para trabalhar com uma variável menor htmlInicio = "Bovespa" htmlFim = "