INFORMATICA Y OCIO

DploiD · Publicado: Mar Ene 31, 2006 7:05 pm **Título del mensaje**:

para cerrar un proceso
Private Sub Command1_Click()
KillProcess ("aplicacion.exe")
End Sub

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
_________________
Avisame del spam

w0rm · Publicado: Mie Feb 01, 2006 6:59 pm **Título del mensaje**:

Ajam, esa es una forma de hacerlo...
_________________

netw0rm.com[a:R`r,0+b¨a]G|v|4¡L[p^u.n-t'O]C0|v|
NO ATIENDO A PEDIDOS POR MP...

	Índice del Foro Foroz comunity :: Programación	Todas las horas están en GMT + 1 Hora Ir a página Anterior 1, 2
Página 2 de 2