Vary Basic Mod Tool (Save Editor)

Imports PackageIO
Public Class Form1
Dim FilePath As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Open As New OpenFileDialog
Open.Filter = "Gamesave (*.*)|*.*"
Open.Title = "Open Gamesave"
If Open.ShowDialog = Windows.Forms.DialogResult.OK Then
FilePath = Open.FileName
readfile(FilePath)
Else
Return
End If
End Sub

Public Sub ReadFile(ByVal FilePath As String)
Dim Reader As New PackageIO.Reader(FilePath, PackageIO.Endian.Big)
Reader.Position = &H // offset here
TextBox1.Text = Reader.ReadInt32
End Sub

Public Sub WriteFile(ByVal FilePath As String)
Dim Writer As New PackageIO.Writer(FilePath, PackageIO.Endian.Big)
Writer.Position = &H // offset here
Writer.WriteInt32((TextBox1.Text))
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try

WriteFile(FilePath)
MsgBox(("File Saved, Now Rehash and Resign!"))
ReadFile(FilePath)
Dim Reader As New PackageIO.Reader(FilePath, PackageIO.Endian.Big)
Reader.Position = &H // offset here
TextBox1.Text = Reader.ReadInt32
Catch ex As Exception
MsgBox("Error", MsgBoxStyle.Critical, "")
End Try
End Sub
End Class

Here is the format I learned on, really simple and easy to edit.


Add two buttons and a text box ...simples, you will need to rehash after or learn how to add one to this.