Register for your free account! | Forgot your password?

Go Back   elitepvpers > Shooter > WarRock
You last visited: Today at 02:37

  • Please register to post and access all features, it's quick, easy and FREE!


Hack Tut

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Sep 2007
Posts: 691
Received Thanks: 452
Hack Tut

! I thought it would be a good idea to post it here cuz so maybe more ppl get interested in making new hacks

[[NOTE]] : None Of the addresses work anymore, Current finding the updated ones. So the hacks will not work until me or someone else finds the new addresses!


Hey there. Are you getting sick of antiously waiting for someone to post a new hack for use, then in like one hour getting banned? Well thats over.

In this tutorial i will show you how to..

Designing and customizing your very own hacks
A few examples on how to add stuff such as Unlimited stamina or swimming


----------Getting started-----------


Before we begin here, you will need the following:

Microsoft Visual Basic 6.0 (2005 edition will not work)
Baisc Programming ideas
Ability to read.


Step ONE.

Open visual basic and press New Standard Application.
- Once it is open. Shape your application and get it ready for hack making.

2. At the top of VB, Press Project > Add module
- click on module and press Open.

add the following code to it (It is long, make shure u get it all)

Quote:
Quote:
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
(I reccomend putting that code in a text file for later use)

What that long ass code does is lets ur hack edit warrock settings (memory)

Once that long code is in there.. Just Close out of the module box (it will save automatically)


Step THREE..

In visual basic In the general tab at the left side of visual basic. Press Command Button (double click to make one)

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

After you made the button you probbaly want to make it say something else than Command1 right? Well ok.

Click on the button once so it is selected. In the Properties box (Right)
DO NOT CHANGE THE (NAME) OF THE BUTTON
Change the Caption of the button. As shown here.


Ok congratultions you made the button but it does nothing..

So lets make it do something. Lets make it have us Unlimited stamina.

But before we start doing this, you need to make a new timer.

That is also in the general tab

Make one ( do not name it or anything because it does not show up in the finished hack so dont even worry about it just ignore it )

So after you made the Timer, Double click on it. Enter the following code:
(This is for unlimited stamina)

Quote:
Quote:
Call WriteALong("WarRock", &H7DB120, 1120403456)
So your wondering what this means.

Well WriteALong means to write a value inside or warrock.
Well &H7DB120 is the address for Stamina, and 1120403456 is the maximum amount of stamina.

What this code does is Freeze the stamina at 1120403456 which means it will
never go down.

After you did that.. Make a NOTHER button. Name it OFF or something that means no more or off (duh)

So you should now have:

two buttons
and a timer

Double click on the first button you made.

Type in the following code:

Quote:
Quote:
Timer1.Interval = 1
What that code does is takes the Timer that we made and puts it into gear

the syntax is like this.
(timer name).interval = (1/0)
1 = ON
0 = OFF

So it is kind of self explanitory what we will do for the Off button?

For the de da dees who dont know what to do for the off button..
well put this code in it..

Quote:
Quote:
Timer1.Interval = 0
That takes the timer and makes the stamina go back to normal state.

CONGRATULATIONS you just made an unlimited stamina hack..
BUT u are probbaly saying "Yea thats cool but i want more!"

Well you read the right tutorial for that..

Ok.

Place your buttons nicely and evenly if you want it to be cool
Like i said earlier dont worry about the timer as it will not show up.

----Winchester Hack----

1. make a new button

Name ur button and put this code in it.

Quote:
Quote:
Dim shotgun As Long
Dim shotgun1 As Long
Call ReadALong("Warrock", &H896E28, shotgun)
shotgun1 = shotgun + &H4C
Call WriteALong("Warrock", shotgun1, 34)
If you see 34 at the end, this is the gun ID
You can get any gun in the game if you have the proper weapon ID
but the only problem with that is that all the guns becides the winchester do no damage, The reason for this is because damage is computed by the warrock server. Why does the winchester do damage? I have no idea
You CAN use the timer concept here, but this is easier and causes less confusion =)

So you now have a hack that has unlimited stamina, and a winchester hack.

