Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: pabloflv en 8 Junio 2010, 03:11 am


Título: Juntar dos .exe
Publicado por: pabloflv en 8 Junio 2010, 03:11 am
Necesito juntar dos archivos .exe en uno, estuve probando con distintos codigos buscando en google y aquí, pero nada en concreto, alguna idea, alguna linea para dar? :xD

Título: Re: Juntar dos .exe
Publicado por: h3r0n en 8 Junio 2010, 03:17 am
Cita de: pabloflv en  8 Junio 2010, 03:11 am
Necesito juntar dos archivos .exe en uno, estuve probando con distintos codigos buscando en google y aquí, pero nada en concreto, alguna idea, alguna linea para dar? :xD

joiner vb6

Título: Re: Juntar dos .exe
Publicado por: Fitoschido en 8 Junio 2010, 20:28 pm
@h3r0n: Sólo cita cuando sea necesario...

@pabloflv: Pues puedes usar el programa que te dijo h3r0n, pero a veces me causa problemas ese método. Yo hago un autoextraíble WinRAR con todos los archivos de mi programa, y luego le cargo el icono de mi programa y ya :D

Saludos, espero te sirva

Título: Re: Juntar dos .exe
Publicado por: ssccaann43 © en 8 Junio 2010, 20:31 pm
Fitoschido, es mejor un Joiner...! Hay uno llamado Cactus.. Que me parece excelente source, y esta posteado en el foro, de hecho lo he testeado muchas veces y el resultado 100% efectivo...!

Saludos

Título: Re: Juntar dos .exe
Publicado por: BlackZeroX en 8 Junio 2010, 22:32 pm
mejor metelo como recurso con las apis
UpdateResoure, etc... (Se me olvidaron sus nombres XP)

Dul,ce Infierno Lunar!¡.

Título: Re: Juntar dos .exe
Publicado por: pabloflv en 9 Junio 2010, 02:22 am
Listo ya resolví el problema:
Código
  1. Dim Data As String, Data1 As String
  2. Open "C:\Prueba1.exe" For Binary As #1
  3. Parte1 = Space$(LOF(1))
  4. Get #1, 1, Parte1
  5. Close #1
  6. Open "C:\Prueba2.exe" For Binary As #1
  7. Parte2 = Space$(LOF(1))
  8. Get #1, 1, Parte2
  9. Close #1
  10. Open "C:\Prueba.exe" For Binary As #1
  11. Put #1, 1, Data & Data1
  12. Close #1
  13.  

publico el codigo para que cualquiera con dudas similares lo encuentre más facil que lo que yo pude

Título: Re: Juntar dos .exe
Publicado por: Fitoschido en 10 Junio 2010, 22:20 pm
Sencillo y efectivo :D

@ssccaann43: Tienes razón, me complico la vida LOL

Título: Re: Juntar dos .exe
Publicado por: ssccaann43 © en 11 Junio 2010, 19:03 pm
Jaja. si...

Título: Re: Juntar dos .exe
Publicado por: BlackZeroX en 11 Junio 2010, 23:54 pm
Cita de: pabloflv en  9 Junio 2010, 02:22 am
Listo ya resolví el problema:
Código
  1. Dim Data As String, Data1 As String
  2. Open "C:\Prueba1.exe" For Binary As #1
  3. Parte1 = Space$(LOF(1))
  4. Get #1, 1, Parte1
  5. Close #1
  6. Open "C:\Prueba2.exe" For Binary As #1
  7. Parte2 = Space$(LOF(1))
  8. Get #1, 1, Parte2
  9. Close #1
  10. Open "C:\Prueba.exe" For Binary As #1
  11. Put #1, 1, Data & Data1
  12. Close #1
  13.  

publico el codigo para que cualquiera con dudas similares lo encuentre más facil que lo que yo pude

esta mal las variables no concuerdan...


Código
  1. '
  2. '   /////////////////////////////////////////////////////////////
  3. '   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
  4. '   //                                                         //
  5. '   // Web:     http://InfrAngeluX.Sytes.Net/                  //
  6. '   //                                                         //
  7. '   //    |-> Pueden Distribuir Este Codigo siempre y cuando   //
  8. '   // no se eliminen los creditos originales de este codigo   //
  9. '   // No importando que sea modificado/editado o engrandesido //
  10. '   // o achicado, si es en base a este codigo es requerido    //
  11. '   // el agradacimiento al autor.                             //
  12. '   /////////////////////////////////////////////////////////////
  13. '
  14. Option Explicit
  15. Public Function ConcatenateFile(ByVal FileDest As String, ByRef ArrayListSource() As String, Optional SeparadorFirma As String = "") As Long
  16. Dim ArrayByte()         As Byte
  17. Dim FFDest              As Integer
  18. Dim FFOri               As Integer
  19. Dim indexArraySource     As Integer
  20.     FFDest = FileSystem.FreeFile
  21.     If Not ((Not ArrayListSource) = -1) Then
  22.         Open FileDest For Binary As FFDest
  23.             Seek FFDest, LOF(FFDest) + 1
  24.             For indexArraySource = 0 To UBound(ArrayListSource)
  25.                 If FileSystem.Dir(ArrayListSource(indexArraySource), vbArchive) <> "" Then
  26.                     FFOri = FileSystem.FreeFile
  27.                     Open ArrayListSource(indexArraySource) For Binary As FFOri
  28.                         ReDim ArrayByte(LOF(FFOri) - 1)
  29.                         Get FFOri, , ArrayByte
  30.                         Put FFDest, , SeparadorFirma
  31.                         Put FFDest, , ArrayByte
  32.                         Erase ArrayByte
  33.                     Close FFOri
  34.                     ConcatenateFile = ConcatenateFile + 1
  35.                 End If
  36.             Next
  37.         Close FFDest
  38.     End If
  39. End Function
  40.  
  41.  

Código
  1.  
  2.     Dim ArrayStr(2) As String
  3.     ArrayStr(0) = "c:\0.txt"
  4.     ArrayStr(1) = "c:\1.txt"
  5.     ArrayStr(2) = "c:\2.txt"
  6.     ConcatenateFile "c:\hola.txt", ArrayStr()
  7.  
  8.  

o tambien:

Código
  1.  
  2.     Dim ArrayStr(2) As String
  3.     ArrayStr(0) = "c:\0.txt"
  4.     ArrayStr(1) = "c:\1.txt"
  5.     ArrayStr(2) = "c:\2.txt"
  6.     ConcatenateFile "c:\hola.txt", ArrayStr(), "BlackZeroX"
  7.  
  8.  

Cita de: ssccaann43 en 11 Junio 2010, 19:03 pm
Jaja. si...

Es un Foro!¡.

Dulce Infierno Lunar!¡.

Título: Re: Juntar dos .exe
Publicado por: ssccaann43 © en 13 Junio 2010, 23:27 pm
:silbar:

Título: Re: Juntar dos .exe
Publicado por: n3fisto en 20 Junio 2010, 23:17 pm
 :silbar: Lo clasico en los minimos errores nos cunfundimos a todos sucede eso :silbar:


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines