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

 

 


Tema destacado: Introducción a Git (Primera Parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Juntar dos .exe
0 Usuarios y 2 Visitantes están viendo este tema.
Páginas: [1] 2 Ir Abajo Respuesta Imprimir
Autor Tema: Juntar dos .exe  (Leído 6,104 veces)
pabloflv

Desconectado Desconectado

Mensajes: 5


Ver Perfil
Juntar dos .exe
« 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


En línea

h3r0n

Desconectado Desconectado

Mensajes: 50



Ver Perfil WWW
Re: Juntar dos .exe
« Respuesta #1 en: 8 Junio 2010, 03:17 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


En línea

Intel Core 2 E7300 2,6 GHz
Intel Core 2 ASUS P5KPL/1600
Sapphire Radeon HD4650 1 GB DDR2
4 GB DDR2/800 Kingston
Tacens Radix 410W Smart MOD
Cooler Master Storm Scout
Fitoschido

Desconectado Desconectado

Mensajes: 248



Ver Perfil WWW
Re: Juntar dos .exe
« Respuesta #2 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
En línea

El que sabe hace, el que no enseña


Miembro oficial del proyecto Ubuntu, traductor de LibreOffice/Ubuntu/Xfce/Gnome.
ssccaann43 ©


Desconectado Desconectado

Mensajes: 792


¬¬


Ver Perfil
Re: Juntar dos .exe
« Respuesta #3 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
En línea

- Miguel Núñez
Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio...
"I like ^TiFa^"
BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: Juntar dos .exe
« Respuesta #4 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!¡.
En línea

The Dark Shadow is my passion.
pabloflv

Desconectado Desconectado

Mensajes: 5


Ver Perfil
Re: Juntar dos .exe
« Respuesta #5 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
En línea

Fitoschido

Desconectado Desconectado

Mensajes: 248



Ver Perfil WWW
Re: Juntar dos .exe
« Respuesta #6 en: 10 Junio 2010, 22:20 pm »

Sencillo y efectivo :D

@ssccaann43: Tienes razón, me complico la vida LOL
En línea

El que sabe hace, el que no enseña


Miembro oficial del proyecto Ubuntu, traductor de LibreOffice/Ubuntu/Xfce/Gnome.
ssccaann43 ©


Desconectado Desconectado

Mensajes: 792


¬¬


Ver Perfil
Re: Juntar dos .exe
« Respuesta #7 en: 11 Junio 2010, 19:03 pm »

Jaja. si...
En línea

- Miguel Núñez
Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio...
"I like ^TiFa^"
BlackZeroX
Wiki

Desconectado Desconectado

Mensajes: 3.158


I'Love...!¡.


Ver Perfil WWW
Re: Juntar dos .exe
« Respuesta #8 en: 11 Junio 2010, 23:54 pm »

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.  

Jaja. si...

Es un Foro!¡.

Dulce Infierno Lunar!¡.
En línea

The Dark Shadow is my passion.
ssccaann43 ©


Desconectado Desconectado

Mensajes: 792


¬¬


Ver Perfil
Re: Juntar dos .exe
« Respuesta #9 en: 13 Junio 2010, 23:27 pm »

:silbar:
En línea

- Miguel Núñez
Todos tenemos derechos a ser estupidos, pero algunos abusan de ese privilegio...
"I like ^TiFa^"
Páginas: [1] 2 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
juntar csv
Scripting
makinavaja3500 0 4,569 Último mensaje 15 Julio 2023, 13:47 pm
por makinavaja3500
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines