Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: yalosabes en Febrero 09, 2016, 04:36:31 pm
-
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
-
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
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
-
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