Jak zrobic haka

[bogdanzgazowni]

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:

 

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

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:

 

Code:

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:

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:

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:

 

Code:

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:

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

Open the second timer and put in

Quote:

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

Open the third one and put

Quote:

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

Open the fourth and put

Quote:

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

Open the fifth and put

Quote:

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

Open the sixth and put

Quote:

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

Open the seventh and put

Quote:

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

Open the eighth and put

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:

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:

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)

 

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)

 

----------------------------------------

 

Nie wiem czy dziala, nie probowalem.

mam nadzieje ze komus sie przyda.

 

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!

 

Enjoy everyone hope it helped you! (hoffe es hat euch geholfen, ist nich von mir)

 

hab ich i-wo gefunden

 

//CodeTags added

[Kaka356]

0 creditsów = closed.