Nagato
Se7enVeteran
Public
Class Form1
Dim FilePath AsString
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Dim open Asnew OpenFileDialog open.Title =
"Open as Xbox 360 GameSave"
open.ShowDialog(FilePath = open.FileName)
ReadFile()
EndSub
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
EndSub
PrivateSub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
PrivateSub ReadFile()
Dim
Reader AsNew PackageIO.Reader(FilePath,
PackageIO.Endian.Big) Reader.Position =
432: TextBox1.Text = Reader.ReadInt32
EndSub
End
Class
Class Form1
Dim FilePath AsString
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Dim open Asnew OpenFileDialog open.Title =
"Open as Xbox 360 GameSave"
open.ShowDialog(FilePath = open.FileName)
ReadFile()
EndSub
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
EndSub
PrivateSub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
PrivateSub ReadFile()
Dim
Reader AsNew PackageIO.Reader(FilePath,
PackageIO.Endian.Big) Reader.Position =
432: TextBox1.Text = Reader.ReadInt32
EndSub
End
Class