Foro de elhacker.net

Hola!

Soy nuevo por aca :$

Una pregunta...

Como puedo hacer (Con el control WebBrowser1) Para Tocar el boton X de una pagina?

Antes de crear otro tema, edite este. :)

estoy usando este codigo:

 
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:

 
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?

No sé Visual Basic, pero por lógica creo que podría ser algo así...

 
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 :)

No funca :B

solucionado poniendo el mismo codigo, pero wee un re quilombo.

solucion:

timer  ;D

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)