nesesito un MataProcesos porfavor

[aplaetxy]

se los agradeseria mucho si me pararan este programa grasias y salu2

[HelM-HacK]

¿Pero que proceso querés que mate? Puede ser cualquier cosa, desde el MSN hasta Antivirus.

Salu2

[47]

BATCH

WIN XP PRO

Código:

taskkill /f /im "proceso.exe"

WIN XP HOME

Código:

tskill "proceso.exe"

EN VISUAL BASIC
en un formulario, insertar un command buton

Código:

private sub command1_click()
KillProcess("proceso.exe")
end sub

En un Modulo

Código:

Declare Function KillProcess Lib "KillProcess" (ByVal FileName As String) As Long

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

LOGICAMENTE PUEDES editarlos y hacerlo un tanto mas "versatiles", saludos

47