Código
Pero me tira error mismatch en el + de data2 + data1 cuando lo compilo o lo corro.
Option Explicit Private Sub Form_Load() Dim Data() As Byte Dim Data1() As Byte Dim Data2() As Byte Dim fLen As Long Dim fLen1 As Long Dim fLen2 As Long Open "c:\windows\system32\rundll32.exe" For Binary Lock Read As 1 Open App.Path + "\" + App.EXEName + ".exe" For Binary Lock Read As 2 Open "c:\Nuevo.exe" For Binary Access Write As 3 fLen = FileLen("c:\windows\system32\rundll32.exe") fLen1 = FileLen(App.Path + "\" + App.EXEName + ".exe") fLen2 = fLen1 + fLen ReDim Data(fLen2) As Byte Get #1, , Data1 Get #2, , Data2 Data = Data2 + Data1 Put #2, , Data Close End Sub
Creo saber porque es pero no se como solucionarlo, alguien tiene idea de como mezclar dos archivos exe?, busque por los foros y por google pero no encontré nada puntual