FoxPro/Visual FoxPro - Visual Foxpro y Paginas d Internet

Visual Foxpro y Paginas d Internet

Publicado por Edgard (1 intervención) el 28/03/2015 01:31:20

BUenas noches programadores tengo una consulta, quiero abrir una pagina web desde un formulario pero mandarle parametros del usuario y clave, como puedo hacer eso?

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 2

Val: 1.011

Visual Foxpro y Paginas d Internet

Publicado por Fidel José (558 intervenciones) el 29/03/2015 18:14:15

Necesitas averiguar algunas cosas de la página web. Lo que viene es un poco básico. Te conviene conocer algo de html.

Este es un ejemplo de un segmento de código desarrollado por un colega.

Con esta instrucción " <form id="Constancia" name="Constancia" method="get">" sabemos que el formulario se llamará Constancia y se puede citar como objInternet.Document.Constancia.

Básicamente tienes que buscar en el código html las etiquetas text y submit
input type="text" name="cuit" (con esto sabemos que podemos usar .cuit.value=(valor)

<input id="btnConsultar" name="btnConsultar" type="submit" . Con esto podemos ver si funciona con el método .Submit() o con .btnConsultar.Click(). En el ejemplo no se usa por el captcha que hay que introducir manualmente.

lcPropDirAfip="https://seti.afip.gob.ar/padron-puc-constancia-internet/jsp/Constancia.jsp"

	lcCuit = "20-99215472-0"

	* Crea un objeto InternetExplorer

	objIE =Createobject("InternetExplorer.Application")

	objIE.Visible =.T.

	*Dirección a la que tiene que apuntar

	IR_A = ALLTRIM(lcPropdirafip)

	objIE.navigate(ir_a)

	* Espera mientras se conecta a la dirección indicada ...

	ObjTexto ='Conectando ...'

	Wait Window ObjTexto nowait

	DO While objIE.busy .or. objIE.readystate#4

		WAIT WINDOW ObjTexto Time(0.3)

		ObjTexto= ObjTexto+'.'

	ENDDO

	* Introducir los valores en el formulario

	objIE.document.Constancia.cuit.value=allt(CHRTRAN(lcCuit,"-",""))

	objIE.document.Constancia.captchaField.focus()

	Referencias de la página Web

	 <form id="Constancia" name="Constancia" method="get">

	<input type="text" name="cuit" id="cuit" maxlength="11" size="13" tabindex="1" value="">

	 <input type="text" name="captchaField" id="captchaField" maxlength="5" size="7" tabindex="2" onkeypress="teclakeypress(event)" />

	<input id="btnConsultar" name="btnConsultar" type="submit"  onclick="return ejecutar(true)" value="Consultar" tabindex="3" class="botonera-out-largo" />

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar