Writing your own Visual Basics (v5 or v6) Trainer

How To Make Trainers With Visual Basic 5/6
By TheRedEye

Stamina address has been updated according to the new addresses!

Tools needed:
1. Visual Basic 5/6.
2. Some working addresses.
3. Brain.

Necessary Knowledge:
1. Basic programming (really basic)
2. Know what addresses means, how they work and how to find them.

Part One - simple edit any address.
Open VB, choose standard EXE and press "open".
On the Forms window press right click and choose "Add" -> "Module" then press "Open".
Now copy this long code into the module window:

Code:

Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long

'API Declaration
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Public Function WriteAByte(gamewindowtext As String, address As Long, value As Byte)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = FindWindow(vbNullString, gamewindowtext)
If (hwnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 1, 0&
CloseHandle hProcess
End Function

Public Function WriteAnInt(gamewindowtext As String, address As Long, value As Integer)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = FindWindow(vbNullString, gamewindowtext)
If (hwnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 2, 0&
CloseHandle hProcess
End Function

Public Function WriteALong(gamewindowtext As String, address As Long, value As Long)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = FindWindow(vbNullString, gamewindowtext)
If (hwnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 4, 0&
CloseHandle hProcess
End Function

Public Function ReadAByte(gamewindowtext As String, address As Long, valbuffer As Byte)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = FindWindow(vbNullString, gamewindowtext)
If (hwnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 1, 0&
CloseHandle hProcess
End Function

Public Function ReadAnInt(gamewindowtext As String, address As Long, valbuffer As Integer)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = FindWindow(vbNullString, gamewindowtext)
If (hwnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 2, 0&
CloseHandle hProcess
End Function

Public Function ReadALong(gamewindowtext As String, address As Long, valbuffer As Long)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = FindWindow(vbNullString, gamewindowtext)
If (hwnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 4, 0&
CloseHandle hProcess
End Function

(This code is an API statement that allowing the VB to edit memory addresses)
After you copied it close the Module window.

Writing new value
Now take the control "CommandButton" from the General tab.
Make a button in the middle of the form it will called Command1.
Double click on it and write this code:

Code:

Call WriteALong("WarRock", &H926134, 1)

So it will look like this:

Code:

Private Sub Command1_Click()
    Call WriteALong("WarRock", &H926134, 1)
End Sub

Explanation: Call WriteALong("xxxx", &Hyyyy, z)
Call WriteALong â€“ calling the function to write new values
Xxxx â€“ the game name (in this case Warrock)
&Hyyyy - &H is for VB to know that the number next to it (yyyy) is in hex. So yyyy is our address in this case it GPS address - 00926134 (Warning! GPS is detected donâ€™t try it!)
Z â€“ is the value we want to change to.

Close the window.
Now you can run the software with the "Start" button that look like "Play" that placed above. You will see your form with the button and when you will press on the button, GPS will be active until u will get detected. (Try it with noob account)
If you want turn off button make new button and the value to 0 in stand of 1.

Reading address value
Now if we want to see what value some address contain you need to read it and then decide how to use the value.
For exmple we will take the Stamina address 007D9120.
Make another button the name will be "Command2".
From General tab take "TextBox" and make a textbox on your form next to the Command2 button, it will be "Text1".
Double click on Command2 and write:

Code:

Dim Value1 As Long
Call ReadALong("WarRock", &H7D9120, Value1)
Text1.Text = Value1

This code will take the 007D9120 value and will put it into "Value1" that we state him with "Dim" and then "Text1" will get the "Value1" value, so we will see it on screen.
Run the program and you will see that when your stamina is full the value is 1120403456, so we will need to freeze this value in order to get Unlimited Stamina.

Part Two â€“ freeze an address.
In this part we will learn how to freeze the Stamina address.
First we will need a timer that will freeze the address.
Get the "Timer" control from the General tab and add it to your form it will call "Timer1".
Now make 2 other buttons in one of them double click and write:

Code:

Timer1.Interval = 1

And in the other double click and write:

Code:

Timer1.Interval = 0

Double click on Timer1 and write:

Code:

Call WriteALong("WarRock", &H7D9120, 1120403456)

Now run the program and when you will press on the first button the Stamina will freeze and when you will press on the second button the stamina will back to normal.

Now you can make your own hack!
Please donâ€™t copy it!

Soon I will add how to use addresses with pointers.
That it for now, Enjoy!

Copyright
TheRedEye.

Credits
Satan website - for the API statement.

Sticky it please..

If I helped you and you want to help me back Because all the addresses has been changed i will welcome your help with more addresses..
theredeyes@gmail.com
Xfire: thekabab
or PM me with some nice addresses and pointers tnx
Dont be a leecher! and help me 2 with hard addresses!
and give me a reputation!
over here

looks like a good tut maybe ill try it later thanks mate

it is..
enjoy!

Very nice TUT. Im in the middle of it right now

nice

hmmm good details on "how to..." i like this, im almost done with it, thanks dude!

Nice work. Looks kind of easy too. I got a question though. If i made a trainer using this it would eventually become detected right? when that happens do I just edit certain strings or something to make it undetected? Kind of like how the UCE worked? I'm gonna try making this once I find my Visual Basics CD to install it.

Oh yeah, and I'm looking forward to reading your next tutorial w/ pointers. Also could you maybe talk about how to add hot keys?

Thanks man, i hope this gets Stickied

Originally Posted by Stranger00

about the detected i dont know cause my hack never got detected!
but i think u just need to edit the name and the file size and stuff like the uce

i will add Hotkeys and Pointers, don't worry!
should i add more thing to this post? or to another?

Whatever is easier for you I guess. I'm making a trainer, but I gotta find all the addresses again.

Stickey !! ^^

I am really going to use it ^^ Thanks a lot.. and go to your CP, i left a rep point ;D read it ;DDDD

EDIT:

Originally Posted by Stranger00

This can Prolly also be solved by just changing the process name of the hack, Like name it Iexplorer.exe or erhm... svchost.exe... a PC cant live without that,, So they cant close your WR down for that..
WR scans your procces list for hacks..

think i'll make a try later^^

Vary good work

Thanks a lot, now i try it

Redeye, put this tut into like photoshop or something and use a water mark all over the page, then save it, so it makes it kinda hard to deny if someone leached it because they would either have to type it out themself or put the picture on, which then everyone would know it was done by you

Originally Posted by iverson954360

if it meant to be leach, it will leach..
i did it for the freedom of information.
and if some dame noob guy will take it
he can push his fingers into his a55555.
you all know who made it and that what is impotent

Well, You're not english are you..? I cant notice, But i do understand ^^

I agree with you, we prolly all know this is made by you, If some noob takes it, Let him ^^ He gains nothing..

Writing your own Visual Basics (v5 or v6) Trainer

Code:

Public Const PROCESS_ALL_ACCESS = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long

'API Declaration
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long

Public Function WriteAByte(gamewindowtext As String, address As Long, value As Byte)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = FindWindow(vbNullString, gamewindowtext)
If (hwnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 1, 0&
CloseHandle hProcess
End Function

Public Function WriteAnInt(gamewindowtext As String, address As Long, value As Integer)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = FindWindow(vbNullString, gamewindowtext)
If (hwnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 2, 0&
CloseHandle hProcess
End Function

Public Function WriteALong(gamewindowtext As String, address As Long, value As Long)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = FindWindow(vbNullString, gamewindowtext)
If (hwnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
WriteProcessMemory phandle, address, value, 4, 0&
CloseHandle hProcess
End Function

Public Function ReadAByte(gamewindowtext As String, address As Long, valbuffer As Byte)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = FindWindow(vbNullString, gamewindowtext)
If (hwnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 1, 0&
CloseHandle hProcess
End Function

Public Function ReadAnInt(gamewindowtext As String, address As Long, valbuffer As Integer)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = FindWindow(vbNullString, gamewindowtext)
If (hwnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 2, 0&
CloseHandle hProcess
End Function

Public Function ReadALong(gamewindowtext As String, address As Long, valbuffer As Long)
Dim hwnd As Long
Dim pid As Long
Dim phandle As Long
hwnd = FindWindow(vbNullString, gamewindowtext)
If (hwnd = 0) Then
MsgBox "The Game Is Not Working", vbCritical, "Error"
End
Exit Function
End If
GetWindowThreadProcessId hwnd, pid
phandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
If (phandle = 0) Then
MsgBox "Can't get ProcessId", vbCritical, "Error"
Exit Function
End If
ReadProcessMem phandle, address, valbuffer, 4, 0&
CloseHandle hProcess
End Function

Code:

Call WriteALong("WarRock", &H926134, 1)

So it will look like this:

Code:

Private Sub Command1_Click()
    Call WriteALong("WarRock", &H926134, 1)
End Sub

Code:

Dim Value1 As Long
Call ReadALong("WarRock", &H7D9120, Value1)
Text1.Text = Value1

Code:

Timer1.Interval = 1

And in the other double click and write:

Code:

Timer1.Interval = 0

Double click on Timer1 and write:

Code:

Call WriteALong("WarRock", &H7D9120, 1120403456)

looks like a good tut maybe ill try it later thanks mate

it is..
enjoy!

Very nice TUT. Im in the middle of it right now

nice

hmmm good details on "how to..." i like this, im almost done with it, thanks dude!

Thanks man, i hope this gets Stickied

Originally Posted by Stranger00

Whatever is easier for you I guess. I'm making a trainer, but I gotta find all the addresses again.

Stickey !! ^^

I am really going to use it ^^ Thanks a lot.. and go to your CP, i left a rep point ;D read it ;DDDD

EDIT:

Originally Posted by Stranger00

think i'll make a try later^^

Vary good work

Thanks a lot, now i try it

Originally Posted by iverson954360

Well, You're not english are you..? I cant notice, But i do understand ^^

I agree with you, we prolly all know this is made by you, If some noob takes it, Let him ^^ He gains nothing..

Writing your own Visual Basics (v5 or v6) Trainer

Post a Reply

Similar Threads

Tags for this Thread

Writing your own Visual Basics (v5 or v6) Trainer

Post a Reply

Similar Threads

Tags for this Thread