.WHAT? you are still not satisfied?? well that what i wrote this for..
---------MAKING A NO SPREAD / RECOIL HACK--------
Note, if you are happy from what you just did.. do not do this becuase this is long and causes a lot of confusion.

Ok. First off you need to make 8 new timers,, no im not high, yes EIGHT
Make them in order so you can get easy access
Open the first one and put this code in
Quote:
Quote:
Call WriteALong("WarRock", &H90DC6F, 0)
Open the second timer and put in
Quote:
Quote:
Call WriteALong("WarRock", &H90DC70, 0)
Open the third one and put
Quote:
Quote:
Call WriteALong("WarRock", &H90DC71, 0)
Open the fourth and put
Quote:
Quote:
Call WriteALong("WarRock", &H90DC72, 0)
Open the fifth and put
Quote:
Quote:
Call WriteALong("WarRock", &H90DC73, 0)
Open the sixth and put
Quote:
Quote:
Call WriteALong("WarRock", &H90DC77, 0)
Open the seventh and put
Quote:
Quote:
Call WriteALong("WarRock", &H90DC78, 0)
Open the eighth and put
Quote:
Quote:
Call WriteALong("WarRock", &H90DC79, 0)
Now what you want to do is make a new button and name it like
no spead on
Dobule click on it and put in this long code.
Now since we made a timer1 alerady ( For the unlimited stamina) We will not have timer1 in this. We will start with timer2 because that is what we started with when we made the 8 timers.
So it will be.
Quote:
Quote:
Timer2.Interval = 1
Timer3.Interval = 1
Timer4.Interval = 1
Timer5.Interval = 1
Timer6.Interval = 1
Timer7.Interval = 1
Timer8.Interval = 1
Timer9.Interval = 1
that makes us have no spread and no recoil for our guns
Now you want to make a new button and name it like no spread off
double click on it and put in ( If you have been paying attention you would know what to put)
Quote:
Quote:
Timer2.Interval = 0
Timer3.Interval = 0
Timer4.Interval = 0
Timer5.Interval = 0
Timer6.Interval = 0
Timer7.Interval = 0
Timer8.Interval = 0
Timer9.Interval = 0
---------SUPERJUMP-----------

Plese note.. Since visual basic was from 1998, there is no in game hot keys. I am working on something that may change that soon..

Anyway. To make superjump, you want to put this inside of a button..

(No timers)
Quote:
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)
----------------------------------------

Do you want to know something? you just made a working warrock hack..

The advantages of making your own is that you will never be detected unless someone reports you OR YOU POST IT ON A FORUM OR SOMETHING if you keep it just to your self you will be never detected.

Go to File> Save project and save the project just incase you screwed up and you need to fix.

After that got o File> Make Project1.exe

Save it somewhere and open and hack!

If you are running windows vista you must run the hack under Administrator.
(right click and press Run as administrator) if you dont do this the hack can not hack!



vi0l3nt is offline  
Thanks
5 Users
Old 11/24/2007, 20:21   #2
 
elite*gold: 0
Join Date: Nov 2007
Posts: 65
Received Thanks: 26
ich habe einen sehr guten hack der noch nicht gebannt ist .wer ihn will schreint mich mal an. Ein tipp macht euch ein hack account und immer wenn ihr rein geht tetet mit dem hack account ob du nicht gebannt wirst so mache ich ess immer


marcel133 is offline  
Old 11/24/2007, 21:44   #3
 
elite*gold: 3
Join Date: Jul 2006
Posts: 3,058
Received Thanks: 1,237
marcel, das weiss schon jeder^^

und wer es so nicht macht, der hat schon von anfang an, die arschkarte...


MfG
Renegade91 is offline  
Old 11/25/2007, 05:50   #4
 
elite*gold: 0
Join Date: Nov 2007
Posts: 1
Received Thanks: 0
is there a free downlaod for visual basic ?


st23an is offline  
Old 11/25/2007, 08:41   #5
 
