[Request]Tutorial how to make Hack On VB 2008

whats VB???

Visual Basic Program to program programs )) Funny

if it dosent have to do with Crossfire think u can put it in the Request Section of the forums.Suggestion/Request/Help - MPGH - MultiPlayer Game Hacking

I asked for a tutorial make a hack of CrossFire it does Right place

are u asking for some one to make a hack for u or u trying to make a hack for CrossFire?

I try make a hack but i dont know how Dude can some 1 give me tut?

wrong section
/moved

[[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:
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)

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

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


I take no credit for this, I credit to [Google Moderator]F1R3Bl4D3

i dont vb works at all

Lol there are not so many tutorials about creating hacks indeed, I searched my hole fucking life for them, but I gave up T_T

pretty nice i like it

dude vb works its awesome but took me 2 months to learn and 5 months to learn C++ and C# and VB

Gratz man, on talking in 3 weeks old thred, good luck, bec you gonna get ban

great work..