Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic.NET » PARA LOS QUE TIENEN CAIXABANK

Visual Basic.NET - PARA LOS QUE TIENEN CAIXABANK

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

PARA LOS QUE TIENEN CAIXABANK

Publicado por noetecnowindows (15 intervenciones) el 10/11/2012 17:53:00
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Public Class Form1
    Private contador As Integer
 
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        contador = contador + 1
        If contador = 1 Then
            WebBrowser1.Document.Window.Document.GetElementById("id").SetAttribute("Value", "*****")
 
            WebBrowser1.Document.Window.Document.GetElementById("pin").SetAttribute("Value", "****")
 
            WebBrowser1.Document.Window.Document.GetElementById("Entrar").InvokeMember("Click")
 
        ElseIf contador = 3 Then
 
            Width = 1200
            Height = 840
            WebBrowser1.Visible = True
        End If
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        WebBrowser1.Navigate("https://portal.lacaixa.es/home/particulares_es.html")
        Width = 204
        Height = 311
        WebBrowser1.Visible = False
 
    End Sub
End Class
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
sin imagen de perfil

PARA LOS QUE TIENEN CAIXABANK

Publicado por neotecnowindows (15 intervenciones) el 10/11/2012 18:05:01
Estaba incompleta esta rutina, aqui está la completa
------------------------
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        contador = contador + 1
        If contador = 1 Then
            WebBrowser1.Document.Window.Document.GetElementById("id").SetAttribute("Value", "++++++")
 
            WebBrowser1.Document.Window.Document.GetElementById("pin").SetAttribute("Value", "+++")
 
            WebBrowser1.Document.Window.Document.GetElementById("Entrar").InvokeMember("Click")
 
        ElseIf contador = 3 Then
 
            Width = 1200
            Height = 840
            WebBrowser1.Visible = True
        End If
        If contador > 9 Then
            Dim strSource As String = WebBrowser1.DocumentText
            Dim buscarstr As String = "Conexión segura a Línea Abierta"
            If strSource.Contains(buscarstr) Then
 
                Application.Exit()
            End If
        End If
 
    End Sub
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