Título: Ayuda Facebook Publicado por: hall9000 en 26 Abril 2012, 03:06 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(["buildBestAvailableNames","hoistFriends"]);JSCC.get('jGnHD6pnQdLT4ElB3X2').init({"max":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(["control-textarea"], 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 |