Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

Ayuda a un novato

Estas en el tema de Ayuda a un novato en el foro de Visual Basic clásico en Foros del Web. Hola a todos, soy nuevo por aca, mi pregunta era como puedo hacer para que dentro de un archivo se modifique algunos bytes determinados conociendo ...
  #1 (permalink)  
Antiguo 20/11/2010, 12:27
 
Fecha de Ingreso: noviembre-2010
Mensajes: 13
Antigüedad: 13 años, 5 meses
Puntos: 0
Ayuda a un novato

Hola a todos, soy nuevo por aca, mi pregunta era como puedo hacer para que dentro de un archivo se modifique algunos bytes determinados conociendo la ubicacion, me explico que vea que valores existen en el offset 400 a 403 (hexadecimal) y los sobrescriba en el en el offset 500 (hexadecimal) estos 4 bytes, no se si me dejo enteneder o si es el sitio correcto para hacer la pregunta, utilizo el win 7, muchas gracias de antemano, un saludo
  #2 (permalink)  
Antiguo 23/11/2010, 06:56
Avatar de pkj
pkj
 
Fecha de Ingreso: julio-2006
Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 17 años, 9 meses
Puntos: 29
Respuesta: Ayuda a un novato

Depende del lenguaje que quieras usar.
En VB6 creo que sería algo como:

Código vb:
Ver original
  1. Dim Nombre As String
  2.   Dim NumFichero As Integer
  3.   Dim Valor As Integer
  4.   NumFichero = FreeFile
  5.   Nombre = "C:\fichero.bin"
  6.   Open Nombre For Binary Access Read Write As #NumFichero
  7.     Get #NumFichero, &H400, Valor
  8.     Put #NumFichero, &H500, Valor
  9.     Get #NumFichero, &H401, Valor
  10.     Put #NumFichero, &H501, Valor
  11.     Get #NumFichero, &H402, Valor
  12.     Put #NumFichero, &H502, Valor
  13.     Get #NumFichero, &H403, Valor
  14.     Put #NumFichero, &H503, Valor
  15.   Close #NumFichero

Saludos
__________________
No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza!
  #3 (permalink)  
Antiguo 29/11/2010, 22:58
 
Fecha de Ingreso: noviembre-2010
Mensajes: 13
Antigüedad: 13 años, 5 meses
Puntos: 0
Respuesta: Ayuda a un novato

Cita:
Iniciado por pkj Ver Mensaje
Depende del lenguaje que quieras usar.
En VB6 creo que sería algo como:

Código vb:
Ver original
  1. Dim Nombre As String
  2.   Dim NumFichero As Integer
  3.   Dim Valor As Integer
  4.   NumFichero = FreeFile
  5.   Nombre = "C:\fichero.bin"
  6.   Open Nombre For Binary Access Read Write As #NumFichero
  7.     Get #NumFichero, &H400, Valor
  8.     Put #NumFichero, &H500, Valor
  9.     Get #NumFichero, &H401, Valor
  10.     Put #NumFichero, &H501, Valor
  11.     Get #NumFichero, &H402, Valor
  12.     Put #NumFichero, &H502, Valor
  13.     Get #NumFichero, &H403, Valor
  14.     Put #NumFichero, &H503, Valor
  15.   Close #NumFichero

Saludos
muchas gracias amigo pkj

Etiquetas: Ninguno
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 18:17.