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();

}
}
}

Syskey

Syskey es una aplicación incorporada en los sistemas operativos Microsoft Windows, la cual permite agregar una contraseña, aparte de las ya conocidas como "Claves de Sesión".


A continuación les dejamos el segmento de código en Visual Basic.Net, básicamente consta de enviar de manera virtual y no física una serie de instrucciones desde teclado, con el fin de llegar a la ruta de la aplicación y ejecutarla.



Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles.Load

Dim a As Integer

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.Opacity = 0
a = Shell("syskey", AppWinStyle.NormalFocus)

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}")

End Sub

End Class


Usuarios, importante, esto es para dar a conocer algunas de las aplicaciones enfocadas a la seguridad del sistema.

Presentación

El Team Cells - Tech es un grupo conformado por 3 integrantes, pertenecientes a Duoc UC, está enfocado a realizar aplicaciones en la plataforma Visual Studio 2005, en el lenguaje Visual basic.Net.