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")