Visual Basic - Rellenar campos de una web con VB 6

Life is soft - evento anual de software empresarial
   
Vista:

Rellenar campos de una web con VB 6

Publicado por veleznet (1 intervención) el 10/10/2015 04:40:16
Hola , Necesito que me ayuden , quiero llenar los campos de la web http://www.ospedycdirecto.org.ar/ , pero me da error. Lo que hago es esto:

Private Sub Command1_Click()
WebBrowser1.Navigate ("http://www.ospedycdirecto.org.ar/")
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Document.All("txtUsuario").Value = "hola"
End Sub


Creo que no funciona porque el login esta en un javascript
¿ Como deberia hacer en este caso? , desde ya muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Rellenar campos de una web con VB 6

Publicado por Marcelo (225 intervenciones) el 24/10/2015 23:11:27
Mas que dentro de JS, los elementos/campos estan dentro de un IFRAME. Revisa el siguiente codigo para tener una mejor idea:
Nota: Agrega un componente de WebBrowser y un boton (llamalo btnPopulate) en tu formulario...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Class Form1
    Private mUserName As HtmlElement
    Private mPassword As HtmlElement
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim sURL As String = "http://www.ospedycdirecto.org.ar/"
        Me.WebBrowser1.Navigate(sURL)
    End Sub
 
    Private Sub btnPopulate_Click(sender As Object, e As EventArgs) Handles btnPopulate.Click
        'El campo de usuario y password esta dentro de un elemento IFRAME.
        mUserName = Me.WebBrowser1.Document.Window.Frames(0).Document.All.Item("txtUsuario")
        mPassword = Me.WebBrowser1.Document.Window.Frames(0).Document.All.Item("txtPassword")
        mUserName.InnerText = "nthaxor@hotmail.com  "
        mPassword.InnerText = "palabra_secreta_no_la_puedo_divulgar"
    End Sub
 
End Class

Suerte!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Rellenar campos de una web con VB 6

Publicado por Marcelo (225 intervenciones) el 24/10/2015 23:59:49
Mis disculpas. El codigo anterior es para VB .NET. Este seria el equivalente en VB6:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
'Componente: WebBrowser Component
'Referencia: Microsoft HTML Object Library
 
Private Sub Command1_Click()
 
        Dim mUserName As Object
        Dim mPassword As Object
        'txtUsuario y txtPassword estan dentro de un elemento IFRAME.
        'Existe un IFRAME en todo el documento. Por esa razon el indice es cero.
        Set mUserName = Me.WebBrowser1.Document.frames(0).Document.All.Item("txtUsuario")
        Set mPassword = Me.WebBrowser1.Document.frames(0).Document.All.Item("txtPassword")
 
        mUserName.innerText = "nthaxor@hotmail.com"
        mPassword.innerText = "mi_clave_secreta"
 
End Sub
 
Private Sub Form_Load()
  Dim sURL As String
  sURL = "http://www.ospedycdirecto.org.ar/"
  Me.WebBrowser1.Navigate sURL
End Sub

Suerte!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar