Sección de códigos , trucos y ejemplos para visual basic

92 - Lanzar procesos de forma invisible mediante Wmi (Windows management instrumentation

El siguiente código está basado en un ejemplo de la Msdn, y el mismo muestra como lanzar procesos de forma visible y también de forma invisible u ocultos, haciendo uso de Wmi

Colocar 2 Command Button, Command1 y Command2

En el ejemplo se lanza el programa escrito en el textbox , ejecutando la rutina EjecutarProceso, que tiene dos parámetros, la ruta y el modo de ejecutar el proceso , si es visible o invisible. Por ejemplo :

Call ejecutarProceso ("c:\Windows\notepad.exe",Invisible)

Al ejecutarlo invisile u oculto, podés verificar, desde el administrador de procesos de windows, que el mismo está cargado en la lista.

Código fuente en el formulario

Option Explicit ' -- Variables de objeto para WMI Dim objStartup As Object Dim objWMIService As Object Dim objConfig As Object Dim objProcess As Object ' -- Modo de ejecución Private Enum EModo Visible = 0 Invisible = 1 End Enum ' -- Sub que abre el programa o proceso '''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub Ejecutar_Proceso(path As String, Modo As EModo) On Error GoTo Error_sub Dim Error As Integer Dim strComputer As String Dim intProcessID As Long Dim Opcion As Integer If Modo = Invisible Then Opcion = 12 Else Opcion = 1 End If ' -- máquina local strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objStartup = objWMIService.Get("Win32_ProcessStartup") Set objConfig = objStartup.SpawnInstance_ ' -- Esto determina mediante la variable Opcion si es visible o no el proceso objConfig.ShowWindow = Opcion Set objProcess = GetObject("winmgmts:root\cimv2:Win32_Process") ' -- Si objProcess.Create devulve 0 quiere decir que no hubo error ' -- En el primer parámetro le pasamos el path del programa a ejecutar Error = objProcess.Create(path, Null, objConfig, intProcessID) Call Elimnar_Objetos Exit Sub Error_sub: MsgBox Err.Description, vbCritical Call Elimnar_Objetos End Sub ' ----------------------------------------------------------------------------------- ' -- Proceso Visible ' ----------------------------------------------------------------------------------- Private Sub Command1_Click() ' -- Llamamos a Ejecutar_Proceso pasándole el path y en el ' -- segundo parámetro si se lanza en forma visible (1) o no visible (12) Call Ejecutar_Proceso(Text1, Visible) End Sub ' ----------------------------------------------------------------------------------- '\\ -- Proceso Oculto ' ----------------------------------------------------------------------------------- Private Sub Command2_Click() Call Ejecutar_Proceso(Text1, Invisible) End Sub Private Sub Form_Load() Command1.Caption = " Proceso visible " Command2.Caption = " Proceso oculto " Text1 = "c:\windows\notepad.exe" End Sub ' ----------------------------------------------------------------------------------- ' \\ -- sub que descarga los objetos instanciados de wmi ' ----------------------------------------------------------------------------------- Sub Elimnar_Objetos() On Local Error Resume Next 'Eliminamos las variables de objeto Set objStartup = Nothing Set objWMIService = Nothing Set objConfig = Nothing Set objProcess = Nothing End Sub Private Sub Form_Unload(Cancel As Integer) Call Elimnar_Objetos End Sub

Recursos vb6 - Enlaces relacionados

Recursos visual basic.NET - relacionados

listar los procesos de windows en vb.net con Process

Buscar en Recursos vb