29/11/2010, 22:58
|
| | | Fecha de Ingreso: noviembre-2010
Mensajes: 13
Antigüedad: 14 años, 5 meses Puntos: 0 | |
| Respuesta: Ayuda a un novato
Cita:
Iniciado por pkj  Depende del lenguaje que quieras usar.
En VB6 creo que sería algo como:
Código vb:
Ver originalDim Nombre As String Dim NumFichero As Integer Dim Valor As Integer NumFichero = FreeFile Nombre = "C:\fichero.bin" Open Nombre For Binary Access Read Write As #NumFichero Get #NumFichero, &H400, Valor Put #NumFichero, &H500, Valor Get #NumFichero, &H401, Valor Put #NumFichero, &H501, Valor Get #NumFichero, &H402, Valor Put #NumFichero, &H502, Valor Get #NumFichero, &H403, Valor Put #NumFichero, &H503, Valor Close #NumFichero
Saludos muchas gracias amigo pkj  |