[RESUELTO]Obtener lista de procesos del pc

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...

[RESUELTO]Obtener lista de procesos del pc

Notapor daniel.r.23 » Lun Jul 13, 2015 1:38 pm

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
daniel.r.23
 
Mensajes: 79
Registrado: Vie Oct 04, 2013 8:41 pm

Re: Obtener lista de procesos del pc

Notapor fornelasa » Lun Jul 13, 2015 6:40 pm

¿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!
Avatar de Usuario
fornelasa
 
Mensajes: 3246
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

Re: Obtener lista de procesos del pc

Notapor daniel.r.23 » Lun Jul 13, 2015 7:09 pm

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
daniel.r.23
 
Mensajes: 79
Registrado: Vie Oct 04, 2013 8:41 pm

Re: Obtener lista de procesos del pc

Notapor mauricio » Lun Jul 13, 2015 7:33 pm

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
Avatar de Usuario
mauricio
 
Mensajes: 5991
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX

Re: Obtener lista de procesos del pc

Notapor daniel.r.23 » Lun Jul 13, 2015 7:35 pm

Para saber cuando un programa externo programado en ruby termina de ejecutarse
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

Notapor fornelasa » Lun Jul 13, 2015 8:38 pm

ummmmmm, y si al codigo Ruby que "corre" tal programa le agregamos al final una linea similar que diga:
Código: Seleccionar todo   Expandir vistaContraer vista
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!
Avatar de Usuario
fornelasa
 
Mensajes: 3246
Registrado: Jue Feb 17, 2011 8:30 pm
Ubicación: Estado de México, México.

Re: Obtener lista de procesos del pc

Notapor daniel.r.23 » Lun Jul 13, 2015 11:11 pm

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

Notapor daniel.r.23 » Mar Jul 14, 2015 3:33 am

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   Expandir vistaContraer vista
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
daniel.r.23
 
Mensajes: 79
Registrado: Vie Oct 04, 2013 8:41 pm

Re: Obtener lista de procesos del pc

Notapor mauricio » Mar Jul 14, 2015 3:51 am

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   Expandir vistaContraer vista
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
Avatar de Usuario
mauricio
 
Mensajes: 5991
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX


Volver a Macros y API UNO

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado