jueves, 15 de enero de 2009

Aplicación suicida en VB.NET - Programa que se elimina a sí mismo

He aquí una curiosa forma de hacer que un ejecutable se elimine a sí mismo:

Module Module1
Sub Main()
Suicide()
End Sub
Sub Suicide()
Dim EXEName As String = VB6.GetEXEName() & ".exe"
MakeBat(EXEName)
Dim Info As ProcessStartInfo = New ProcessStartInfo()
Info.Arguments = "/C deleter.bat"
Info.WindowStyle = ProcessWindowStyle.Hidden
Info.CreateNoWindow = True
Info.FileName = "cmd.exe"
Process.Start(Info)
End Sub
Private Sub MakeBat(ByVal EXEName As String)
Dim sb As New System.Text.StringBuilder
sb.AppendLine("@echo off")
sb.AppendLine(":loopb")
sb.AppendLine("del """ & EXEName & """ > nul")
sb.AppendLine("IF EXIST """ & EXEName & """ goto loopb")
sb.AppendLine("del deleter.bat")
My.Computer.FileSystem.WriteAllText("deleter.bat", sb.ToString(), False)
End Sub
End Module


Se debe agregar una referencia y el Imports a Microsoft.VisualBasic.Compatibility

No hay comentarios: