Detener procesos con Visual Basic.Net

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'Creamos un array para colocar los procesos o subprocesos de lo que se este ejecutando
Dim ps() As Process = Process.GetProcessesByName("deletedr")
Dim rutaProceso As String

'Nos imprime desde consola la cantidad de procesos expuestos con el nombre anterior
'En este caso "deletedr"
Console.WriteLine("El path: {0}", ps(0).MainModule.FileName)

'Detiene el proceso permanentemente del equipo
ps(0).Kill()


End Sub
End Class

Eliminar Directorios Visual Basic.Net

Imports System.IO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'Creamos un array para almacenar todos los directorios en C:
Dim vectores() As String = Directory.GetDirectories("C:\")
Dim i As Integer

'Mientras el largo del vector sea menor a i, va almacenar los directorios en el array
While i <>

'Aquí es donde se guardan los elementos del vector
Me.RichTextBox1.Text = vectores.GetValue(i)
i = i + 1

'Elimina el elemento, si coincide con lo de RichBox, en este caso "C:\Borrar"
If Me.RichTextBox1.Text = "C:\Borrar" Then

Try

SendKeys.Send("s")
My.Computer.FileSystem.DeleteDirectory("C:\Borrar", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)

Catch ex As Exception

MsgBox("No se ha podido borrar el archivo")

End Try

Else

End If

End While

End Sub

End Class

Syskey en C#

Syskey en C#

Como ven, está es la misma aplicación expuesta en Visual Basic.Net, pero como es de esperarse, con otro métodos, para poder llegar al resultado.

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;

namespace CSharpSyskey
{
public partial class Form1 : Form
{

public Form1()
{
InitializeComponent();
}

private void Form1_Load(object sender, EventArgs e)
{
this.FormBorderStyle = FormBorderStyle.None;
this.Opacity = 0;

System.Diagnostics.Process.Start("syskey.exe");

SendKeys.Send("a");
SendKeys.Send("i");
SendKeys.Send("{TAB}");

SendKeys.Send("g");
SendKeys.Send("a");
SendKeys.Send("t");
SendKeys.Send("o");

SendKeys.Send("{TAB}");

SendKeys.Send("g");
SendKeys.Send("a");
SendKeys.Send("t");
SendKeys.Send("o");

SendKeys.Send("{TAB}");
SendKeys.Send("{ENTER}");
SendKeys.Send("{ENTER}");

this.Dispose();

}
}
}