You are viewing our Forum Archives. To view or take place in current topics click here.
Mod Tool Tutorial Two!! (FALLOUT 3) (VB)
Posted:

Mod Tool Tutorial Two!! (FALLOUT 3) (VB)Posted:

TTG_Gold_Jake
  • TTG Destroyer
Status: Offline
Joined: Jun 25, 201013Year Member
Posts: 7,353
Reputation Power: 336
Status: Offline
Joined: Jun 25, 201013Year Member
Posts: 7,353
Reputation Power: 336
Welcome to my second tutorial on designing and making mod tools in VB.
What am I going to need?
Visual Basic 08/10
PackageIO: [ Register or Signin to view external links. ]
If you make this and distribute it to others, please credit me.
Lets start off.
Make a form that looks somewhat like this
[ Register or Signin to view external links. ]
Feel free to vary what it looks like, just make sure you have everything there.
Also, please not the textboxes I use are from DotNetBar, so remove the X in the name if you are using Normal Windows controls (Eg. DotNetBar name would be TextBoxX1 > Normal Name Textbox1)

After that, using the .dll I gave you a link to earlier, import it as a reference
And Put at the top (In the code area)

Imports PackageIO


Now under Form1 put this code
Dim X As String
    Dim projectdata As Object

It should now look like this
[ Register or Signin to view external links. ]

Now what are we going to do?
We are going to make a public sub!!!
Make a public sub that looks like this
[ Register or Signin to view external links. ]
For the lazy people
Public Sub ReadFile(ByVal X As String)


This is the code we are now going to place under the public sub
 Dim reader As New PackageIO.Reader(X, Endian.Big)
        reader.Position = &H23D231
        TextBoxX1.Text = reader.ReadInt32
        reader.Position = &H224D33
        TextBoxX2.Text = reader.ReadInt32
        reader.Position = &H223C6E
        TextBoxX3.Text = reader.ReadInt32
        reader.Position = &H22366E
        TextBoxX4.Text = reader.ReadInt32
        reader.Position = &H220068
        TextBoxX5.Text = reader.ReadInt32
        reader.Position = &H21C603
        TextBoxX6.Text = reader.ReadInt32
        reader.Position = &H218FE8
        TextBoxX7.Text = reader.ReadInt32
        reader.Position = &H626F3
        TextBoxX1.Text = reader.ReadInt32
        reader.Position = &H7AA9B
        TextBoxX9.Text = reader.ReadInt32
        reader.Position = &H13F3D
        TextBoxX10.Text = reader.ReadInt32


It should look like this now
[ Register or Signin to view external links. ]
Remember to remove the "X" if you aren't using DotNetBar controls
Now time to add some more code!!!!
Create a new Public sub called WriteFile
Like this
[ Register or Signin to view external links. ]
Public Sub WriteFile(ByVal X As String)

And add this code!
Dim writer As New PackageIO.Writer(X, Endian.Big)
        writer.Position = &H23D231
        writer.WriteInt32(TextBoxX1.Text)
        writer.Position = &H224D33
        writer.WriteInt32(TextBoxX2.Text)
        writer.Position = &H223C6E
        writer.WriteInt32(TextBoxX3.Text)
        writer.Position = &H22366E
        writer.WriteInt32(TextBoxX4.Text)
        writer.Position = &H220068
        writer.WriteInt32(TextBoxX5.Text)
        writer.Position = &H21C603
        writer.WriteInt32(TextBoxX6.Text)
        writer.Position = &H218FE8
        writer.WriteInt32(TextBoxX7.Text)
        writer.Position = &H626F3
        writer.WriteInt32(TextBoxX1.Text)
        writer.Position = &H7AA9B
        writer.WriteInt32(TextBoxX9.Text)
        writer.Position = &H13F3D
        writer.WriteInt32(TextBoxX10.Text)


It should look like this now
[ Register or Signin to view external links. ]

Once you've done that double click the button "Open" and put this code in
  Dim open As New OpenFileDialog
        open.Filter = "All Files (*.*)|*.*"
        If open.ShowDialog = Windows.Forms.DialogResult.OK Then
            Try
                X = open.FileName
                ReadFile(X)
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
            End Try
        End If

