Buenas, haber si alguien me puede ayudar a como obtener la lista de procesos del sistema. alguna idea???
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.
¿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!
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.
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
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.
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.
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...
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3 No respondo preguntas privadas, por favor, usa el foro