Autor
|
Tema: Estado de un programa externo (Leído 4,524 veces)
|
Xaina
Desconectado
Mensajes: 39
|
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!!!
|
|
|
En línea
|
|
|
|
HaDeS, -
WarZone Master
Desconectado
Mensajes: 284
|
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
|
|
|
En línea
|
|
|
|
Xaina
Desconectado
Mensajes: 39
|
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...
|
|
|
En línea
|
|
|
|
HaDeS, -
WarZone Master
Desconectado
Mensajes: 284
|
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
|
|
|
En línea
|
|
|
|
Xaina
Desconectado
Mensajes: 39
|
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
|
|
|
En línea
|
|
|
|
HaDeS, -
WarZone Master
Desconectado
Mensajes: 284
|
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...
|
|
« Última modificación: 25 Octubre 2007, 03:30 am por HaDeS, - »
|
En línea
|
|
|
|
Xaina
Desconectado
Mensajes: 39
|
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!
|
|
« Última modificación: 25 Octubre 2007, 18:15 pm por Xaina »
|
En línea
|
|
|
|
HaDeS, -
WarZone Master
Desconectado
Mensajes: 284
|
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
|
|
|
En línea
|
|
|
|
Xaina
Desconectado
Mensajes: 39
|
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...
|
|
|
En línea
|
|
|
|
drakolive
Desconectado
Mensajes: 141
|
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?
|
|
|
En línea
|
|
|
|
|
|