elite*gold: 0
Join Date: Sep 2007
Posts: 279
Received Thanks: 133
yes there is a free download!!!
@marcel :du nervst n bisschen damit!! füg das net in jeden thread ein, ok???
noobnoob4 is offline  
Thanks
2 Users
Old 11/25/2007, 16:18   #6
 
elite*gold: 0
Join Date: Sep 2007
Posts: 691
Received Thanks: 452
there are some very rare rapidshare uploads of vb.
just use google to detect them
greetings
vi0l3nt is offline  
Old 11/26/2007, 23:42   #7
 
elite*gold: 0
Join Date: Nov 2007
Posts: 1
Received Thanks: 0
hehe very nice never thought normal ppl could make hacks I thought those ppl in the hack group or what ever could do it ! !!! o well the hack seems to long I'll just not hack
but it's fun to hack!
hehe

my user in warrock
--------------------
<silentkil>l or somthing I just know it fits all the spaces till the eand and has silent. lvl :1 but I had a lvl 4 once but the hack's bypass hack did not work becuse of the patch.but I did get to swin and use winchester! happy!
fukpunkbuster53 is offline  
Old 11/27/2007, 07:10   #8
 
elite*gold: 0
Join Date: Sep 2007
Posts: 691
Received Thanks: 452
i think im too tired to understand ur post ^^
i dont get it...
vi0l3nt is offline  
Old 04/05/2008, 15:49   #9
 
elite*gold: 0
Join Date: Apr 2008
Posts: 1
Received Thanks: 0
Hey can i get a nice hack for NECK SHOT or so ... or like BONE SHOT ???

need it sooooooo much bro just gimme a tutorial to make one ....

and how to find the address???
coder007 is offline  
Old 04/05/2008, 15:56   #10
 
elite*gold: 0
Join Date: Sep 2007
Posts: 691
Received Thanks: 452
sry i dont play wr anymore. this tut is very old (but still works - except the adresses and the modul).

you find adresses with a undetected cheat engine - find it at google.
vi0l3nt is offline  
Old 12/03/2008, 20:19   #11
 
elite*gold: 0
Join Date: Dec 2008
Posts: 13
Received Thanks: 0
Hallo,
meine Frage wäre, ob das auch mit dem VB von Office Word 2008 läuft und ob es diese Anleitung o. ä. auf Deutsch gibt.
w4rd121 is offline  
Old 12/04/2008, 17:02   #12
 
elite*gold: 0
Join Date: Nov 2008
Posts: 154
Received Thanks: 31
Visual Basic is for noobs
it doesnt work anymore! Try to learn c++ or d3d and
make hacks which work!
baddy the PsychoDoc is offline  
Old 12/04/2008, 17:17   #13
 
elite*gold: 0
Join Date: Jun 2007
Posts: 6
Received Thanks: 0
moin ich suche noch einen hack wenn du zeit hast und icq hast können wir mal weiter reden ok meine nummer ist 349549892
troopa90 is offline  
Old 12/12/2008, 14:54   #14
 
elite*gold: 0
Join Date: Sep 2007
Posts: 691
Received Thanks: 452
oh baddy vb ist für noobs? hacks mit vb funktionieren nicht?

hm wer ist hier nun der noob? hacks mit vb funktionieren 1a - man muss nur wissen wie


und mit der vba version geht's nicht!
vi0l3nt is offline  
Old 12/01/2009, 20:33   #15
 
elite*gold: 0
Join Date: Sep 2009
Posts: 445
Received Thanks: 286
*Ausbuttel*
Soweit ich weiß WriteaLong ein Befehl sein, aber im 2008 denkt er es wäre eine Variable!
Was soll ich tun?


Banana.Crafts is offline  
Reply



« An Alle warrock die X-Fire haben | warrock japan problemm »

Similar Threads
[Release] Vac Hack, Zoom hack, auto pot hack, Speed hack me+ mobs, shop hack...
04/02/2011 - Dekaron Exploits, Hacks, Bots, Tools & Macros - 25 Replies
Deleted people must learn to do it by them self from now off ! :)



All times are GMT +1. The time now is 02:37.


Powered by vBulletin®
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Abuse
Copyright ©2018 elitepvpers All Rights Reserved.