• Domingo 22 de Diciembre de 2024, 23:22

Autor Tema:  Ayuda Please  (Leído 792 veces)

masterfalco

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Ayuda Please
« en: Martes 21 de Noviembre de 2006, 01:05 »
0
ok para empezar se necesita que la este codigo lea paginas de internet reconosca los campos de los formularios y luego al  hacer clic en un boton llene dichos campos con informacion de nuestra base de datos esto funciona bien pero hay un inconveniente funciona solo cuando la pagina se abre dentro del programa pero no cuando es un pop up y ahora una de las compañias con las que trabajamos cambio su pagina y solo puede abrirse mediante una pagina central que abre un pop up si vas directamente al popup  se cierra automaticamente entonces al abrir el popup el programa no logra leer el formulario en el podrian ayudarme y decirme como hago para que el visual basic logre conseguir la informacion del formulario cuando se encuentra en un pop up fuera del programa en si


Dim thedocument As HTMLDocument
Dim theElement As HTMLHtmlElement
Dim WIN As New ShellWindows
Dim IE As SHDocVw.InternetExplorer
Dim IE As Document
Public TX As String
Dim W As ShellWindows

Private Sub Command6_Click()
List1.Clear
For Each IE In WIN
  List1.AddItem (IE.LocationName)
  List1.AddItem (IE.LocationURL)

Dim strName As String
Dim STRVALUE As String
Dim all As MSHTML.IHTMLElementCollection
Set thedocument = IE.Document
Set all = thedocument.getElementsByTagName("input")
Dim elm As MSHTML.IHTMLElement
For Each elm In all
strName = elm.getAttribute("NAME")
STRVALUE = elm.getAttribute("VALUE")
List1.AddItem (strName & " " & STRVALUE)
 Next
 Text1.Text = thedocument.body.innerText
 
Next

End Sub

ElNapster

  • Moderador
  • ******
  • Mensajes: 727
    • Ver Perfil
Re: Ayuda Please
« Respuesta #1 en: Martes 21 de Noviembre de 2006, 18:23 »
0
Tengo un modulo que te podria ser de utilidad no , es precisamente lo que tu quieres pero te podria orientar mas o menos para lo que vos decesas...
 :comp:

http://elnapster.googlepages.com/home
"Somos lo que imaginamos ser"
-- --------------------------------------------------------------
-ElNapster
-Designer / Developer Software
-GuaTemALa