hola, bueno lei ciertas cosas y no me quedo muy claro para que sirve estas funciones lo que esta en rojo es lo que no entiendo a ver si me podrian dar una maniot! :P
Open Label1.Caption For Binary As #1 '
Dim Archivo As String
Archivo = Space(LOF(1))
Get #1, , Archivo
Close #1
bueno no entiendo bien para que hace eso de Space(LOF(1))..
otra cosa en el caso del joiner porque el copy esto archivo o mejor dicho el stub?
CD.FileName = ""
CD.Filter = "*.exe|*.exe"
CD.ShowSave
Ruta = CD.FileName
Firma = "[**-_-**]"
SubFirma = "^^_~~_^^"
FileCopy App.Path & "\stub.dll", Ruta
osea porque copia el stub.dll a la Ruta sabiendo que es la ruta de otro archivo?
Open Ruta For Binary As #1
Seek (1), LOF(1) + 1
Put #1, , Firma
Put #1, , bloq & SubFirma
Put #1, , "archivo.bat" & SubFirma
Put #1, , "Windows" & SubFirma
Put #1, , vision & SubFirma
Put #1, , Archivo & SubFirma
Put #1, , bloq2 & SubFirma
Put #1, , bloq3
Close #1
para que usa el Sekk con el LOF (se que es el seek pero nose porque lo usa con el LOF)
Bueno espèro no ser un problema para ustedes! y espero que me disculpen!
Utiliza a tu nuevo mejor amigo :) MSDN!!
El Space():
http://msdn2.microsoft.com/es-es/library/k6ethaxs(VS.80).aspx
Cuando dice:
Archivo = Space(LOF(1))
Esta llenando la declaracion Archivo con espacios basado en la longitud del archivo.
Seek():
http://msdn2.microsoft.com/es-es/library/7af2feyt(VS.80).aspx
Seek (1), LOF(1) + 1
Es para ponerse al final del archivo.
el LOF() significa Length of File :].
http://msdn2.microsoft.com/en-us/library/dtz29k5z(VS.71).aspx
Nota: Hace mucho que no programo en visual basic.
Open Label1.Caption For Binary As #1 'Abrimos un archivo con ID 1 (#1)
Dim Archivo As String 'Creamos una variable para cargar el archivo
Archivo = Space(LOF(1)) 'Creamos un Buffer con Archivo del tamaño del archivo con ID 1, Space crea tantos espacios (chr(32)) como la longitud del archivo 1 (#1)
Get #1, , Archivo 'Obtenemos del archivo con ID 1 la cantidad de datos segun el tamaño del Buffer creado anteriormente en Archivo
Close #1 'Cerramos el archivo para volver a poder acceder a el.
otra cosa en el caso del joiner porque el copy esto archivo o mejor dicho el stub?
Esto no te lo entendi, si me explicas mejor te lo respondo.
Seek (1), LOF(1) + 1 'Seek busca en el ID que se le indique la posicion que se le indique, en este caso el ID es 1 (#1) y LOF(1) + 1 es porque la cantidad del archivo + 1, es para ir al final del archivo eso.
Espero haber sido claro, sino pregunta!
Sancho.Mazorka :¬¬
(http://www.fmat.cl/style_emoticons/default/sign_google.gif) (estaba deseando usar ese emoticono)
Usa google q viene todo explicado y mira algun tuto para saber manipular archivos ;)
PD - Ese codigo me suena....