Help Please

BiGBudZ Aug 19, 2013

  1. BiGBudZ

    BiGBudZ SiR Sm0k3s ALOT
    0/47

    Joined:
    Jul 27, 2013
    Messages:
    226
    Likes Received:
    53
    Trophy Points:
    0
    Gender:
    Male
    Location:
    New York
    Console:
    Xbox
    I cant seem to figure out why this wont build.

    Any help would be appreciated....

    Code in the spoiler...

    Imports PackageIO
    Public Class Form1
    Dim open As New OpenFileDialog
    Dim filepath As String = open.FileName
    Private Sub ProgressBar1_Click(sender As Object, e As EventArgs) Handles ProgressBar1.Click
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    If open.ShowDialog = Windows.Forms.DialogResult.OK Then
    If ProgressBar1.Value = 100 Then
    Timer1.Start()
    filepath = open.FileName
    readfile()
    End If
    End Sub
    Public Sub readfile()
    Try


    Dim reader As New PackageIO.Reader(filepath, Endian.Big)
    TextBox1.Enabled = True
    Button2.Enabled = True
    reader.Position = &H5684FF00
    TextBox1.Text = reader.ReaderInt32
    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
    Try
    Dim writer As New PackageIO.Writer(filepath, Endian.Big)
    writer.Position = &H5684FF00
    writer.WriterInt32(TextBox.Text)
    MessageBox("Saved Make Sure To Rehash And Resign using 360Revolution :)")
    Catch ex As Exception
    MessageBox("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
    Timer1.Stop()
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    ProgressBar1.Increment(2)
    End Sub
    End Class
     
  2. BiGBudZ

    BiGBudZ SiR Sm0k3s ALOT
    0/47

    Joined:
    Jul 27, 2013
    Messages:
    226
    Likes Received:
    53
    Trophy Points:
    0
    Gender:
    Male
    Location:
    New York
    Console:
    Xbox
    Also my progress bar doesnt seem to work....
     
  3. BiGBudZ

    BiGBudZ SiR Sm0k3s ALOT
    0/47

    Joined:
    Jul 27, 2013
    Messages:
    226
    Likes Received:
    53
    Trophy Points:
    0
    Gender:
    Male
    Location:
    New York
    Console:
    Xbox
    bump lol
     
  4. MastaOfEvil

    MastaOfEvil Dev XPG Developer Lifetime Gold TeamXPG
    0/47

    Joined:
    Dec 21, 2011
    Messages:
    661
    Likes Received:
    326
    Trophy Points:
    0
    Gender:
    Male
    Console:
    Xbox
    Try this
    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
     
    • Like Like x 1
  5. BiGBudZ

    BiGBudZ SiR Sm0k3s ALOT
    0/47

    Joined:
    Jul 27, 2013
    Messages:
    226
    Likes Received:
    53
    Trophy Points:
    0
    Gender:
    Male
    Location:
    New York
    Console:
    Xbox
    that worked but now it wont open the gamesave,lol, thank you very much tho ;)
     
  6. MastaOfEvil

    MastaOfEvil Dev XPG Developer Lifetime Gold TeamXPG
    0/47

    Joined:
    Dec 21, 2011
    Messages:
    661
    Likes Received:
    326
    Trophy Points:
    0
    Gender:
    Male
    Console:
    Xbox
    Change or remove the filter OFD.Filter = "gamesave name / type goes here"
     
  7. BiGBudZ

    BiGBudZ SiR Sm0k3s ALOT
    0/47

    Joined:
    Jul 27, 2013
    Messages:
    226
    Likes Received:
    53
    Trophy Points:
    0
    Gender:
    Male
    Location:
    New York
    Console:
    Xbox
    Tried both, didnt open.
     
  8. BiGBudZ

    BiGBudZ SiR Sm0k3s ALOT
    0/47

    Joined:
    Jul 27, 2013
    Messages:
    226
    Likes Received:
    53
    Trophy Points:
    0
    Gender:
    Male
    Location:
    New York
    Console:
    Xbox
    Heres what i tried for the open button after your suggestions


    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
     
  9. MastaOfEvil

    MastaOfEvil Dev XPG Developer Lifetime Gold TeamXPG
    0/47

    Joined:
    Dec 21, 2011
    Messages:
    661
    Likes Received:
    326
    Trophy Points:
    0
    Gender:
    Male
    Console:
    Xbox
    Try

    OFD.Filter = "*|*"

    Or just take out that whole line.
     

Share This Page

Close