Siguiendo el tema del CURP, tengo este codigo

[Saúl Piña]

El siguiente codigo es para llenar el formulario de la pagina para "Consulta del CURP"  pero no puedo agregarle en los objetos optiongroup ni combo de la pagina web


este es el codigo que llevo:

Miobjeto=Createobject("InternetExplorer.Application")
Miobjeto.Visible =.T.

*> *Dirección a la que tiene que apuntar
IR_A='http://consultas.curp.gob.mx/CurpSP/'
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

LOCAL apat, amat, nomb, yy, mm, dd, tipo, lnac
apat="PIÑA"
amat="HERNANDEZ"
nomb="SAUL"
yy="1978"
mm="03"
dd="16"
lnac=20
tipo="H"

Miobjeto.document.ejemploForma.strPrimerApellido.value=allt(apat)
Miobjeto.document.ejemploForma.strSegundoAplido.value=allt(amat)
Miobjeto.document.ejemploForma.strNombre.value=allt(nomb)
Miobjeto.document.ejemploForma.strdia.value=allt(dd)
Miobjeto.document.ejemploForma.strmes.value=allt(mm)
Miobjeto.document.ejemploForma.stranio.value=allt(yy)
Miobjeto.document.ejemploForma.strEntidadNacimiento.value="10"
Miobjeto.document.ejemploForma.strSexo.value=1

*Miobjeto.document.form1.apellidos.value=allt(nombre1)

* Esto hace click en un botón del objeto Explorer,
Miobjeto.document.form1.botonINFO.click()

Ojalá y me pudiesen ayudar...
gracias!

[Julián May]

No sería mejor que consumas un web service para calcular el curp ? 

y así lo datos sería desde tu aplicación y no en la página web.

Saludos.

[Julián May]

http://es.scribd.com/doc/62795145/WSERV-Manual-de-usuario-Guia-Tecnica-para-la-interaccion-con-los-Servicios-Web-Ver1-4 

Mira aquí hay un manual. 

El miércoles, 6 de noviembre de 2013 13:46:26 UTC-6, Saúl Piña escribió:

[Saúl Piña]

Gracias Julian, Yo nunca he utilizado esta herramienta, que necesito para realizar este trabajo?