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
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
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 |