Eu preciso baixar todos os resultados da megasena para utilizar em um programa que gera estatÃsticas. Até há algum tempo atrás existia um endereço http definido no site da Caixa, que gerava o html e eu o conseguia baixar utilizando o comando:
BaixarURLMON("http://loterias.caixa.gov.br/wps/portal/loterias/landing/megasena/!ut/p/a1/04_Sj9CPykssy0xPLMnMz0vMAfGjzOLNDH0MPAzcDbwMPI0sDBxNXAOMwrzCjA0sjIEKIoEKnN0dPUzMfQwMDEwsjAw8XZw8XMwtfQ0MPM2I02-AAzgaENIfrh-FqsQ9wNnUwNHfxcnSwBgIDUyhCvA5EawAjxsKckMjDDI9FQE-F4ca/dl5/d5/L2dBISEvZ0FBIS9nQSEh/pw/Z7_HGK818G0K8DBC0QPVN93KQ10G1/res/id=historicoHTML/c=cacheLevelPage/=/","Megasena.htm")
FUNCTION BaixarURLMON(url,arq)
nHandleDLL:=hb_LibLoad("UrlMon.dll")
nStatus:=hb_dynCall( { "URLDownloadToFileA", nHandleDLL,HB_DYN_CALLCONV_STDCALL},0,url,arq,0,0)
hb_LibFree(nHandleDLL)
RETURN Nil
Mas agora, a Caixa reformulou a forma de acesso a esses resultados e estou tendo de baixar o html manualmente, da seguinte forma:
1) Acesso o endereço: https://loterias.caixa.gov.br/Paginas/Mega-Sena.aspx
2) No final da página tenho de clicar em "Resultados da Mega-Sena por ordem crescente" para que uma nova aba se abra e seja gerado um html com os resultados... Aà nessa nova aba, salvo a página com os dados. O endereço dessa nova aba é https://loterias.caixa.gov.br/Paginas/Download-Resultados.aspx, mas se eu tentar abrÃ-la diretamente no navegador, nada acontece...
Vi muito os nobres colegas tratarem do assunto WebService, mas não sei se se encaixaria no que estou querendo fazer com o site de resultados da Caixa ou não nada a ver...
Desde já agradeço por qualquer dica/sugestão.
[]s
Antonio Carlos