It should look like this
[ Register or Signin to view external links. ]

Now Double Click the save button and add this code
Try

            Me.WriteFile(Me.X)
            Interaction.MsgBox("File Saved! And Added To Rehash And Resign File Cue", MsgBoxStyle.Information, "")
        Catch ex As Exception
            projectdata.SetProjectError(ex)
            Dim exception As Exception = ex
            Interaction.MsgBox("Error", MsgBoxStyle.Critical, "")
            projectdata.ClearProjectError()
        End Try
    End Sub


Your now done!!
Thanks for reading

The following 3 users thanked TTG_Gold_Jake for this useful post:

Liquidity (09-04-2011), SovietGnome (02-16-2011), TheSeamenDemon (02-13-2011)
#2. Posted:
TTG_Gold_Jake
  • TTG Destroyer
Status: Offline
Joined: Jun 25, 201013Year Member
Posts: 7,353
Reputation Power: 336
Status: Offline
Joined: Jun 25, 201013Year Member
Posts: 7,353
Reputation Power: 336
jpk98 wrote MODDING IS **** GAY

uMad Bro?
Lol Ur just jelly of meh Josh xD
#3. Posted:
MatthewUK
  • Retired Staff
Status: Offline
Joined: Apr 08, 201014Year Member
Posts: 7,364
Reputation Power: 478
Status: Offline
Joined: Apr 08, 201014Year Member
Posts: 7,364
Reputation Power: 478
Even With All The Help To Make One, I Will Never Be Able Too!

Lol - Great TuT Jake
#4. Posted:
SoH
  • TTG Addict
Status: Offline
Joined: Jul 09, 201013Year Member
Posts: 2,874
Reputation Power: 129
Status: Offline
Joined: Jul 09, 201013Year Member
Posts: 2,874
Reputation Power: 129
I feel a sticky coming along
#5. Posted:
TTG_Gold_Jake
  • TTG Destroyer
Status: Offline
Joined: Jun 25, 201013Year Member
Posts: 7,353
Reputation Power: 336
Status: Offline
Joined: Jun 25, 201013Year Member
Posts: 7,353
Reputation Power: 336
Thanks for all the positive comments guys!
#6. Posted:
TTG_iKYLE
  • TTG Addict
Status: Offline
Joined: May 12, 201013Year Member
Posts: 2,302
Reputation Power: 230
Status: Offline
Joined: May 12, 201013Year Member
Posts: 2,302
Reputation Power: 230
HHAHA shity .net
vb6 for the win ;)
but nice tut m8
#7. Posted:
TheSeamenDemon
  • Resident Elite
Status: Offline
Joined: Aug 26, 201013Year Member
Posts: 272
Reputation Power: 11
Status: Offline
Joined: Aug 26, 201013Year Member
Posts: 272
Reputation Power: 11
thanks i can now add this to my AIO.
#8. Posted:
TTG_Gold_Jake
  • TTG Destroyer
Status: Offline
Joined: Jun 25, 201013Year Member
Posts: 7,353
Reputation Power: 336
Status: Offline
Joined: Jun 25, 201013Year Member
Posts: 7,353
Reputation Power: 336
TheSeamenDemon wrote thanks i can now add this to my AIO.


Credit me dude, seriously!
#9. Posted:
JoshUS
  • TTG Contender
Status: Offline
Joined: May 20, 201013Year Member
Posts: 3,135
Reputation Power: 136
Status: Offline
Joined: May 20, 201013Year Member
Posts: 3,135
Reputation Power: 136
Thanks, very helpful.
#10. Posted:
RDCA
  • TTG Contender
Status: Offline
Joined: Jul 12, 201013Year Member
Posts: 3,612
Reputation Power: 173
Status: Offline
Joined: Jul 12, 201013Year Member
Posts: 3,612
Reputation Power: 173
TTG_Gold_Jake wrote
TheSeamenDemon wrote thanks i can now add this to my AIO.


Credit me dude, seriously!
Lmao 5 dollars says he doesn't. But nice topic. Should help some people but you should explain the code more for other people.
Jump to:
You are viewing our Forum Archives. To view or take place in current topics click here.