Foro de elhacker.net

 
        Dim MyAddress As Integer = &H290968
        Dim a As Object
 
        Dim fs As FileStream = New FileStream(fileName, FileMode.Open)
 
        Dim br As BinaryReader = New BinaryReader(fs)
 
        Dim sz As Integer = fs.Length ' you don't neccessarily need this, I use this in my app. toset the size an Array.
 
        br.BaseStream.Seek(MyAddress, SeekOrigin.Begin) 'moves to the address you want
 
        a = br.ReadInt32() 'reads Both Bytes (characters you want)
 
        ListBox1.Items.Add("My Address Data: " + (a).ToString()) 'Adds the data to a listbox
 
        br.Close() 'close the Binary Reader
 
        fs.Close() ' close the FileStream
 
 

a = br.ReadInt32()

a = br.ReadBytes(2)
MsgBox(BitConverter.ToInt32(a, 0))