Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: hall9000 en Abril 23, 2012, 01:54:32 am

Título: ajuda Facebook
Publicado por: hall9000 en Abril 23, 2012, 01:54:32 am

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