FoxPro/Visual FoxPro - Visual Foxpro y Paginas d Internet

   
Vista:

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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

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.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar