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 ;)
Cita de: HaDeS, - en 25 Octubre 2007, 00:05 AM
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 ;)
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
Private Sub Command1_Click()
On Error GoTo Er
FileCopy Text1.Text, "C:\temp.exe"
Kill Text1.Text
FileCopy "C:\temp.exe", Text1.Text
Kill "C:\temp.exe"
MsgBox "El programa No se esta ejecutando"
Exit Sub
Er:
MsgBox "El programa Si se esta ejecutando"
Exit Sub
End Sub
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.