Hear is The Code


First Go The Imports
Imports PackageIO
Public Class Form1

'Then Goes Where The File String Is Going To Be Saved

Private Filepath As String = Nothing

'Now The Private Subs
Private Sub ReadFile(ByVal filepath As String)

Dim Read As New PackageIO.Reader(filepath, Endian.Big)

Read.Position = &H0 'Put What Ever Offset Hear

TextBoxX1.Text = Read.ReadInt32 'So It Can Read Value Of Offset

End Sub

'Now For The Write Code

Private Sub Writer(ByVal filepath As String)

Dim Write As New PackageIO.Writer(filepath, Endian.Big)

Write.Position = &H0 ' Write The same Offset As The One Above So It

Can Be Written To

Write.WriteInt32(CInt(TextBoxX1.Text))

End Sub

Private Sub ButtonItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem2.Click

Now For Loading The File

Try

Dim OPEN As New OpenFileDialog

If OPEN.ShowDialog Then

Filepath = OPEN.FileName

ReadFile(Filepath)

End If

Catch ex As Exception

End Try

End Sub

Private Sub ButtonItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem3.Click

Try

Writer(Filepath)

Catch ex As Exception

End Try
'
Thats The Write Code
'
Please Enjoy

'Exclusivly Made For tgc360.com

Made By Xboxhunter199962

End Sub

End Class

Download Tut

nice post dude i would try but im not that smart