Estado de un programa externo

[Xaina]

   Hola chic@s! no acostumbro a interactuar en los foros, no es mi estilo, aunque no niego haberle echado una ojeado a uno que otro...

   No he encontrado en otros sitios, algo que de verdad me pueda ayudar, si uds, pueden... gracias de antemano.

  La idea es la siguiente: tengo un programa "A" de cualquier extención, y una aplicación "B.exe" hecha en vb, quiero que cuando ejecute "B", este me avise a través de un msgbox por ejemplo, si "A" se esta ejecutando o no. D

  De verdad no encontrado algo que me de una idea de como hacerlo, gracias de antemano.

Xaina. Saludos!!!

[HaDeS, -]

Para dos aplicaciones hechas en visual podes hacer esto:

Código (vb) [Seleccionar] Expandir


Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long

Private Sub Form_Load()
CreateWindowEx 0&, "STATIC", "CADENAAA QUE IDENTIFIQUE EL FORM", 0&, 0&, 0&, 0&, 0&, 0&, 0&, App.hInstance, 0&
End Sub

esa seria la aplicacion A, la aplicacion B tendria este code:

Código (vb) [Seleccionar] Expandir


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Form_Load()
If FindWindow(vbNullString, ByVal "CADENAAA QUE IDENTIFIQUE EL FORM") Then
        MsgBox "La aplicacion A esta activa"
End If
End Sub

Si ejecutas B, entonces se utiliza la api findwindow para buscar una ventana que contiene el codigo que creamos con la api createwindowex en la aplicacion A.
si es para observar otras aplicaciones podes utilizar la misma api findwindow para buscar por el titulo de la ventana que contiene la aplicacion, o utilizas la api getclassname para mirar si la clase en una aplicacion esta activa.
que te sirva y saludos

[Xaina]

   Gracias HaDeS, resolvi mi problema solo con la API FindWindows, usando el nombre de la ventana. Cabe destacar que probe tu ejemplo completo y me funciono de maravila, ¡gracias otra vez! por eso.

   Otra pregunta parecida y ¡disculpen! ¿es posible saber si un programa externo se esta ejecutando, "solo conociendo su nombre y path completo"? y siendo de cualquier extención, ejemplo: Diapositiva.pps, esto en el caso de que el programa corra oculto y no se pueda visualizar el nombre de la ventana.

     Xaina, Saludos...

[HaDeS, -]

Por lo que se, con el ejemplo que diste de la ruta completa y la extension, creo que no se puede hacer, porq lo que hace el office es por medio de los ejecutables abrir dichos archivos. Si vos abris c:\diapositiva.pps, entonces lo que se hace en cierta parte es: c:\programas\powerpoint.exe "c:\diapositiva.pps", si este es el caso, se podrian enumerar los procesos, de cada uno de ellos sacar, la ruta en la cual se esta ejecutando, y comprobar si es o no el ejecutable que se busca. Se le hace un openprocess, y si el proceso existe, entonces se deduce que el programa esta abierto.
Para los archivos de office especificamente se podria tratar de abrir el archivo y escribir sobre el alguna cadena, si devuelve un error es porque esta abierto y si escribe normalmente es porque el archivo esta cerrado...

Saludos, si necesitas algun code de esto por aca me ando pasando

[Xaina]

   Has sido tan claro como el agua, ademas de que tiene mucha lógica, "me encanta es palabrita", el code no esta de mas. Gracias.

   Xaina

[HaDeS, -]

Es fácil, mira este post: http://foro.elhacker.net/index.php/topic,185532.0.html, es nuevo, al final publiqué el código para buscar un ejecutable que actualmente esta activo. Si buscas un archivo de word, en el text1.text tenes que poner winword.exe, y asi el codigo te dira si se esta ejecutando esa aplicacion.
por otra parte, si queres aplicar la idea de abrir documentos de office podes hacer esto:

Código (vb) [Seleccionar] Expandir


Dim Datos$

Private Sub Command1_Click()
Datos = ""
MsgBox AbrirOffice("c:\hola.doc")
End Sub

