MINI PROGRAMA PARA MATAR PROCESOS

Buenas a tod@s aqui os traigo un mini programa para matar procesos.
es posible que sea necesario ejecutarlo como administrador.

Algunas veces este tipo de programitas son muy utiles cuando hay equipos infectados con virus y no te permiten abrir el administrador de tareas.

Aqui os dejo el codigo fuente, y un rar con la solucion completa ya compilada tambien.
Descargar MATAPROCESOS
Un saludo y Muchas gracias

Sub Main()
starter:
       Console.Write("MataProcesos SoulsMakers" & vbCrLf & vbCrLf)
       Console.Write("LISTA DE PROCESOS" & vbCrLf)
       Console.Write("ID" & vbTab & vbTab & "Nombre" & vbCrLf)
       Console.Write("_____________________________" & vbCrLf)
       Dim list() As Diagnostics.Process = Process.GetProcesses
       For i As Integer = 0 To list.Count - 1
           Console.Write(list(i).Id & vbTab & vbTab & list(i).ProcessName & vbCrLf)
       Next
       Console.Write("ID del proceso a finalizar,Escriba 'X' para salir:")
       Dim MATARID As String = Console.ReadLine()
       Select Case MATARID.ToUpper
           Case "X"
               Exit Sub
       End Select
       Try
           Dim i = CInt(MATARID)
       Catch ex As Exception
           GoTo starter
       End Try
       Try
           Dim P As Process = Process.GetProcessById(MATARID)
           P.Kill()
           Console.Write("***COMPLETADO***")
           GoTo starter
       Catch ex As Exception
           Console.Write(ex.ToString)
           Console.Write("No se pudo completar")
           GoTo starter
       End Try
   End Sub

Sub Main()

starter:

Console.Write("MataProcesos SoulsMakers" & vbCrLf & vbCrLf)

Console.Write("LISTA DE PROCESOS" & vbCrLf)

Console.Write("ID" & vbTab & vbTab & "Nombre" & vbCrLf)

Console.Write("_____________________________" & vbCrLf)

Dim list() As Diagnostics.Process = Process.GetProcesses

For i As Integer = 0 To list.Count - 1

Console.Write(list(i).Id & vbTab & vbTab & list(i).ProcessName & vbCrLf)

Console.Write("ID del proceso a finalizar,Escriba 'X' para salir:")

Dim MATARID As String = Console.ReadLine()

Select Case MATARID.ToUpper

Case "X"

Exit Sub

End Select

Try

Dim i = CInt(MATARID)

Catch ex As Exception

GoTo starter

End Try

Try

Dim P As Process = Process.GetProcessById(MATARID)

P.Kill()

Console.Write("***COMPLETADO***")

GoTo starter

Catch ex As Exception

Console.Write(ex.ToString)

Console.Write("No se pudo completar")

GoTo starter

End Try

End Sub

MINI PROGRAMA PARA MATAR PROCESOS

Deja un comentario Cancelar respuesta