Aquí os adjunto el código para matar un proceso de la memoria. Deberéis pegarlo en un módulo, y la llamada se realiza mediante KillProcess("proceso.exe"). Si hay varios procesos del mismo nombre, se los carga a todos.
Espero os sirva de ayuda.
- - - - - - - - - - - - - - - - - - - - - - - - - - -
Public Sub KillProcess(ByVal processName As String)
On Error GoTo ErrHandler
Dim oWMI
Dim ret
Dim sService
Dim oWMIServices
Dim oWMIService
Dim oServices
Dim oService
Dim servicename
Set oWMI = GetObject("winmgmts:")
Set oServices = oWMI.InstancesOf("win32_process")
For Each oService In oServices
servicename = LCase(Trim(CStr(oService.Name) & ""))
If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then
ret = oService.Terminate
End If
Next
Set oServices = Nothing
Set oWMI = Nothing
ErrHandler:
Err.Clear
End Sub
- - - - - - - - - - - - - - - - - - - - - - - - |
|
Autor Tharos - Enviado con fecha: 19-09-2005 17:14:41 - Visto: 13653 veces.
|
|
