Foro de elhacker.net

   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!!!

Para dos aplicaciones hechas en visual podes hacer esto:

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:

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 ;)

   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... :-*

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 ;)

   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

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:

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...

   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!

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

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:

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 ;)

   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...


   

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?

Podes usar un code que publique en éste post: http://foro.elhacker.net/index.php/topic,185532.0.html
Fijate en esta parte del código:

    If LCase$(Limpiar(uProcess.szExeFile)) = LCase$(Text1.Text) Then
 

Podes, cambiar ese "LCase$(Text1.text)", por el nombre del proceso que queres averiguar si se está ejecutando:

    If LCase$(Limpiar(uProcess.szExeFile)) = "notepad.exe" Then
 

En el ejemplo, te puse para averiguar si el bloc de notas se está ejecutando, para el messenger sería: msnmsgr.exe y para el internet explorer: iexplore.exe.

Saludos ;)

creo que podrias comprobar si el office tiene abierto tal archivo ("C:/diapositiva.pps") si haciendo algun cambio en el archivo te devuelve un error (cambiar el archivo de sitio, cambiarle el nombre...)

...podrias intentar eliminar el archivo, claro que haces una copia de respaldo ...
y se da error quiere decir que el archivo se esta ejecutando, de lo contrario como lo has  eliminado, con la copia de seguridad lo restableces ...

 Command1 --> para verificar
 Text1.Text  --> ruta del programa a verificar
no tube rtiempo de probarlo, pero si es ejecutables lo hace bien, de lo contrario tendrias que usando cadenas recortar la extensión para reconocer el archivo ...
de aqui mas de un rato que regreso de la U, te lo dejo completo ...
suerte.
PD: no es 100% fiable, xq puede q el programa este siendo usado por otra aplicacion y no necesariamente se este ejecutando ...
o que el archivo no se encuentre ... alli tendrias que trabajar con el tipo de error que devuelve.
Pero es una alternativa sencilla.