[VB]Starting Example Tool

Basically, what this is? It is a starting point for people who want to make their own mod tool. But it does the following..

• Opens files
• Saves files
• Has information message box when clicking the 'about' button.

Picture of the tool:

Spoiler

Explanation of the code:
Open Button:

Spoiler

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
		Dim Open As New OpenFileDialog
		Open.Filter = "Gamesave (*.*)|*.*"
		Open.Title = "Open Ze Gamesave"
		If Open.ShowDialog = Windows.Forms.DialogResult.OK Then
			FilePath = Open.FileName
			ReadFile(FilePath)
		Else
			Return
		End If
	End Sub

Open.Filter = "Gamesave (*.*)|*.*" - Allows them to open a file with the .gamesave extension or any other extensions, except EXE and so on.

Open.Title = "Open Ze Gamesave" - This is the title of the window that is launched when you click open.

Reader Position:

Spoiler

Code:

Public Sub ReadFile(ByVal FilePath As String)
		Dim Reader As New PackageIO.Reader(FilePath, PackageIO.Endian.Big)
		Reader.Position = &HD032
		NumericUpDown1.Text = Reader.ReadInt32
	End Sub

Reader.Position = &HD032 - Reads the hex offset of D032

Writer Position:

Spoiler

Code:

Public Sub WriteFile(ByVal FilePath As String)
		Dim Writer As New PackageIO.Writer(FilePath, PackageIO.Endian.Big)
		Writer.Position = &HD032
		Writer.WriteInt32((NumericUpDown1.Text))
	End Sub

Writer.Position = &HD032 - Writes what you input in the numericupdown bar into that specific hex offset of D032

Save Button:

Spoiler

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
WriteFile(FilePath)
MsgBox(("File is now saved. *Rehash and Resign it now*"))
ReadFile(FilePath)
Dim Reader As New PackageIO.Reader(FilePath, PackageIO.Endian.Big)
Reader.Position = &H430
NumericUpDown1.Text = Reader.ReadInt32
Catch ex As Exception
MsgBox("Error, while writing the file. Try again.", MsgBoxStyle.Critical, "")
End Try
End Sub

MsgBox("Error, while writing the file. Try again.", MsgBoxStyle.Critical, "") - In case of an error, this is the message it will put out.

MsgBox(("File is now saved. *Rehash and Resign it now")) - This is the message it will put out if it was a success and no issues occured.

About Button:

Spoiler

Code:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
		MsgBox("Made by Iamcoolz" & vbCrLf & "http://www.xpgamesaves.com")
	End Sub

MsgBox("Made by Iamcoolz" & vbCrLf & "http://www.xpgamesaves.com") - Message displayed when clicking the about button.

Things highled in red are the places where you can edit

Now again, this is just a starter position for those who want to honestly make their own mod tool. Feel free to edit it around and everything.

Virus Scan:
http://virusscan.jotti.org/en/scanresult/4c10779a199124c6bab30ab9711cb252df2296d1

Download:
http://adf.ly/7VE5y

Rar Password:
xpgamesaves.com

Enjoy XPG'ers<3
-Iamcoolz