Private Function AbrirOffice(archivo$) As String
On Error GoTo Error
Dim Canal%
If Dir$(archivo) <> "" Then
HacerBackup archivo
Canal = FreeFile
Open archivo For Output As Canal
Close Canal
If FileLen(archivo) = 0 Then
    Canal = FreeFile
    Open archivo For Binary Access Write As Canal
    Put #Canal, LOF(Canal) + 1, Datos
    Close #Canal
End If
AbrirOffice = "El archivo " & archivo & " existe, pero no esta abierto."
Else
AbrirOffice = "El archivo " & archivo & " no existe."
End If

Error:
If Err.Description <> "" Then
MsgBox Err.Description
    AbrirOffice = "El archivo " & archivo & " se encuentra abierto."
End If
End Function

Private Sub HacerBackup(archivo$)
Dim Canal2%
Canal2 = FreeFile
Open archivo For Binary Access Read As Canal2
Datos = Space(LOF(Canal2))
Get #Canal2, , Datos
Close #Canal2
End Sub


saludos

Editado: Si anda muy enredado el codigo decime te lo explico...

[Xaina]

   Bien... ya me estoy tornando un poco fastidiosa con todo esto, "el asuntito a llamado mi atención, mas de lo que esperaba", el code se entiende, PERO... "la palabra que siempre aparece para complicarlo todo" la rutina "HacerBackup" no me quedo tan clara, realmente es necesaria para que el objetivo de "AbrirOffice" se cumpla. No es posible darle un valor a "Datos" sin usar la rutina "HacerBackup".

   Respondeme esta ultima y no te molesto mas, ¡de verdad! ¡por favor!

   Xaina. Saludos!

[HaDeS, -]

Jeje, Tranquila!, El código que publique también se puede reemplazar por este:

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
Datos = ""
MsgBox AbrirOffice("c:\hola.doc")
End Sub

Private Function AbrirOffice(archivo$) As String
On Error GoTo Error
Dim Canal%, Canal2%, Datos$
If Dir$(archivo) <> "" Then

Canal2 = FreeFile
Open archivo For Binary Access Read As Canal2
Datos = Space(LOF(Canal2))
Get #Canal2, , Datos
Close #Canal2

Canal = FreeFile
Open archivo For Output As Canal
Close Canal
If FileLen(archivo) = 0 Then
    Canal = FreeFile
    Open archivo For Binary Access Write As Canal
    Put #Canal, LOF(Canal) + 1, Datos
    Close #Canal
End If
AbrirOffice = "El archivo " & archivo & " existe, pero no esta abierto."
Else
AbrirOffice = "El archivo " & archivo & " no existe."
End If

Error:
If Err.Description <> "" Then
    AbrirOffice = "El archivo " & archivo & " se encuentra abierto."
End If
End Function

Lo que pasa con la rutina HacerBackup es que en la parte del código esta esto:

Código (vb) [Seleccionar] Expandir


Open archivo For Output As Canal
Close Canal

En ésta parte, se abre el archivo que indicamos en modo de escritura, y luego se cierra, como no se ha insertado ningún dato, entonces en el archivo de alguna forma se borra todo el contenido, y su peso queda de 0 bytes.

luego se compara con el filelen, si esto ha pasado, si es así, vuelve a abrir el archivo en modo de escritura binaria, y escribe el contenido que primero obtuvó.

éste sería el pseudocódigo:
Controlar errores y Redirigirlos a "Error"
Si Archivo Existe
    Abrir Canal2
    Obtiene datos de Archivo
    Cierra Canal
   
    Abrir Archivo en modo Escritura
    Pueden ocurrir dos Cosas:
        Archivo cerrado: Se escribe 0 bytes en Archivo
    O
        No se puede escribir, manda error
    Cierra Canal
   
    Si Archivo pesa 0 bytes
        Abrir Canal
        Escribir en Archivo datos
        Cierra Canal
    Error
Si no Existe
    Error

Control de Error


Bueno, Saludos

[Xaina]

   Que cosas... mi duda no era por usar una rutina externa dentro de la función, si no cual era la finalidad de la misma. Lo has explicado muy bien. :-)

   Gracias por tu paciencia, he aprendido un poco mas.

   Xaina. Saludos! y gracias de nuevo...


   

[drakolive]

Muy bueno Hades...
pero como seria si quiero que el programa B me diga si el Internet explorer o el Msn se esta ejecutando ...
como seria?