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
Awesome tutorial mate this would have been so helpful to me about a week ago as I was just starting out with editors myself I am sue this will help many people +Rep Also I have moved this to the VB section as we now have a place for tutorials and such like this
Oh geese, that's a whole lotta code that does a whole lotta nothing. Check it... [media]http://www.youtube.com/watch?v=AlYMF965XAM[/media]
This is what he does, follows me around to forums, finds me on the topic list and then replies with "OMG I AM SO PRO". Welcome to the life of Warmonger.
Yea, welcome to the life of Iamcoolz. Copy and paste a few lines of code, gives a very brief (horrible) explanation of what it does. And expects everyone to bow down to him like he's some programming god. Notice how you do it here, but not on other sites *cough cough*. Indeed, here's a snippet of code now go learn how to use it. Nothing more than what I would expect from Iamcoolz.