Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: BoboV1 en 29 Septiembre 2010, 00:18 AM

Título: [Solucionado] Clikear 2 Botones ?
Publicado por: BoboV1 en 29 Septiembre 2010, 00:18 AM
Hola!

Soy nuevo por aca :$

Una pregunta...

Como puedo hacer (Con el control WebBrowser1) Para Tocar el boton X de una pagina?
Título: Re: puedo navegar?
Publicado por: BoboV1 en 29 Septiembre 2010, 01:39 AM
Antes de crear otro tema, edite este. :)
Título: Re: puedo navegar?
Publicado por: BoboV1 en 29 Septiembre 2010, 02:54 AM

estoy usando este codigo:

Código (vb) [Seleccionar]


Private Sub Timer1_Timer()
On Error Resume Next
Timer1.Enabled = False
Me.WebBrowser1.Document.All("ESTO NO LES IMPORTA XD").Value = "Hola!"

Dim HTML
Dim HTMLI
Set HTML = WebBrowser1.Document
For Each HTMLI In HTML.getElementsByTagName("input")
If HTMLI.Value = "NOMBRE DEL BOTON" Then
HTMLI.Click
Exit Sub
End If
Next
End Sub


Private Sub Form_Load()
WebBrowser1.Navigate ("PAGINA")
Exit Sub




con eso funciona..

pero quiero clikear 2 BOTONES. osea, primero uno y despues otro. me di cuenta q su cambio el End If (arriba o abajo de exit sub), NO ANDA!. ya probe asi, y tampoco anda:

Código (vb) [Seleccionar]


BALABLBALBALBALBA CODIGO

Dim HTML
Dim HTMLI
Set HTML = WebBrowser1.Document
For Each HTMLI In HTML.getElementsByTagName("input")
If HTMLI.Value = "BOTON1" Then
If HTMLI.Value = "BOTON2" Then
HTMLI.Click
Exit Sub
End If
End If
Next



asi y mil formas mas ~.~

como hago?
Título: Re: Clikear 2 Botones ?
Publicado por: Dznp en 29 Septiembre 2010, 03:09 AM
No sé Visual Basic, pero por lógica creo que podría ser algo así...


Código (vb) [Seleccionar]


Private Sub Timer1_Timer()
On Error Resume Next
Timer1.Enabled = False
Me.WebBrowser1.Document.All("ESTO NO LES IMPORTA XD").Value = "Hola!"

Dim HTML
Dim HTMLI
Dim HTMLII
Set HTML = WebBrowser1.Document
For Each HTMLI In HTML.getElementsByTagName("input")
For Each HTMLII In HTML.getElementsByTagName("input")
If HTMLI.Value = "NOMBRE DEL BOTON" Then
HTMLI.Click
End If
If HTMLII.Value = "NOMBRE DEL BOTON" Then
HTMLII.Click
Exit Sub
End If
Next
End Sub


Private Sub Form_Load()
WebBrowser1.Navigate ("PAGINA")
Exit Sub





Probá y decime :)
Título: Re: Clikear 2 Botones ?
Publicado por: BoboV1 en 29 Septiembre 2010, 03:31 AM
No funca :B
Título: Re: Clikear 2 Botones ?
Publicado por: BoboV1 en 29 Septiembre 2010, 03:55 AM
solucionado poniendo el mismo codigo, pero wee un re quilombo.

solucion:

timer  ;D
Título: Re: [Solucionado] Clikear 2 Botones ?
Publicado por: Dznp en 30 Septiembre 2010, 02:59 AM
Me podés pasar la solución?  :rolleyes:
Gracias.
Título: Re: [Solucionado] Clikear 2 Botones ?
Publicado por: BoboV1 en 30 Septiembre 2010, 06:06 AM
Cita de: Dznp en 30 Septiembre 2010, 02:59 AM
Me podés pasar la solución?  :rolleyes:
Gracias.

Si, mira:

yo tenia el codigo en 1 timer.

en intervalo 7000

y para no complicarme tanto dije.. " a la *****!"

y agrege otro timer con intervalo 8000, y con el mismo codigo para tocar el boton. pero cambiaba lo de HTMLII -> esa cosa q es algo asi xD!

(http://sphotos.ak.fbcdn.net/hphotos-ak-snc4/hs704.snc4/62438_1514964565454_1574649969_31229293_537165_n.jpg)

(http://sphotos.ak.fbcdn.net/hphotos-ak-ash2/hs006.ash2/33666_1513770295598_1574649969_31227694_4012877_n.jpg)