Carb0neum (05-08-2008),chubkakes (05-12-2008),harmkiller (04-15-2009)
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:
WARNING!!!! you are going to need to change "7DB120" leave &H and change "1120403456" to the current addressCall 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:
4th-ishTimer1.Interval = 1
Double click your second button (Unl. Stamina Off)
type in this code:
how to do these with other hacks is: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 shotgunchester...
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...Dim shotgun As Long
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:
OPEN SECOND TIMER AND TYPE:Call WriteALong("WarRock", &H90DC6F, 0)
OPEN THIRD TIMER AND TYPE:Call WriteALong("WarRock", &H90DC70, 0)
OPEN FOURTH TIMER AND TYPE:Call WriteALong("WarRock", &H90DC71, 0)
OPEN FIFTH TIMER AND TYPE:Call WriteALong("WarRock", &H90DC72, 0)
OPEN SIXTH TIMER AND TYPE:Call WriteALong("WarRock", &H90DC73, 0)
OPEN SEVENTH TIMER AND TYPE:Call WriteALong("WarRock", &H90DC77, 0)
OPEN EIGHTH TIMER AND TYPE:Call WriteALong("WarRock", &H90DC78, 0)
2nd......Call WriteALong("WarRock", &H90DC79, 0)
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)Timer2.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:
THATS ALL THERE IS.... your probably thinking finally.....Timer2.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)
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
Last edited by Oneirish; 03-27-2008 at 01:15 AM.
Carb0neum (05-08-2008),chubkakes (05-12-2008),harmkiller (04-15-2009)
March 21, 2008 addresses
I WILL UPDATE JUST NEED TO FIND NEWER
Player Pointer - 136A0E0
StaminaOffset - 288
No Recoil 1 offset - 02D8
No Recoil 2 offset - 02DC
No Recoil 3 offset - 02E0
NFD offset - 260
Superjump offset - 178
Spawn Address 1 - 10C3A94
Spawn Address 2 - D8C1F0
Spawn Address 3 - 10C3A9C
Unlock Slots - D8C958
No Bounds 1 - D8C270
No Bounds 2 - D8C278
Fast Heal - B0F7B4
Fast Repair - B0F7B8
Fast Flag - B0F7BC
Fast Ammo - B0F7C0
Scope - B0F7AA
Vechicle GPS - B0F7D1
Player Boxes - B0F7D2
Triggerbot - 8FB458
AntiKick - 505495
Esp_Addie 0x522F9D
Headshot - 4a3604
Neckshot - 4A3625
Spineshot - 4A367D
SilentWalk - 4A3651
Unl Ammo 1 - 51E376
Unl Ammo 2 - 51E387
Unl Ammo 3 - 51E38D
Invisible - 524678
Water - 8FBF58
OPK - 516503
Fast As Famas - 523D03
thanx for the tut man +REP there but i can already make hacks lol but i like people who dont just worry bout themselves
lol ya the tutorial was easy to write just boring to write that much...
i dont get it
afta u make a hak like superjump and shotgun how the hell do u use it
so u need a hotkey so plz tell me how to make hotkey
Thanks Really! I will try XD! But i have a question:
How can i +Rep a man ?
Don't ban me if its stupid question XS but anxwer please
o to +rep you press the little R+ green square under my name youll see it.
but about the hotkeys thing, its alittle harder... Just once you make the hack just start the game your in press the windows key to make the start menu pop up. then press the hack program you made turn on the stuff that you want and go back to then game. then it should be turned on!
lol, onirish wana help me? my hack is always detected!!
i dont get it,
u said:
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!!!
where to copy that ?
StaminaOffset - 288 (your 2nd post)
BTW FOR PEOPLE WHO KEEP GETTING DETECTED ITS CAUSE YOUR MODULE IS DETECTED. YOUR GOING TO NEED TO CHANGE THAT WITH A MODULE GENERATOR FOUND HERE Undetected Module Generator by ZeaS. download and type in any word. i type long ones and input the module into your cheat. when you finish that just change what you changed WriteAfloat in the generator to the code. for example
you change WriteAFloat to asdfasdf
then in your code change all of the WriteAFloat's into asdfasdf.
same with the others. or else you will get an error.
call writealong ("warrock", &hxxxxxx, xxxxxx)
i dont know the current codes off the top of my head but the first set of xxxxxx's are the code, second set of xxxxxx's are the offset. if nothings changed with the code just change the second xxxxxx's the current offset.
Last edited by Oneirish; 04-10-2008 at 07:00 AM.
OKAY
We get it, you don't have to have massive font size.
There are two types of tragedies in life. One is not getting what you want, the other is getting it.
If you wake up at a different time in a different place, could you wake up as a different person?
nice byt i am new in hacks i am stupid sorry ...
nice byt i am new in hacks i am stupid sorry ... wer i cant lear haw too hack my english its not good byt i read..ok
i dont understand nothing of that tutorial
i got a question
how can i add hotkeys in my Sj hack...
and how i generate a undetected module
i got zeas module maker
so iff i fill in the text box
writeafloat = undetected
i need to change in my butten
not writeafloat but undetected?