Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: Psyke1 en Mayo 03, 2011, 05:19:29 pm
-
Hola a todos, a ver si me podéis ayudar :
Necesito hacer click a un Button a través de un WebBrowser .
El problema es que no tiene ID por donde localizarlo:
Botón:
<a href="#" class="send-button button">Send</a>
¿Alguna idea de cómo hacerlo? ???
Gracias :-*
-
Hola aca te paso un ejemplo, segun como vi en vbForums tambien necesitas el TextArea.
Private Sub Command1_Click()
Dim i As Long
For i = 0 To WebBrowser1.Document.All.tags("textarea").length - 1
If WebBrowser1.Document.All.tags("textarea").Item(i).className = "box-editor" Then
WebBrowser1.Document.All.tags("textarea").Item(i).Value = "Hola Mundo"
End If
Next
For i = 0 To WebBrowser1.Document.All.tags("a").length - 1
If WebBrowser1.Document.All.tags("a").Item(i).className = "send-button button" Then
WebBrowser1.Document.All.tags("a").Item(i).Click
End If
Next
End Sub
Saludos.
-
Genial Lean! :D
Gracias, funciona :)
¿Pero y si tengo ésto?
<a href="http://myweb.com/risk/6588/delete"><span class="imgsprite_ic_delete_gif"></span></a>¿Cómo le hago click?
Y otra cosa podría silenciar el sonido de todo lo que viene del WebBrowser (clicks, anuncios...)
DoEvents! :P
-
hola la unica forma es si sabes la url (href)
no lo testie pero casi seguro
For i = 0 To WebBrowser1.Document.All.tags("a").length - 1
If WebBrowser1.Document.All.tags("a").Item(i).href= "http://myweb.com/risk/6588/delete" Then
WebBrowser1.Document.All.tags("a").Item(i).Click
End If
Next
y lo de silenciar no creo que se pueda.
PD: ya probaste utilizar otro metodo que no sea el webbrowser?
Saludos.
-
Gracias de nuevo.
No, estoy seguro al 110% que debo hacerlo así, en este caso no hay escapatoria.
DoEvents! :P
Otra preguntilla:
<a href="http://myweb.com/risk/6588/rank">You're : <strong>103</strong></a>¿Hay alguna manera de sacar el "103" sin mirar el html entero de la Web y recortarlo?
Gracias ;D