Autor Tema: Establecer texto WebBrowser  (Leído 3487 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Psyke1

  • Megabyte
  • ***
  • Mensajes: 130
  • Reputación: +11/-7
  • VBManiac
    • Ver Perfil
    • h-Sec
Establecer texto WebBrowser
« 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:
Código: [Seleccionar]
<a href="#" class="send-button button">Send</a>
¿Alguna idea de cómo hacerlo? ???
Gracias :-*
« última modificación: Mayo 03, 2011, 06:41:27 pm por Psyke1 »

LeandroA

  • Administrador
  • Petabyte
  • *****
  • Mensajes: 1128
  • Reputación: +151/-8
    • Ver Perfil
Re:Establecer texto WebBrowser
« Respuesta #1 en: Mayo 03, 2011, 11:28:42 pm »
Hola aca te paso un ejemplo, segun como vi en vbForums tambien necesitas el TextArea.

Código: [Seleccionar]
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.

Psyke1

  • Megabyte
  • ***
  • Mensajes: 130
  • Reputación: +11/-7
  • VBManiac
    • Ver Perfil
    • h-Sec
Re:Establecer texto WebBrowser
« Respuesta #2 en: Mayo 04, 2011, 10:01:37 am »
Genial Lean! :D
Gracias, funciona :)

¿Pero y si tengo ésto?
Código: [Seleccionar]
<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
« última modificación: Mayo 04, 2011, 01:56:43 pm por Psyke1 »

LeandroA

  • Administrador
  • Petabyte
  • *****
  • Mensajes: 1128
  • Reputación: +151/-8
    • Ver Perfil
Re:Establecer texto WebBrowser
« Respuesta #3 en: Mayo 04, 2011, 03:14:24 pm »
hola la unica forma es si sabes la url (href)

no lo testie pero casi seguro
Código: [Seleccionar]
    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.

Psyke1

  • Megabyte
  • ***
  • Mensajes: 130
  • Reputación: +11/-7
  • VBManiac
    • Ver Perfil
    • h-Sec
Re:Establecer texto WebBrowser
« Respuesta #4 en: Mayo 04, 2011, 09:11:53 pm »
Gracias de nuevo.
No, estoy seguro al 110% que debo hacerlo así, en este caso no hay escapatoria.

DoEvents! :P


Otra preguntilla:
Código: [Seleccionar]
<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
« última modificación: Mayo 05, 2011, 06:03:06 am por Psyke1 »