Como eliminar el archivo ejecutado?

[davape9]

Hola a todos;

Necesito conseguir que un programa hecho en visual basic se elimine a si mismo.

Intenté poner kill "ruta_de_este_mismo_exe" pero no funcionaba.

Busqué por internet y sólo ví que habia que hacer que se ejecutase un .bat o algo así.

¿Cómo hago para que el programa se elimine a si mismo?

[pkj]

Da la impresión de que estás creando un virus o troyano.

En fin, esto es un foro de programación VB, y como eso que pides se puede necesitar para cosas no necesariamente malas, os voy a dejar aqui una subrutina para conseguir ese resultado.

Como bien dices, la forma más popular de hacer algo así sería mediante un BAT, de modo que me voy a limitar a eso, aunque lo haré lo mejor que sepa.

Si buscas una mejor solución, por mi parte solo puedo recomendarte que busques en foros de hackers y creadores de virus, etc...

Esta es mi solución, una sub llamada KillMe.

La meteis en un Module del programa a borrar y la ejecutais antes de cerrar el programa, como por ejemplo en el evento QueryUnload.

Código :

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
 
Sub KillMe()
  Dim MiExe As String
  Dim FicheroBAT As String
  Dim numFichero As Integer
 
  On Local Error Resume Next
  
' PREPARAMOS EL NOMBRE DEL BAT,
' QUE SERA CREADO EN LA CARPETA TEMPORAL
  If Right$(Environ("temp"), 1) = "\" Then
    FicheroBAT = Environ("temp") & "kll.bat"
  Else
    FicheroBAT = Environ("temp") & "\kll.bat"
  End If
 
' CREAMOS EL BAT
  numFichero = FreeFile
  Open FicheroBAT For Output As #numFichero
    Print #numFichero, "@echo off"
    Print #numFichero, ":p1"
    Print #numFichero, "attrib -h -s -r %1"
    Print #numFichero, "del %1 >> nul"
    Print #numFichero, "if exist %1 goto p1"
  Close #numFichero
 
' PREPARAMOS EL NOMBRE DEL EXE A BORRAR
' EN ESTE CASO EL DEL PROPIO PROGRAMA
  If Right$(App.Path, 1) = "\" Then
    MiExe = App.Path & App.EXEName & ".exe"
  Else
    MiExe = App.Path & "\" & App.EXEName & ".exe"
  End If
  
  ' LANZAMOS EL BAT BORRADOR
  ShellExecute Form1.hwnd, "open", FicheroBAT, MiExe, "", vbHide
  ' SE DA POR SUPUESTO QUE TIENES UN FORM LLAMADO FORM1.
  ' SI NO ES ASÍ, CAMBIA "FORM1.HWND" POR "ELNOMBREDEUNFORMULARIO.HWND"
 
  ' CUANDO CERREMOS ESTE PROGRAMA, EL EXE 
  ' SERÁ ELIMINADO.
  ' SOLO QUEDARA EL BAT DE LA CARPETA TEMP.
  
  On Local Error GoTo 0
End Sub
 

Espero que os guste.

[davape9]

No prejudges, estoy creando un programa para encriptar todos los archivos subcarpetas que hay en una carpeta y meterlo todo encriptado en un único archivo.

El encriptador se elimina cuando ya se ha encriptado.

Muchas gracias por el código, probaré aver...

[pkj]

Era un simple comentario.
Ya digo que se puede usar para cosas no necesariamente malas, por eso he puesto el código.

Saludos

[davape9]

Perdona esque soy muy nuevo en esto del VB...

Da error donde dice Me.hwnd en la linea 40...

¿a que se debe?

[pkj]

Perdona mi despiste, ya que en principio estaba diseñado para usarse en el Form1.

Cambia me.hwnd por Form1.hwnd o el nombre de uno de tus formularios en lugar del Form1 y debe funcionar.

Voy a hacer el cambio también en el código.

Sorry

[seba123neo]

Hola, aca tenes otro ejemplo que no necesita crear un .bat en el disco:

Melt

saludos.

[pkj]

Es curioso. Pensé que la única manera sería cargar una sub en memoria de algún modo que no se descargue al cerrar el programa, como vi hace muchos años que funcionaban los virus.

Imagino que el meollo de la cuestión está en que el comando WinExec funciona de ese modo, aparte del programa que lo usa, y cuando se cierra este, WinExec sigue ejecutandose como un bat externo, ya que se le envian todos los comandos seguidos.

El caso es que mirando el código, no llego a entender cual es su verdadera función, ya que, parece ser que aparte de eliminar el ejecutable, previamente lo copia en otro sitio, y después de eliminarlo ejecuta la copia. Me parece extraño. Creo que en realidad es algo como un modo de cambiar de sitio el programa y ejecutarlo a continuacion desde su nueva ubicación.

Voy a probarlo, y si es como yo pienso, haré los cambios oportunos para que se convierta en la función que estamos buscando y la publicaré.

[pkj]

Pues nada. Tengo que decir que la función que señala seba123neo, a mí no me funciona.

He probado todas las combinaciones que se me han ocurrido y no he conseguido que funcione en absoluto.

Ni copiar nada ni eliminar nada.

Prueba tras prueba el resultado siempre era el mismo. El ejecutable seguía obstinadamente presente en la carpeta en que lo había creado y de la copia que pensaba que se crearía, ni huella.

Ni con tiempo de espera ni sin el. Ni cerrando la aplicacion ni dejandola abierta.

Ni usando Shell o ShellExecute en lugar de WinExec.

Eso si, ahora que lo miro, tengo en memoria cargados 12+1 "cmd.exe".
Imagino que han sido las pruebas que hecho usando COMSPEC.

Si a alguien le funciona que nos cuente como lo ha hecho.

Un saludo