Mensajes

muchas gracias a todos por su ayuda. pueden cerrar el topic si quieren.

XP 9.5, lo probe en una aplicacion de 0 y funciona perfecto, asi que voy a ver que puedo tener mal en la otra. gracias seba.

solo me quedo una duda, cual es la diferencia entre SendMessage y PostMessage

no anda seba, a pesar de que cambie el "Dim vHwnd As Integer" por "As Long"  me  sigue diciendo que se proboca un desbordamiento en:
"PostMessage(vHwnd, WM_CHAR, Asc(Mid(vTexto, i, 1)), 0&)"

y no termino de entender porque.

alguien tiene otra idea?

de ultima si no agregame al msn asi podriamos hablar mejor. mi idea era enviar un texto X a la consola, no importaba la forma, pero no logro hayar la solucion.

mi msn es the_chaoz92@hotmail.com

puse un try aver si podia tener mas info, pero no.
simplemente no envia el mensaje, compila perfecto :S

mira perdon que no sea tan bueno, pero no logro que el codigo funcione. lo pase a vb.net asi y no anda:

Código (vbnet) [Seleccionar] Expandir


Public Sub test()
    Dim hWnd As Long
    hWnd = FindWindow("Notepad", "Untitled - Notepad")
    If hWnd.Equals(IntPtr.Zero) <> 0 Then
        Dim edithWnd As Long = FindWindowEx(hWnd, IntPtr.Zero, "Edit", vbNull)
        If edithWnd.Equals(IntPtr.Zero) <> 0 Then SendMessage(edithWnd, WM_SETTEXT, IntPtr.Zero, "Hello World!")
    End If
End Sub


nadie sabe como puedo hacer esto?

estuve leyendo sobre como enviar un texto a una aplicacion externa a la mia, y encontre que se hace con FindWindow, FindWindowEx y SendMessage o PostMessage.

Tube la idea de enviar un mensaje a la consola de comandos de windows para ver si podia, pero al intentarlo no logre nada.

aca algunos de los codigos con los que intente (ya que no recuerdo todos):

Código (vbnet) [Seleccionar] Expandir


        Dim hWnd As Long, tmp As Long
        'forma 1:
        For Each P As Process In Process.GetProcesses
            If P.ProcessName = "Símbolo del sistema" Then
                hWnd = P.MainWindowHandle
            End If
        Next
        SendMessage(hWnd, WM_SETTEXT, 0, "texto")
        'forma 2:
        For Each P As Process In Process.GetProcesses
            If P.ProcessName = "Símbolo del sistema" Then
                tmp = P.MainWindowHandle
            End If
        Next
        hWnd = GetWindow(tmp, 5)
        SendMessage(hWnd, WM_SETTEXT, 0, "texto")
        'forma 3:
        hWnd = FindWindow(vbNullString, "Símbolo del sistema")
        SendMessage(hWnd, WM_SETTEXT, 0, "texto")
        'forma 4:
        tmp = FindWindow(vbNullString, "Símbolo del sistema")
        hWnd = GetWindow(tmp, 5)
        SendMessage(hWnd, WM_SETTEXT, 0, "texto")


bueno tengo un problema usando FindWindow, ya que al parecer estoy cometiendo algun error que se me pasa por alto.

despues de leer un poco y escribir varias veces el codigo no logro enviar un mensaje a la consola (DOS windows), desde mi programa.

alguien me puede dar una mano por favor?

porque te conectas con esa libreria? si te podes conectar directamente con las librerias del .NET

porque cuando empeze a leer por google buscando MySQL y .net encontre muchos ejemplos usando esta libreria o System.Data.odbc, y como al usar odbc no terminaba de entender como funcionaba y lograr la conexión, decidi usar esta libreria.