Auto Llenar este formulario

[yalosabes]

Hola alguien tiene alguna idea de como llenar esta caja de texto.. Obviamente ya estando logeado

URL: https://www.facebook.com/plugins/comments.php?api_key=174863539295578&channel_url=http%3A%2F%2Fstaticxx.facebook.com%2Fconnect%2Fxd_arbiter.php%3Fversion%3D42%23cb%3Df2c58f806%26domain%3Dwww.sdpnoticias.com%26origin%3Dhttp%253A%252F%252Fwww.sdpnoticias.com%252Ff364cd623%26relation%3Dparent.parent&colorscheme=light&href=http%3A%2F%2Fwww.sdpnoticias.com%2Fnacional%2F2016%2F02%2F09%2Fpgr-no-ha-detectado-movimientos-irregulares-en-cuentas-de-kate-del-castillo&locale=es_ES&numposts=10&sdk=joey&skin=light&version=v2.3&width=620

Solo pude llegar hasta esto. Que es  lo que activa la caja de texto.. pero no logro llenar la caja de texto.. Hasta ahora solo puedo enviar el texto via sendkeys.. pero no lo veo "optimo" ya que tendria que tener el programa en primer plano todo el tiempo. Alguna sugerencia?

Sub clickprevio
        Dim H
        Dim HI
        H = wb1.Document
        For Each HI In H.getElementsByTagName("div")
            HI.Focus()
        Next
End Sub

[LeandroA]

hola la verdad es un garron todo esto porque cambian siempre el codigo html y te acobarda ir modificando todo

mira proba con esto, creo que un poco se acerca al objetivo pero no me pude logear en face desde el webbrowser asi que hasta aqui llegue

Código: [Seleccionar]

        Dim i As Long
 
        For i = 1 To WebBrowser1.Document.getElementsByTagName("div").Length - 1
       
            With WebBrowser1.Document.getElementsByTagName("div")(i)
               If .getattribute("class") = "UFIInputContainer" Then
                   .getElementsByTagName("textarea")(0).innertext = "Hola"
                End If
           
            End With
        Next

[yalosabes]

Uff un honor que me respondas Leandro. Siempre ando pendiente de tu blog. Lamentablemente el codigo y el concepto del codigo que me pusiste no funciona en este caso.

Estaria agradecido de por vida si me ayudas con esto  hasta contrate un par de programadores  y no hayan como hacerlo