[TuT] Making a trainer with VB..

First of all. This is completely leeched off PGH. (Check my siggy, dun care if I gets banned) Enjoy.

Originally Posted by kyo

This is a spoonfed tutorial. It will have everything you'll need to make a trainer using VB 2008. You will need pointers from CE or MHS first. This is not recommended for you if you are not advanced in any of those.

First of all, you need to start a project.
File > New Project > Name your project > Ok

Now you should see "Form1". If you wanna rename it, right click > propertys. At the bottom rgiht corner, it should show "Text" which is it's name. Rename that.

For the next part, you'll need to add 2 new modules.
Here's a DL for a module maker - http://www.********e.com/?4s3t9veb8o2
Now open it up, and press on "Generate Fast Module"
After that, go to Project > Add new module - Under Module Module1, copy and paste the module there. And change WarRock to the process name.

Once again, go to Project > Add new Module. And copy and paaste this (change WarRock to process name):

Code:

'readdll
Public Function readdll(ByVal modulename As String)
Dim procmodule As ProcessModule
Dim constant1 As Integer
Dim constant2 As Long
Dim constant3 As Process() = Process.GetProcessesByName("WarRock")
If constant3.Length = 0 Then
Return 0
End If
For Each procmodule In constant3(0).Modules
If modulename = procmodule.ModuleName Then
constant1 = procmodule.BaseAddress
End If
Next
constant2 = constant1
Return constant2
End Function

Save both modules, and we'll continue on.
Go to View > Toolbox > All windows forms
So, select timer. And double click on it.
Then add this code if you have a pointer with a HEX.:

Code:

dim string1 as long
dim string2 as integer
string1 = readdll("cshell.dll")
string2 = "&H" + Hex(string1 + &H451014)
Call WriteLongPointer(string2, &H2C,1,2)

Code:

Add this code if you have a simple pointer without HEX:

	
		
			
			
				dim string1 as long
dim string2 as integer
string1 = readdll("cshell.dll") 'module of your address
string2 = "&H" + Hex(string1 + &H451014)
Call WriteMemory(string2,1,2)

WriteLongPointer = Replace this with the WriteLongPointer code in your module (should be on left side of module maker)
WriteMemory = Replace this with the WriteMemory code in your module (should be on left side of module maker)
cshell.dll = Module address
&H451014 = &H + address/pointer
&H2C = &H + your Offset
1 = value you want
2 = type of byte

Now that the timer part is done. You need buttons to enable then, go back to your toolbox and add a button.
If you want timer1 to be enabled then add this code to the button:

Code:

Timer1.Enabled = True

If you want timer1 to be disabled then add this code to the button:

Code:

Timer1.Enabled = False

To finish off building your trainer:
Go to File > Save All.
Go to Build > Build <APPLICATION NAME>

Building it will fail IF you have any errors in the error window (ignore warnings). There will always be an error popping up because of the module maker, feel free to use a different one.

[TuT] Making a trainer with VB..

Similar Threads

Tags for this Thread