Utilizamos Cookies de terceros para generar estadísticas de audiencia y mostrar publicidad personalizada analizando tu navegación. Si sigues navegando estarás aceptando su uso. Más información X
PortadaForo AyudaTutoriales
Trucos VB6 - Matar un proceso

VB6 - Matar un proceso

Autor: Tharos - Enviado con fecha: 19-09-2005 17:14:41.
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
- - - - - - - - - - - - - - - - - - - - - - - -
InicioBlog
^ SubirAviso legal
Política Privacidad
Configurarequipos16 Octubre 2019