Vary Basic Mod Tool (Save Editor)

ADDZ Feb 14, 2015

  1. AD

    ADDZ Guest

    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.
     
  2. DanielQuinn

    DanielQuinn The Krafty one!
    0/47

    Joined:
    Sep 11, 2013
    Messages:
    1,902
    Likes Received:
    520
    Trophy Points:
    0
    Gender:
    Male
    Location:
    Under Your Bed
    Console:
    Xbox
    Nice post ADDZ ;)
     

Share This Page

Close