captura de html

[MatheusTuta 0]

Galera estou a alguns dias tentando resolver um problema que está me deixando meio maluco já.

O problema é o seguinte:

Criei um robozinho para capturar o html de algumas páginas e até então vinha funcionando muito bem até que me deparei com uma página que utiliza url genérica, onde não é passada nenhuma informação que possa identificar o processo pela url.

https://webp.caixa.gov.br/urbanizacao/siurbn/acompanhamento/ac_publico/sistema/asp/ptei_filtro_inicial.asp

http://https://webp.caixa.gov.br/urbanizacao/siurbn/acompanhamento/ac_publico/sistema/asp/ptei_filtro_inicial.asp

após preencher com o número do contrato ele abre a página do contrato com as informações, só que se você copiar a url gerada, abrir outra pagina e tentar entrar, aparece um erro, já que a página é gerada através de funções e não colocadas em uma página fixa.

 

Então o meu problema está sendo chegar a página com os dados.

em baixo o código que utilizo em outras páginas --->

 

função

Public Function BuscaDadosURLConteudo(strURL)

set objXmlHttp = Server.CreateObject("MSXML2.XMLHTTP")

if strURL = "" then
	strURL = Server.MapPath("REQ_22.html")
end if

objXMLHttp.Open "GET", strURL, False
objXMLHttp.Send
if instr(strURL,"portal/site/Internet") > 0 then
	strConteudoURL = objXmlHttp.responseText
else
	strConteudoURL = BinaryToString(objXmlHttp.ResponseBody)
end if

BuscaDadosURLConteudo = strConteudoURL
set objXmlHttp = nothing

end function

 

execução

	For i=x to 27
		if IdEstado(x) = "" then
			x = x + 1
		else
			exit for
		end if
	next

	Estado = BuscaDadosURLConteudo("http://cnm.org.br/modules/mod_portalmunicipios/estado.php?iIdEst="& IdEstado(x))

	Estado = replace(Estado,"</li>","")
    Estado = replace(Estado,"<li>","")
	Estado = replace(Estado,"<a href=","")
	Estado = replace(Estado,"</li><li><a href=","")
	Estado = replace(Estado,"","")

[xanburzum 169]

ele deve estar autenticando com session