oIE = createobject( "internetexplorer.application" )
oIE.Visible = .t.
oIE.Navigate( "www.google.com" )
DO WHILE oIE.ReadyState != 4
ENDDO
loDoc = oIE.Document && get the Document object
loForm = loDoc.forms(0) && get the first form object
loForm.Item("q").Value = "foxpro" && this is the field for the search string
loform.Submit() && submit the form
oIE = createobject( "internetexplorer.application" )
oIE.Visible = .t.
oIE.Navigate( "www.google.com" )
DO WHILE oIE.ReadyState != 4
ENDDO
loDoc = oIE.Document && get the Document object
loForm = loDoc.forms(0) && get the first form object
loForm.Item("q").Value = "foxpro" && this is the field for the search string
loform.Submit("q") && submit the form
oIE = createobject( "internetexplorer.application" )
oIE.Visible = .t.
oIE.Navigate( "hotmail.com" )
DO WHILE oIE.ReadyState != 4 OR TYPE('oIE.Document') != 'O'
* Cuando oIE.ReadyState = 4 no necesariamente se ha creado el objeto Document en el DOM??
ENDDO
loDoc = oIE.Document && get the Document object
INKEY(1) && En espera de que se forme el objeto Forms. No se si todo document tiene asociado un form*!* EXPLORACIÓN
*!* Forms(0), Name: f1
*!* Items(0), Name: login Id: i0116, Type: text
*!* Items(1), Name: passwd Id: i0118, Type: password
*!* Items(2), Name: KMSI Id: idChkBx_PWD_KMSI0Pwd, Type: checkbox
*!* Items(3), Name: SI Id: idSIButton9, Type: submitWITH oIE.document.f1
* Diligenciamiento de casillas
* Con estos valores debe restbleser la página con el siguiente mensaje:
* Esta cuenta Microsoft no existe.
* Escribe otra dirección de correo electrónico u obtén una nueva cuenta.
.Item("login").value = 'jesu...@hotmail.com'
.Item("passwd").value = 'Clave123' * Envío del formulario diligenciado
* Haciendo ckick en el boton por medio de su id.
* oIE.document.getelementbyid("idSIButton9").click() && Falla * Haciendo submit en el formulario
.submit() && Falla * Haciendo click en el boton dentro del formulario por el tag name
* .SI.click() && Falla * Haciendo submit al elemento SI
* .Submit("SI") && Falla, se restablese el formulario a sus valores default * Haciendo submit al elemento login
* .Submit("login") && Falla, se restablese el formulario a sus valores default * Haciendo submit al elemento passwd
* .Submit("passwd") && Falla, se restablese el formulario a sus valores default
ENDWITH
RETURN
Miguel, precisamente esa es la sintaxis que he usado siempre pero ya no funciona, por favor corre el ejemplo, en la sección enviar formulario diligenciado están las diferentes opciones que he utilizado para hacer el submit, solo debes eliminar el asterisco de la que quieras probar.
El abre el google pero cuando va a abrir la venta de google donde va foxpro da error de internet explorer no existe que suce también lo he probado yo