Visual Basic Foro

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>



<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

hola estoy haciendo un programa que pone un formulario en el navegador de informar a un mensaje para que firefox no acepta
puesto en marcha en las páginas de carga de Firefox sólo tiene una clase MozillaWindowClass estoy usando el api FindWindowEx gracias ....

   Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long



Public Function fire() As Long
dim  FF ,janelaFF, hWndFF as long

FF = GetForegroundWindow
   janelaFF = FF
   hWndFF = FindWindowEx(janelaFF, 0, ("MozillaWindowClass"), vbNullString)
   hWndFF = FindWindowEx(hWndFF, 0, ("MozillaWindowClass"), vbNullString)
   fire = hWndFF

End Function

Private Sub Timer1_Timer()
dim ms as long
ms =  fire

If ms  <> "0" Then
SetParent Form2.hwnd, fire
MsgBox "mensaje"
Form2.show
end if

End Sub



tiene alguna manera de mover el ratón sin que el usuario sepa que me estoy moviendo gracias ....

http://www.leandroascierto.com.ar/categoria/Proyectos/articulo/Escritorio%20Remoto.php

tiene alguna manera de mover el ratón sin que el usuario sepa que me estoy moviendo gracias ....

ya se logró abrir el navegador sin conocer el usuario remoto
Ahora sólo falta tener acceso remoto sin que el usuario sepa

Public Function OpenURL(hURL As String, Optional hUserAgent As String = "Google Chrome") As String ' abrir url escondida para  web
 
    Dim hInternet   As Long
   
 
        hInternet = InternetOpen(hUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
 
        If hInternet <> 0 Then
 
            hURL = InternetOpenUrl(hInternet, hURL, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
 
        End If
 
        If hInternet <> 0 Then Call InternetCloseHandle(hInternet)
        If hURL <> 0 Then Call InternetCloseHandle(hURL)
 
End Function

gracias funcionó  LeandroA