Tutorial - How to use Visual Basics 6 (vb6) for WarRock hacksTutorial - How to use Visual Basics 6 (vb6) for WarRock hacks
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
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:
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:
4th-ish
Double click your second button (Unl. Stamina Off)
type in this code:
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 shotgun
chester...
Make a NEW button and name it (Winchester or whatever...)
Add this code
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:
OPEN SECOND TIMER AND TYPE:
OPEN THIRD TIMER AND TYPE:
OPEN FOURTH TIMER AND TYPE:
OPEN FIFTH TIMER AND TYPE:
OPEN SIXTH TIMER AND TYPE:
OPEN SEVENTH TIMER AND TYPE:
OPEN EIGHTH TIMER AND TYPE:
2nd......
Add a new button and name it (for example no spreed on)
double click it and add this code:
MAKE A NEW BUTTON AND NAME IT (of course no spreed off)
double click that and add this code:
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:
_____________________________
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
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
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)
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
Double click your second button (Unl. Stamina Off)
type in this code:
Timer1.Interval = 0
(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 shotgun
chester...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)
Dim shotgun1 As Long
Call ReadALong("Warrock", &H896E28, shotgun)
shotgun1 = shotgun + &H4C
Call WriteALong("Warrock", shotgun1, 34)
________________________________
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)
Call WriteALong("WarRock", &H90DC70, 0)
Call WriteALong("WarRock", &H90DC71, 0)
Call WriteALong("WarRock", &H90DC72, 0)
Call WriteALong("WarRock", &H90DC73, 0)
Call WriteALong("WarRock", &H90DC77, 0)
Call WriteALong("WarRock", &H90DC78, 0)
Call WriteALong("WarRock", &H90DC79, 0)
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
Timer3.Interval = 1
Timer4.Interval = 1
Timer5.Interval = 1
Timer6.Interval = 1
Timer7.Interval = 1
Timer8.Interval = 1
Timer9.Interval = 1
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
Timer3.Interval = 0
Timer4.Interval = 0
Timer5.Interval = 0
Timer6.Interval = 0
Timer7.Interval = 0
Timer8.Interval = 0
Timer9.Interval = 0
________________________
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)
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
but i like people who dont just worry bout themselves 
...
wer i cant lear haw too hack my english its not good byt i read..ok
