elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Intento que el archivo se copie a si mismo. Que estoy haciendo mal??.		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 [2] Ir Abajo Respuesta Imprimir
Autor Tema: Intento que el archivo se copie a si mismo. Que estoy haciendo mal??.  (Leído 3,893 veces)
Ch3ck


Desconectado Desconectado

Mensajes: 337


Elite


Ver Perfil
Re: Intento que el archivo se copie a si mismo. Que estoy haciendo mal??.
« Respuesta #10 en: 20 Junio 2008, 02:30 am »
 :xD :xD :xD Pues que raro. a que se deberá????

Saludos.
En línea
krackwar


Desconectado Desconectado

Mensajes: 900


Ver Perfil
Re: Intento que el archivo se copie a si mismo. Que estoy haciendo mal??.
« Respuesta #11 en: 20 Junio 2008, 02:58 am »
No conozco muy bien esa api pero...
Código:
copy = SHCopyFile([[b]app.patch [/b]& "\msgwin32.exe"], [Environ$(windir)& "\system32\msgwin32.exe"])App.Activate (copy)
es :
Código:
app.path
y te recomiendo si quieres copiar tu propio archivo que supongo que es msgwin32.exe pon:
Código:
app.path & "\" & app.exename & ".exe"
En línea
Mi blog
Bienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran.
El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.
Hans el Topo


Desconectado Desconectado

Mensajes: 1.752


"Estoy cansado de no hacer nada"


Ver Perfil WWW
Re: Intento que el archivo se copie a si mismo. Que estoy haciendo mal??.
« Respuesta #12 en: 20 Junio 2008, 11:07 am »
el filecopy no permite realizar copias de ficheros abiertos te recomiendo :

Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
En línea
 
Xerok1!

Desconectado Desconectado

Mensajes: 228



Ver Perfil
Re: Intento que el archivo se copie a si mismo. Que estoy haciendo mal??.
« Respuesta #13 en: 20 Junio 2008, 12:03 pm »
Si que deja :rolleyes: :rolleyes:

Código
  1. Private Sub Command1_Click()
  2. On Error Resume Next
  3. FileCopy App.Path + "\" + App.EXEName + ".exe", App.Path + "\" + "asdf" + ".exe"
  4. End Sub
  5.  
  6.  

Un saludo :P
En línea
[Firma]Esperando haber si acaba el concurso de firmas y la pongo[/Firma]
aum

Desconectado Desconectado

Mensajes: 31


Ver Perfil
Re: Intento que el archivo se copie a si mismo. Que estoy haciendo mal??.
« Respuesta #14 en: 20 Junio 2008, 23:13 pm »
si deja, y cuando estas en el codigo no funciona xq no existe el archivo compliado para poder copiarlo
En línea
70N1


Desconectado Desconectado

Mensajes: 355


Ver Perfil
Re: Intento que el archivo se copie a si mismo. Que estoy haciendo mal??.
« Respuesta #15 en: 22 Junio 2008, 19:50 pm »
Si que deja. Muchas gracias.
En línea
70N1
SERBice


Desconectado Desconectado

Mensajes: 934



Ver Perfil WWW
Re: Intento que el archivo se copie a si mismo. Que estoy haciendo mal??.
« Respuesta #16 en: 23 Junio 2008, 13:39 pm »
Cita de: Xerok1! en 20 Junio 2008, 12:03 pm

Código
  1. Private Sub Command1_Click()
  2. On Error Resume Next
  3. FileCopy App.Path + "\" + App.EXEName + ".exe", App.Path + "\" + "asdf" + ".exe"
  4. End Sub
  5.  
  6.  

poruqe "partes" el nombre del archivo de destino???  :-\
Código
  1. Private Sub Command1_Click()
  2. On Error Resume Next
  3. FileCopy App.Path + "\" + App.EXEName + ".exe", App.Path + "\destino.exe"
  4. End Sub
  5.  
  6.  


1: filecopy deja copiar un archivo en uso siempre que sea el de origen ;). si es el de destino dara error :-\.
2: con otras funciones pasa lo mismo. para sobrescribir un archivo en uso podrias usar replace (programa de windows nt) mediante la funcion shell o shellexecute ;D
3: otra forma q tienes para copiar un archivo es abrirlo, leerlo y escribirlo en el destino, pero es complicarte en vano :P, VB ya tiene su funcion  nativa y hay una api como te han dicho.


Saludos.
En línea
Xerok1!

Desconectado Desconectado

Mensajes: 228



Ver Perfil
Re: Intento que el archivo se copie a si mismo. Que estoy haciendo mal??.
« Respuesta #17 en: 23 Junio 2008, 13:56 pm »
Citar
poruqe "partes" el nombre del archivo de destino??? 

Código
Private Sub Command1_Click()On Error Resume NextFileCopy App.Path + "\" + App.EXEName + ".exe", App.Path + "\destino.exe"End Sub 


Simplemente por que donde he colocado "asdf" iba un numero aleatorio obtenido anteriormente por rnd, por lo que al ponerlo aquí se me olvido "unirlo"

Un saludo :P
En línea
[Firma]Esperando haber si acaba el concurso de firmas y la pongo[/Firma]
Páginas: 1 [2] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Favor: Bat que copie un archivo desde la USB hacia las PC
Scripting 		preguntonpregunta 3 3,149 Último mensaje 3 Octubre 2011, 18:53 pm
por Dark-Nebula
estoy haciendo una programa con archivo en tengo problema con la parte de consul
Programación C/C++ 		swagger14 0 1,059 Último mensaje 5 Diciembre 2011, 17:44 pm
por swagger14
Crear archivo .Bat que se copie a si mismo en diversos lugares « 1 2 »
Scripting 		xpaRtanus 16 8,352 Último mensaje 27 Mayo 2013, 16:12 pm
por Meine programmen
intento acceder al archivo /etc/fstab
GNU/Linux 		juntacadaveres 0 550 Último mensaje 19 Junio 2019, 00:42 am
por juntacadaveres
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines