Help Please

Also my progress bar doesnt seem to work....

 

bump lol

 

Try this

Spoiler

Imports PackageIO

Public Class Form1

Dim open As New OpenFileDialog
Dim filepath As String = Nothing

Private Sub Button1_Click(sender As Object, e As EventArgs)
Dim OFD As New OpenFileDialog
OFD.Title = "Open a file..."
OFD.Filter = "*file*|*file*"
If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
filepath = OFD.FileName
ProgressBar1.Value = 0
ProgressBar1.Increment(25)
readfile()
End If
End Sub

Public Sub readfile()
Try
Dim reader As New PackageIO.Reader(filepath, Endian.Big)
TextBox1.Enabled = True
Button2.Enabled = True
ProgressBar1.Increment(25)
reader.Position = &H5684FF00
TextBox1.Text = reader.ReadInt32
ProgressBar1.Increment(25)
Catch ex As Exception
MessageBox.Show("Your File Is Bad Please Give A Nother Save !!!!")
TextBox1.Enabled = False
Button2.Enabled = False
End Try
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
ProgressBar1.Value = 0
Try
Dim writer As New PackageIO.Writer(filepath, Endian.Big)
ProgressBar1.Increment(25)
writer.Position = &H5684FF00
ProgressBar1.Increment(25)
writer.WriteInt32(TextBox1.Text)
ProgressBar1.Increment(25)
MsgBox("Saved Make Sure To Rehash And Resign using 360Revolution ")
Catch ex As Exception
MsgBox("We Can't Save Your File !", MsgBoxStyle.OkOnly, "Sorry")
End Try
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ProgressBar1.Maximum = 75
ProgressBar1.Value = 0
End Sub
End Class

 

that worked but now it wont open the gamesave,lol, thank you very much tho

 

Change or remove the filter OFD.Filter = "gamesave name / type goes here"

 

Tried both, didnt open.

 

Heres what i tried for the open button after your suggestions

Spoiler

Private Sub Button1_Click(sender As Object, e As EventArgs)
Dim OFD As New OpenFileDialog
OFD.Title = "Open Ze Gamesave"
OFD.Filter = "Gamesave (*.*)|*.*"
If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
filepath = OFD.FileName
ProgressBar1.Value = 0
ProgressBar1.Increment(25)
readfile()
End If
End Sub

 

Try

OFD.Filter = "*|*"

Or just take out that whole line.