Otra de InetGet

Pregunta Sin Miedo no te cortes cualquier cosa para empezar - Autoit se comienza facilmente.Para Ordenes o Comandos sueltos. Ver nota como preguntar.
Responder
jamaro
Hacker del Foro
Mensajes: 253
Registrado: 03 Nov 2010, 23:04

Otra de InetGet

Mensaje por jamaro »

Hola chic@s:

¿Cómo va todo? Yo un poco desconectado de Autoit (y del foro), pero me acuerdo de vosotros con frecuencia.

He tenido que volver a usar un programa que hice en su momento, pero parece que no me funcina ahora el InetGet.

Quiero obtener Ficha Catastral de un inmueble, cuya URL es con este formato (pongo ejemplo de un inmueble de la conocida Plaza Puerta del Sol)

https://www1.sedecatastro.gob.es/Cartog ... px?refcat=0345701VK4704E0001KJ

Siendo lo que va detrás de refcat la referencia catastral de la que deseo descargar su ficha (un pdf).

Bien, si pongo esa URL en el navegador, sin ningún problema se descarga la ficha.

Pero si hago código en Autoit, no consigo que descargue el archivo. ¿Puede ser por el https?

A ver si alguien me dice en qué tontería estoy fallando. También probé con UDF de http, pero no consigo nada.

Saludos y ¡Feliz Año!

Código: Seleccionar todo

; Puerta del Sol
                $ref="0345701VK4704E0001KJ"
                $URLCatastro = "https://www1.sedecatastro.gob.es/Cartografia/ImprimirCroquisyDatos.aspx?refcat="& $ref
		$Carpeta = "D:\"
		ConsoleWrite($URLCatastro & @CRLF)
		ConsoleWrite($Carpeta & "\" & $ref & ".pdf" & @CRLF)
		$hDownload = InetGet($URLCatastro, $Carpeta & "\IC_" & $ref & ".pdf")
Avatar de Usuario
arkcrew
Profesional del Autoit
Mensajes: 506
Registrado: 28 Sep 2009, 19:17
Ubicación: Granada, España
Contactar:

Re: Otra de InetGet

Mensaje por arkcrew »

Buenas Javier

Feliz Navidad, Feliz año! y aquí la solución:

Código: Seleccionar todo

#include <InetConstants.au3>
#include <Array.au3>


Global $link = "https://www.sedecatastro.gob.es/Cartografia/ImprimirCroquisyDatos.aspx?refcat="
;El problema lo tenías en el www1 de la url, basta con quitarselo
Global $referencia = "0345701VK4704E0001KJ"

Local $descarga = InetGet($link&$referencia, @DesktopDir & "\"&$referencia&".pdf", $INET_FORCERELOAD, $INET_DOWNLOADBACKGROUND)
Do
	Sleep(250)
Until InetGetInfo($descarga, $INET_DOWNLOADCOMPLETE)
El problema que tenías es que estabas pasando una url con el www1 qeu eso autoit no se lo traga, por protocolo https la descarga es la misma, lo único que fallaba era eso en la dirección, si miras el código que te he puesto, lo único que he hecho ha sido quitarlo, puedes hacer un stringreplace de esos para quitarlo si haces un código más complejo ;)

Saludos!
jamaro
Hacker del Foro
Mensajes: 253
Registrado: 03 Nov 2010, 23:04

Re: Otra de InetGet

Mensaje por jamaro »

¡Muchas gracias! :smt038 ¡Ya estoy con ello de nuevo!
Responder