• Martes 16 de Abril de 2024, 17:30

Autor Tema:  Manejar Web con control OLE  (Leído 2319 veces)

juvinalch

  • Nuevo Miembro
  • *
  • Mensajes: 12
    • Ver Perfil
Manejar Web con control OLE
« en: Domingo 12 de Mayo de 2019, 04:29 »
0
Buenas con todos
Soy programador en PowerBuilder hace mucho tiempo, pero no se me a presentado la necesidad de utilizar un control OLE, pero como nada es para siempre, ahora lo necesito. E estado leyendo sobre como llenar un formulario en una página Web desde PowerBuilder. Los que tienen valores simples como llenar un numero de documento o un nombre ya lo pude realizar, pero me falta poder seleccionar las opciones de una lista desplegable, marcar un checkbox, un radiobuton, etc. además de que el programa debe recibir la instrucción de esperar que la página cargue para que pueda volver a llenar un siguiente formulario.
Si alguien me podría brindar esas lineas de código, se los agradecería mil.

El código que tengo hasta ahora es:

OLEObject IE
string ls_url

if dw_1.rowcount( )=0 then
   return
end if

usuario=dw_1.getitemstring(1,"usuario")
clave=dw_1.getitemstring(1,"clave")

IE = CREATE OLEObject
IE.ConnectToNewObject("InternetExplorer.Application")

ls_url = 'https://www.mipaginaweb.com/login.aspx'

try
IE.Navigate(ls_url)

DO WHILE ie.ReadyState <>4
   sle_url.text=string(ie.ReadyState )
   yield()
LOOP

/* Con estas dos lineas relleno el formulario de login, y en la siguiente página que carga, debo seleccionar un valor de una lista deplegable, asi como marcar un chekcbox y unos radiobuton*/
IE.Document.getElementById("clave").Value = clave
IE.Document.all.Item("usuario").Value =usuario
/**/

IE.Visible = True
IE.Navigate ("javascript:login()")

// INICIO Codigo mio
DO WHILE ie.ReadyState <>4
   sle_url.text=string(ie.ReadyState )
   yield()
LOOP

destroy ie
CATCH(Exception ex)
    messagebox("Error",ex.getmessage() )
destroy ie

finally
destroy ie
end try