Mensajes

[hola estoy tratando de hacer una publicación de forma automática en vb6 en facebookYa no soy capaz de insertar texto en un cuadro de diálogo, si alguien puede ayudar muchas gracias ..]

hola estoy tratando de hacer una publicación de forma automática en vb6 en facebook
Ya no soy capaz de insertar texto en un cuadro de diálogo, si alguien puede ayudar muchas gracias ..


<textarea class="uiTextareaAutogrow input mentionsTextarea textInput DOMControl_placeholder" title="No que você está pensando?" name="xhpc_message_text" placeholder="No que você está pensando?" onfocus="return wait_for_load(this, event, function() {JSCC.get('jGnHD6pnQdLT4ElB3X4').init(JSCC.get('jGnHD6pnQdLT4ElB3X5'));;JSCC.get('jGnHD6pnQdLT4ElB3X5').init([&quot;buildBestAvailableNames&quot;,&quot;hoistFriends&quot;]);JSCC.get('jGnHD6pnQdLT4ElB3X2').init({&quot;max&quot;:10}, null, JSCC.get('jGnHD6pnQdLT4ElB3X4'));;;});" autocomplete="off" aria-autocomplete="list" aria-expanded="false" aria-invalid="false" aria-owns="typeahead_list_u1pyvz_60" role="textbox" onkeydown="Bootloader.loadComponents([&quot;control-textarea&quot;], function() { TextAreaControl.getInstance(this) }.bind(this)); ">No que você está pensando?</textarea>



Código: [Seleccionar]
<input type="hidden" autocomplete="off" class="mentionsHidden" name="xhpc_message" value="">


Estoy usando este código, haga clic en el botón de publicación

Private Sub Command2_Click()
On Error Resume Next
  Dim i As Long

    For i = 0 To wb.Document.All.tags("input").length - 1
        If wb.Document.All.tags("input").Item(i).Value = "Publicar" Then
        wb.Document.All.tags("input").Item(i).Click
        End If
    Next
End Sub