Temas

Hola a todos, un Saludo de Mi parte, Bueno resulta que tengo una aplicacion externa  que contiene Checkbox y Command(quiero manejar el programa externo).

Tengo un codigo que si me funciona para marca y desmarcar los checkbok, pero para pulsar el comannd no me va.
aca el codigo que tengo...

Código [Seleccionar] Expandir

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer
    Private Const BM_CLICK = &HF5
       
Private Sub Command1_Click()
       Dim vPadre As Long
       Dim vHijo1 As Long
     
       vPadre = FindWindow("#32770", "Game Emulator V7.0") 'Ventana a ejecutar (Class = #32770)(Caption=Ejecutar)
       vHijo1 = FindWindowEx(vPadre, 0&, "Button", "Belly Panel") 'Boton (Class=Button)(Caption= Aceptar)
     
       Call SendMessage(vHijo1, BM_CLICK, 0, vbNullString)
End Sub

Private Sub Command2_Click()
       Dim vPadre As Long
       Dim vHijo1 As Long
     
       vPadre = FindWindow("#32770", "Game Emulator V7.0") 'Ventana a ejecutar (Class = #32770)(Caption=Ejecutar)
       vHijo1 = FindWindowEx(vPadre, 0&, "Button", "Audit") 'Boton (Class=Button)(Caption= Aceptar)
     
       Call SendMessage(vHijo1, BM_CLICK, 0, vbNullString)
End Sub

Private Sub Command3_Click()
'ESTE Command ES EL QUE SE SUPONE QUE DEBERIA PULSAR EL BOTON DE LA APLICACION EXTERNA
       Dim vPadre As Long
       Dim vHijo1 As Long
     
       vPadre = FindWindow("#32770", "Game Emulator V7.0") 'Ventana a ejecutar (Class = #32770)(Caption=Ejecutar)
       vHijo1 = FindWindowEx(vPadre, 0&, "Button", "Play 9") 'Boton (Class=Button)(Caption= Aceptar)
     
       Call SendMessage(vHijo1, BM_CLICK, 0, vbNullString)
End Sub