[RESUELTO]Obtener lista de procesos del pc

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
Responder
daniel.r.23
Mensajes: 79
Registrado: Vie Oct 04, 2013 8:41 pm

[RESUELTO]Obtener lista de procesos del pc

Mensaje por daniel.r.23 »

Buenas, haber si alguien me puede ayudar a como obtener la lista de procesos del sistema. alguna idea??? :alarm:
 Editado: Editado por el moderador Mauricio para quitar el icono de la flama que solo sirve para reportar errores, por favor, si no lo haz hecho, lee nuestra guia de uso de este foro, gracias 
Última edición por daniel.r.23 el Mar Jul 14, 2015 3:54 am, editado 2 veces en total.
OpenOffice 3.4 en Windows 7 Ultimate SP1
Avatar de Usuario
fornelasa
Mensajes: 3268
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

Re: Obtener lista de procesos del pc

Mensaje por fornelasa »

¿Qué debe entenderse por una lista de procesos del pc? ..... ¿podemos ser un poco más claros? ..... no parece ser un tema para este foro.
No digo que lo resolveré .....
Saludos, Federico.
lo 6.2.0 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
daniel.r.23
Mensajes: 79
Registrado: Vie Oct 04, 2013 8:41 pm

Re: Obtener lista de procesos del pc

Mensaje por daniel.r.23 »

Buenas disculpen, lo que estoy buscando es hacer un metodo que me guarde en un array o lista la lista de procesos que figuran en el administrador de tareas.
OpenOffice 3.4 en Windows 7 Ultimate SP1
Avatar de Usuario
mauricio
Mensajes: 6092
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: Obtener lista de procesos del pc

Mensaje por mauricio »

y eso?, como para que lo vas a usar dentro de OpenOffice?...
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
daniel.r.23
Mensajes: 79
Registrado: Vie Oct 04, 2013 8:41 pm

Re: Obtener lista de procesos del pc

Mensaje por daniel.r.23 »

Para saber cuando un programa externo programado en ruby termina de ejecutarse
OpenOffice 3.4 en Windows 7 Ultimate SP1
Avatar de Usuario
fornelasa
Mensajes: 3268
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

Re: Obtener lista de procesos del pc

Mensaje por fornelasa »

ummmmmm, y si al codigo Ruby que "corre" tal programa le agregamos al final una linea similar que diga:

Código: Seleccionar todo

oRespuesta = Msgbox("Proceso finalizado correctamente", 1)
¿porque no?

Saludos, Federico.
lo 6.2.0 | aoo 4.1.6 | win 7/10
¡Un aplauso para todos los que luchan por proteger y promover la Web abierta!
daniel.r.23
Mensajes: 79
Registrado: Vie Oct 04, 2013 8:41 pm

Re: Obtener lista de procesos del pc

Mensaje por daniel.r.23 »

Esto no me serviria de mucho, ya que al recibir el mensaje y darle aceptar la planilla no seguiria con la ejecución de su código. La planilla ejecuta el exe yla idea es que verifique cuando arranca y cuando termina para ejecutar otro código.
OpenOffice 3.4 en Windows 7 Ultimate SP1
daniel.r.23
Mensajes: 79
Registrado: Vie Oct 04, 2013 8:41 pm

Re: Obtener lista de procesos del pc

Mensaje por daniel.r.23 »

bueno pude encontrar como solucionar el tema que inicie, en un foro una persona quería hacer algo en una red desde una macro y creó un script ya que ooo basic no trabaja con COM.
Agarre ese script y lo adapte ya que lo que necesito hacer es mediante COM y ooo basic no lo incorpora.
Dejo el cód.

Código: Seleccionar todo

oleService = createUnoService("com.sun.star.bridge.OleObjectFactory") 
VBScript= oleService.createInstance("MSScriptControl.ScriptControl") 
VBScript.Language = "VBScript" 

s = ""
s = s + "Public DescrArray()" + Chr(10)     
s = s + "Set oWMIService = GetObject(""winmgmts:\\"")" + Chr(10) 
s = s + "Set colProcesses = oWMIService.ExecQuery(""Select * from Win32_Process"")" + Chr(10)
s = s + "ReDim DescrArray(colProcesses.Count-1)" + Chr(10) 
s = s + "k = 0" + Chr(10) 
s = s + "For Each process in colProcesses" + Chr(10)
s = s + "  DescrArray(k) = process.Name" + Chr(10) 
s = s + "  k = k + 1" + Chr(10) 
s = s + "Next" + Chr(10) 

VBScript.ExecuteStatement(s) 
DescrArray = VBScript.CodeObject.DescrArray 

Pueden dar por solucionado el tema!!!
Última edición por mauricio el Mar Jul 14, 2015 3:49 am, editado 1 vez en total.
Razón: Eliminar icono de la flama que solo sirve para reportar errores...
OpenOffice 3.4 en Windows 7 Ultimate SP1
Avatar de Usuario
mauricio
Mensajes: 6092
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: Obtener lista de procesos del pc

Mensaje por mauricio »

Si tu macro ejecuta el programa externo y tiene que esperar a que termine, es mucho más sencillo controlarlo desde el mismo, en Python es trivial..

Código: Seleccionar todo

import subprocess

print ('Antes de ejecutar')
subprocess.check_output('gnome-calculator', stderr=subprocess.STDOUT)
print ('Después de ejecutar')
Por favor, si consideras que el tema esta resuelto, tu mismo debes de marcarlo como tal, mira aquí como: https://forum.openoffice.org/es/forum/v ... 2333#p2333
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Responder