por Pandem » Jue May 17, 2007 3:27 pm
Mepa que esta forma es mas facil
Deven pegar lo siguiente en un modulo y se lo utilica por medio de KillProcess("proceso.exe"). Si hay varios procesos del mismo nombre, se los carga a todos.
- Código: Seleccionar todo
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
PD: Mi priemr mensaje, espero poder ayudarlos y si pueden sacarme algunas dudas a lo largo del tiempo Suerte!!
*<<----* ----->> PaNdeM <<----* ----->>*