[TuT] Making a trainer
[TuT] Making a trainer
This is a tutorial for trainers. 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 don't have any pointers.
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.*********.com/?4s3t9veb8o2 (M-E-D-I-A-F-I-R-E)
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 paste this (change WarRock to process name):
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.:
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:
If you want timer1 to be disabled then add this code to the button:
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.
P.S If you get any warnings about the return value thingy, double click on it. And above "End function", just add "Return Nothing"
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.*********.com/?4s3t9veb8o2 (M-E-D-I-A-F-I-R-E)
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 paste 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
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)
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)
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
Code:
Timer1.Enabled = False
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.
P.S If you get any warnings about the return value thingy, double click on it. And above "End function", just add "Return Nothing"
Followed the guide, everything. BUT HOW do i add values and frezees? Exampel in this post:
http://www.mpgh.net/forum/164-combat...addresses.html
PM, if you can help me!
http://www.mpgh.net/forum/164-combat...addresses.html
PM, if you can help me!
Originally Posted by Zoom
Followed the guide, everything. BUT HOW do i add values and frezees? Exampel in this post:
http://www.mpgh.net/forum/164-combat...addresses.html
PM, if you can help me!
http://www.mpgh.net/forum/164-combat...addresses.html
PM, if you can help me!
I am a beginning of VB and I would like to learn more. This 'thingy' could help me.
No outside links iOwnage, remember that when you bring the tuts you have written on your site over here 
Originally Posted by legendaryhack b leet
No outside links iOwnage, remember that when you bring the tuts you have written on your site over here
idc
...Don´t understand, explain easier
this module maker was for warrock hacks but now it's detected -.-
Thank you, this worked.
This thread is closed for replies.
