Tutorial - How to use Visual Basics 6 (vb6) for WarRock hacks

[Oneirish]

ive seen sooooo many people saying how to use vb6 or how to make hacks or whatever. and causes alot of spam. so i hope this guide will just make that quite down...

PLEASE REP IF I HELPED AND RATE POST!

and so we start...
WARNING!!!!REMEMBER THAT THE ADDRESSES MAY BE DETECTED... CHANGE THEM

These are addresses can be found anywhere and remember that the module can be too... but the addresses will be found when you add a cheat to the timer in the first hack. it will be the &Hsomething, something but leave the &H

to start:

YOUR GOING TO NEED:
-Visual Basics 6 (vb6)
-A little knowledge on programing


FIRST...
You are going to need to open Visual Basics 6. Your going to press Project > Add Module... click MODULE and press OPEN

Add this Module

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
Public Function ReadAFloat(gamewindowtext As String, address As Long, valbuffer As Single)
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

Public Function WriteAFloat(gamewindowtext As String, address As Long, value As Single)
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

Once You have added this just close it cause it will automatically save

STEP 2
In visual basic In the general tab at the left side of visual basic. Press Command Button

A new command button should show up in your application area..

After you made the button you will want to make it say something else than Command1. (make it say the hack your going to put in EXAMPLE: Unl. Stamina On)

Click on the button once so it is highlighted. In the Properties box
Change the Caption of the button. Which is Located on the bottom right. to the right of the word Caption you will see Command1 change that.

So now you made a button which does nothing yet. So were ganna start off with Unl. Stamina.

Before you add the codes on the right menu that shows a clock symbal your going to click on that and draw it on the map in the middle.

your going to need to double click the clock and add this code:

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

WARNING!!!! you are going to need to change "7DB120" leave &H and change "1120403456" to the current address
you can find these addresses all over but get the current one or else it is detected and you will be banned from WarRock!!!

3rd-ish
your going to make Another button Named Unl. Stamina Off
-Remember have one on and one off

so far your going to have:
two buttons and a timer

Double click your first button (Unl. Stamina On)

Type in this code:

Timer1.Interval = 1

4th-ish
Double click your second button (Unl. Stamina Off)

type in this code:

Timer1.Interval = 0

how to do these with other hacks is:
(timer name).interval = (1/0)
1 = ON
0 = OFF

________________
Thats all you had to do for Unl. Stamina hack...
REMEMBER KEEP YOUR BUTTONS ORGANIZED
but of course your going to need more...

Another Popular one is having the shotgunchester...

Make a NEW button and name it (Winchester or whatever...)

Add this code

Dim shotgun As Long
Dim shotgun1 As Long
Call ReadALong("Warrock", &H896E28, shotgun)
shotgun1 = shotgun + &H4C
Call WriteALong("Warrock", shotgun1, 34)

Somehow 34 means shotgun and theres a list from 72 but somehow all the guns dont do any damage except the winchester...
________________________________
Another Good Hack is No Spreed hack

you dont have to do this one if your fine with the above hacks... but everybody wants more.

REMEMBER THIS HACK IS KIND OF A HASSLE

FIRST!!!!
Your going to Make 8 new timers!!!

OPEN FIRST ONE AND TYPE:

Call WriteALong("WarRock", &H90DC6F, 0)

OPEN SECOND TIMER AND TYPE:

Call WriteALong("WarRock", &H90DC70, 0)

OPEN THIRD TIMER AND TYPE:

Call WriteALong("WarRock", &H90DC71, 0)

OPEN FOURTH TIMER AND TYPE:

Call WriteALong("WarRock", &H90DC72, 0)

OPEN FIFTH TIMER AND TYPE:

Call WriteALong("WarRock", &H90DC73, 0)

OPEN SIXTH TIMER AND TYPE:

Call WriteALong("WarRock", &H90DC77, 0)

OPEN SEVENTH TIMER AND TYPE:

Call WriteALong("WarRock", &H90DC78, 0)

OPEN EIGHTH TIMER AND TYPE:

Call WriteALong("WarRock", &H90DC79, 0)

2nd......
Add a new button and name it (for example no spreed on)

double click it and add this code:

Timer2.Interval = 1
Timer3.Interval = 1
Timer4.Interval = 1
Timer5.Interval = 1
Timer6.Interval = 1
Timer7.Interval = 1
Timer8.Interval = 1
Timer9.Interval = 1

MAKE A NEW BUTTON AND NAME IT (of course no spreed off)

double click that and add this code:

Timer2.Interval = 0
Timer3.Interval = 0
Timer4.Interval = 0
Timer5.Interval = 0
Timer6.Interval = 0
Timer7.Interval = 0
Timer8.Interval = 0
Timer9.Interval = 0

THATS ALL THERE IS.... your probably thinking finally.....
________________________
ANOTHER ONE THAT EVERYONE WANTS IS
--SUPERJUMP--

Make a new button and name it (for example Superjump)

there is not going to be a timer for this hack

double click that and add this code:

Dim jump As Long
Dim jump1 As Long
Dim jump3 As Single
Call ReadALong("WarRock", &H896E28, jump)
jump1 = jump + &H180
jump3 = 1500
Call WriteAFloat("WarRock", jump1, jump3)

_____________________________

REMEMBER go to File > Save Project cause if you lose it your messed. plus if does get detected you can easily edit this one!!!!

Then go to File > Make Project1.exe

save it and open it when your in WarRock!!!!!!!!!!!!

REMEBER CHANGE THE CODES BECAUSE THEY CAN BE DETECTED!!! JUST FIND ADDRESSES... IF I HAVE SOME ILL POST AND UPDATE THIS IF THIS BECOMES STICKY