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:
Código: Selecionar todos
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")Código: Selecionar todos
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 Nil1) 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/D ... tados.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
