Tool coming along just a bit stuck

Jet2020 Feb 20, 2012

  1. Je

    Jet2020 HeXtra Creator XPG Developer
    0/47

    Joined:
    Feb 13, 2012
    Messages:
    146
    Likes Received:
    24
    Trophy Points:
    0
    Console:
    Xbox
    This is my first time of using PackageIO and i need a bit of help please


    this game is for Koa


    this is what im getting

    [​IMG]

    + this is my current code

    [
    Code:
    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.Title = "Open An Xbox 360 Gamesave"
    		Open.ShowDialog()
    		FilePath = Open.FileName
    		ReadFile()
    	End Sub
    	Private Sub ReadFile()
    		Dim Reader As New PackageIO.Reader(FilePath, PackageIO.Endian.Little)
    		Reader.Position = &HF3E83
    		TextBox1.Text = Reader.ReadSingle
    		Reader.Position = &H81924
    		TextBox3.Text = Reader.ReadSingle
    	End Sub
    	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    		Dim Writer As New PackageIO.Writer(FilePath, PackageIO.Endian.Little)
    		Writer.Position = &HF3E83
    		Writer.WriteSingle(TextBox2.Text)
    		Writer.Position = &H81924
    		Writer.WriteSingle(TextBox4.Text)
    		MsgBox("Gamesave successfully modded!")
    	End Sub
    
    End Class
    
     

Share This Page

Close