[DUDA] Abrir y cambiar valores hexadecimales

[peperote]

buenas

me gustaria que me pueiderais solucionar la duda de como podria abrir y modificar valores hexadecimales de un archivo .bin, tengo un nivel basico de este lenguaje asique espero que me ayudeis, gracias

[Danyfirex]

Podrías hacer algo como esto.

Código (vb) [Seleccionar] Expandir

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Dest As Any, Src As Any, ByVal L As Long)

Private Sub Form_Load()
Dim file As String
Dim datos() As Byte
file = "C:\Users\Pink\Desktop\1.txt" 'tu archivo a cargar
Open file For Binary As #1
ReDim datos(LOF(1) - 1)  ' LOF(1) - 1 numero de offset de tu archivo
Get #1, , datos  ' obtenemos tu archivo en un array de byte
Close #1

'aqui seria el numero del offset
'datos(0) =  offset 0

Call CopyMemory(datos(0), Asc("h"), 1) ' aqui copiamos la letra h a nuestro offset 0 1 byte
'si quieres copiar 30 bytes seria algo asi
'Dim bytes2() As Byte
'bytes2() = StrConv("XXXXXXXXXXXXXXXXXXXXXXXXXXXX", vbFromUnicode)
'Call CopyMemory(datos(0), bytes2(0), 30)

Open file For Binary As #1
Put #1, , datos
Close #1



End Sub

saludos