[Other] Making tools in Visual Basic 2008

pokemonhacker12345 · #1 August 6th, 2009, 09:43 PM

Well, I don't know if anyone else figured this out or not.
So I will give it a shot!

Credit to Darthatron for VB 6 Codes.
(http://pokecommunity.com/showthread.php?t=132233)

Now let's begin!
First of all you need the vb 2008 Compatible Modules.
Get them Here : (http://www.mediafire.com/?tzkvduiomfn)

Now to begin!

At the top of your code put this.

Code:

Option Strict Off
Option Explicit On
Imports VB = Microsoft.VisualBasic

I don't know what it does but it works XD

Right under that you should have something like this.

Code:

Friend Class Form1
    Inherits System.Windows.Forms.Form
    Dim LoadedROM As String

That will assign LoadedROM As a string...

now... I assume you have all of the buttons and dropdowns added...
For the open button use this:

Code:

Dim cdgOpen As clsCommonDialog
        cdgOpen = New clsCommonDialog
        LoadedROM = cdgOpen.ShowOpen(Me.Handle.ToInt32, "Open Pokemon NDS ROM...",  , "NDS ROMs (*.nds)|*.nds")
        cmbpoke1.SelectedIndex = CShort("&H" & ReverseHEX(ReadHEX(LoadedROM, 2855304, 2)))
        cmbpoke2.SelectedIndex = CShort("&H" & ReverseHEX(ReadHEX(LoadedROM, 2855308, 2)))
        cmbpoke3.SelectedIndex = CShort("&H" & ReverseHEX(ReadHEX(LoadedROM, 2855312, 2)))
        Text1.Text = ReadHEX(LoadedROM, 12, 4)
        Text2.Text = ReadHEX(LoadedROM, 0, 9)
        Form3.Text1.Text = ReadHEX(LoadedROM, 352, 32500)

Save button:

Code:

WriteHEX(LoadedROM, 2855304, ReverseHEX(VB.Right("0000" & Hex(cmbpoke1.SelectedIndex), 4)))
        WriteHEX(LoadedROM, 2855308, ReverseHEX(VB.Right("0000" & Hex(cmbpoke2.SelectedIndex), 4)))
        WriteHEX(LoadedROM, 2855312, ReverseHEX(VB.Right("0000" & Hex(cmbpoke3.SelectedIndex), 4)))

And there you have it! The code will compile and function in visual basic 2008!!!

Good Luck!

mark3289 · #2 August 31st, 2009, 10:30 AM

but what does that actually do?

OM3GA Umbr30n · #3 September 15th, 2009, 11:45 PM

Thanks for this it should help me for my tool making :D

This epic failed loads of bugs

correction i epic failed XD

Correction Again Epic Fail imma stick to Visual Basic 6.0 i found a link!
Its in Darthatrons thread!

.Seth · #4 September 20th, 2009, 06:31 PM

Care to explain how to add the clsCommonDialong and VB6 Hex editing functions?

pokemonhacker12345 · #5 September 23rd, 2009, 04:12 AM

I forget how you do. Just drag and drop them into the project area. It worked before I am not sure if this works anymore. If you can figure it out go ahead :)

Wichu · #6 September 23rd, 2009, 06:33 AM

Project -> Add from file..., I think.
The hex editing functions code didn't work for me, by the way. In the end, I just started everything from scratch.

And yes, in a tutorial, you have to say exactly what the code does. Posting a bunch of code, and telling us to add it to our program, is useless if we don't know what it's for.

justinufer · #7 September 28th, 2009, 09:57 AM

It's a Starter Editor for D/P. I think you should update the post and put that in it so people know.

justinufer · #8 September 28th, 2009, 11:00 AM

Also you fix this up a bit. I'm not trying to be a anyoing or anything I'm just trying to help with this.

One thing you got to name the Combo boxs cmbpoke1 cmbpoke2 cmbpoke3 the (name) of those things have tobe each those.

And other things problems with it you should double check it.

The one with the errors that got the small amout is connected with the one with Friend class at the top. And the other two are connected.

OM3GA Umbr30n · #9 September 28th, 2009, 04:15 PM

I get the exact same errors

justinufer · #10 September 28th, 2009, 11:50 PM

I have fixed it up a bit. I have attached pics again for the reasons. And yes this is my first time at doing this kind of stuff but I'm am a very fast learner and good at noticing things. I have also added my file project for anyone who wants to look at it. I am only doing this so i can learn and everyone else.