Making tools in Visual Basic 2008

[pokemonhacker12345]

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.
Option Strict Off
Option Explicit On
Imports VB = Microsoft.VisualBasicI don't know what it does but it works XD

Right under that you should have something like this.
Friend Class Form1
Inherits System.Windows.Forms.Form
Dim LoadedROM As StringThat will assign LoadedROM As a string...

now... I assume you have all of the buttons and dropdowns added...
For the open button use this:
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:
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]

but what does that actually do?

[OM3GA Umbr30n]

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]

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

[pokemonhacker12345]

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]

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]

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

[justinufer]

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]

I get the exact same errors

[justinufer]

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.

[OM3GA Umbr30n]

wow this should help :D now to making my tools

Oh great the form is lost >.> i never win

[jpower8500]

could you make another tutorial(a better one)

[Gamer2020]

could you make another tutorial(a better one)

Use VB6 and follow this tutorial.
http://www.pokecommunity.com/showthread.php?t=132233

[P-troizépi]

The mediafire link is bad...

[darkdarkrai]

Could you post a tutorial of how to do this in Visual basic 2010?

[NeoDragonoid]

>>Media fire error.... it dont work.