Red de conocimiento informático - Problemas con los teléfonos móviles - vb obtener pid

vb obtener pid

Tomemos uno simple y práctico,

1 Función:

Función KillPid(ExeName As String) As Boolean

On. Error Reanudar siguiente

Dim objWMIService, colProcessList, objProcess

Establecer objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Establezca colProcessList = objWMIService.ExecQuery _

("Select * from Win32_Process Where Name='" & ExeName & "'")

para cada objProcess en colProcessList

Shell "cmd /c taskkill /pid " amp; objProcess.Handle, vbHide 'Punto clave: ¡obtenga el Pid del proceso y tráigalo al shell!

KillPid = True

Siguiente

Establecer objProcess = Nada

Establecer colProcessList = Nada

Establecer objWMIService = Nada

Función final

2. Ejemplo de llamada:

Si desea finalizar el proceso "notepae.exe", llámelo así:

p>

llamar a KillPid("notepad.exe")