Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: David Vans en 10 Abril 2007, 18:42 pm


Título: Leer Datos Binarios
Publicado por: David Vans en 10 Abril 2007, 18:42 pm
Hola queria saber como puedo ler los datas de un archvo binario a si mismo o si no copairlo asi mimso y abrir la copia y guradar en un varible los datos binarios,
mi problema es asceso denegado ya que se encuntra en ejcucion porque es  el mismo exe quein lo quere recoger

Título: Re: Leer Datos Binarios
Publicado por: ~~ en 10 Abril 2007, 19:23 pm
Pues q raro.. yo uso esto:

Código:
Private Sub Form_Load()
Open App.Path & "\nombre.exe" For Binary As #1
Dim Todo As String
Todo = Space(LOF(1))
Get #1, , Todo
Close #1
MsgBox Todo
End Sub

siendo nombre.exe el nombre del archivo y me funciona..


Si prefieres copiarte usa el omando filecopy  :xD

Título: Re: Leer Datos Binarios
Publicado por: David Vans en 10 Abril 2007, 19:51 pm
Código:
Open App.Path & App.EXEName & ".exe" For Binary As #1
Dim Todo As String
Todo = Space(LOF(1))
Get #1, , Todo
Close #1
MsgBox Todo
No me devuleve nada Todo =""
Estando el file abrito no te lee nada porque otro proceso esta usando el exe que es el mismo.
Y filecopy a veces me funciona y otras veces me da error 5 en timpod e ejecucion

Título: Re: Leer Datos Binarios
Publicado por: DrakoX en 10 Abril 2007, 20:36 pm
te doy 2 posible soluciones,
cuando lo ejecutes primero procurra haber creado el exe y luego ejecutarlo,
si esto no funciona
cambia el space y pone,
Código:
Input(LOF(1), 1)
habiendo creado el exe antes de ejecutarlo.

salu2 y suerte

Título: Re: Leer Datos Binarios
Publicado por: SheKeL_C$ en 10 Abril 2007, 20:43 pm
El problema es que lo estas depurando sin haberlo generado.. haz lo siguiente da a archivo -> generar.

Al menos tu problema me pasaba a mi así

Título: Re: Leer Datos Binarios
Publicado por: David Vans en 10 Abril 2007, 20:46 pm
Mi idea es que el exe une varios ficheros exe entocnes cundo gunto varios ficheros necesito poner  el primero el propio exe que los junta y luego los otros en un mismo fihcero.exe

Enotnces cundo se ejcute el exe se va ejeceutar solo mi ejecutable.exe y va a mirar su tamañao y si es mayor de lo normal significa que el ficehro ya esta montado y su mision ser separa los ficheros y jecutarse entocnes se ejecuta de forma invisible en segundo plano y si se abre y el tamaño es el que tien que ser sin niguna union su mision sera añadir files me explico .
entocnes si hemos unido 20 mb luego el exe tendra que copiar los 20 mb en otro sitio y tarda mucho  me interesaria abrirlo de alguna forma y leer sus datos

Perdon por la ortografi tengo un poco de prisa
GRacias por vuestro tiempo

Título: Re: Leer Datos Binarios
Publicado por: David Vans en 10 Abril 2007, 20:49 pm
Citar
El problema es que lo estas depurando sin haberlo generado.. haz lo siguiente da a archivo -> generar.

Al menos tu problema me pasaba a mi así
si claro eso lo he hehco lo ejecuto generado.exe cundo lo pruebo no lo ejecuto desde vb 6 ejecuto el exe que he generado

Título: Re: Leer Datos Binarios
Publicado por: DrakoX en 11 Abril 2007, 00:04 am
Primero que nada, tu code tiene mal la ruta del archivo,

Código:
Private Sub Form_Load()
Dim Code As String
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
    Code = Input(LOF(1), 1)
Close #1
End Sub
cn este code, tendria q andar, y poder leer el archivo,
y para poder hacer tu code,
dale una ojeada al cactus joiner que de seguro te va a ayudar.

salu2 y suerte

Título: Re: Leer Datos Binarios
Publicado por: ~~ en 11 Abril 2007, 16:36 pm
Te digo q asi tiene q funcionar xDD por q es como funciona cualkier joiner, y yo e hecho uno en VB y se lee a si mismo perfectamente...


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines