Llenar formulario web desde Visual FoxPro

Paul

unread,

Oct 15, 2008, 12:27:14 PM10/15/08

to

Hola,

Necesito desde un programa de VFP 9 conectarme a una pagina web, y
llenar un formulario, siempre es el mismo formulario y se los nombres
de los textbox del formulario.

Alguna idea?

Miguel

unread,

Oct 15, 2008, 1:42:20 PM10/15/08

to

* Crea un objeto Explorer y lo hace visible
Miobjeto=Createobject("InternetExplorer.Application")
Miobjeto.Visible =.T.

*Dirección a la que tiene que apuntar
IR_A='http://micromedia.com/principal.jsp'
Miobjeto.navigate(ir_a)

* Espera mientras se conecta a la dirección indicada ...
ObjTexto ='Conectando ...'
Wait Window ObjTexto nowait
DO While Miobjeto.busy .or. Miobjeto.readystate#4
WAIT WINDOW ObjTexto Time(0.3)
ObjTexto= ObjTexto+'.'
ENDDO

* Mete los valores en el formulario en los campos nombre y apellidos
Miobjeto.document.form1.nombre.value=allt(nombrep1)
Miobjeto.document.form1.apellidos.value=allt(nombre1)

* Esto hace click en un botón del objeto Explorer, si tienes que apretarlo
para enviar los datos
Miobjeto.document.form1.botonINFO.click()

Creo que con esto ya te funcionará, si necesitas alguna cuestión más,
dímelo.
Saludos,
Miguel

"Paul" <gamb...@yahoo.es> escribió en el mensaje
news:00ed827d-da04-4799...@v15g2000hsa.googlegroups.com...

Remitente

unread,

Oct 15, 2008, 5:30:44 PM10/15/08

to

Y sería posible recoger datos de los que muestra la hoja (que siempre están
en la misma posición) y meterlos en una tabla?

"Miguel" <m...@prymer.biz> escribió en el mensaje
news:%2373Ci1u...@TK2MSFTNGP04.phx.gbl...

Paul

unread,

Oct 16, 2008, 1:46:00 AM10/16/08

to

On 15 oct, 19:42, "Miguel" <m...@prymer.biz> wrote:
> * Crea un objeto Explorer y lo hace visible
> Miobjeto=Createobject("InternetExplorer.Application")
> Miobjeto.Visible =.T.
>
> *Dirección a la que tiene que apuntar
> IR_A='http://micromedia.com/principal.jsp'
> Miobjeto.navigate(ir_a)
>
> * Espera mientras se conecta a la dirección indicada ...
> ObjTexto ='Conectando ...'
> Wait Window ObjTexto nowait
> DO While Miobjeto.busy .or. Miobjeto.readystate#4
> WAIT WINDOW ObjTexto Time(0.3)
> ObjTexto= ObjTexto+'.'
> ENDDO
>
> * Mete los valores en el formulario en los campos nombre y apellidos
> Miobjeto.document.form1.nombre.value=allt(nombrep1)
> Miobjeto.document.form1.apellidos.value=allt(nombre1)
>
> * Esto hace click en un botón del objeto Explorer, si tienes que apretarlo
> para enviar los datos
> Miobjeto.document.form1.botonINFO.click()
>
> Creo que con esto ya te funcionará, si necesitas alguna cuestión más,
> dímelo.
> Saludos,
> Miguel
>

> "Paul" <gambam...@yahoo.es> escribió en el mensajenews:00ed827d-da04-4799...@v15g2000hsa.googlegroups.com...

>
> > Hola,
>
> > Necesito desde un programa de VFP 9 conectarme a una pagina web, y
> > llenar un formulario, siempre es el mismo formulario y se los nombres
> > de los textbox del formulario.
>
> > Alguna idea?

Hola, muchas gracias por responder.
Y como puedo saber si ha pasado a la pagina siguiente o se ha
producido algún error en el formulario y me ha enviado a una pagina de
datos no correctos, por ejemplo.

Gracias

Miguel

unread,

Oct 19, 2008, 2:24:00 PM10/19/08

to

Perdón por la tardanza en contestar.

*Tienes que buscar alguna expresión que siempre esté en esa página en la que
quieres confirmar que ya estás, por ejemplo "Paso 1"
* Después y antes de leer el contenido de una página es conveniente poner
algún temporizador, para darle tiempo al navegador.

temp=inkey(2)
aText = Miobjeto.Document.Body.InnerText && Coge el texto que viene en la
página
IF 'Paso 1'$atext
* Está en la página adecuada
ENDIF

Esto contesta Remitente, cómo leer el contenido de una página. Sacar de ella
los datos que siempre vienen en mismo lugar o después de una palabra es una
tarea manejando las funciones de cadenas de texto, ya no es materia de esta
consulta.

Saludos,
Miguel

"Paul" <gamb...@yahoo.es> escribió en el mensaje

news:16f3d653-8aee-4009...@g25g2000prf.googlegroups.com...