[tutorial] How To make a Warrock Hack...

Posts : 11 Join date : 2008-04-05

Lets Start... - Visual Basic.

System Requirements
- Microsoft Visual Basic 6 - Download Here
- A brain [Not available on the net]

So first you need a module, right?
Im going to post one but the module i made hasnt been coded to use WriteAFloat or ReadAFloat functions.

CODE

Code:: Public Const krebs = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long

'API Declaration
Public Declare Function string1 Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Public Declare Function string2 Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function string3 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function string4 Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function string5 Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function string6 Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function string7 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 writealong(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_4_ As Long) 'WriteALong
Dim string8 As Long
Dim string9 As Long
Dim hoden As Long
string8 = string5(vbNullString, Warrock_fenster_4_)
If (string8 = 0) Then
End
Exit Function
End If
string1 string8, string9
hoden = string2(krebs, False, string9)
If (hoden = 0) Then
Exit Function
End If
string3 hoden, Combination_4_, Super_zahl_4_, 4, 0&
string4 lmdkwaa
End Function

Public Function readalong(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_filter_4_ As Long) 'ReadALong
Dim string8 As Long
Dim string9 As Long
Dim hoden As Long
string8 = string5(vbNullString, Warrock_fenster_4_)
If (string8 = 0) Then
End
Exit Function
End If
string1 string8, string9
hoden = string2(krebs, False, string9)
If (hoden = 0) Then
Exit Function
End If
string7 hoden, Combination_4_, Super_zahl_filter_4_, 4, 0&
string4 lmdkwaa
End Function

Public Function readafloat(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_filter_4_ As Single) 'ReadAFloat
Dim string8 As Long
Dim string9 As Long
Dim hoden As Long
string8 = string5(vbNullString, Warrock_fenster_4_)
If (string8 = 0) Then
End
Exit Function
End If
string1 string8, string9
hoden = string2(krebs, False, string9)
If (hoden = 0) Then
Exit Function
End If
string7 hoden, Combination_4_, Super_zahl_filter_4_, 4, 0&
string4 lmdkwaa
End Function

Public Function writeafloat(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_4_ As Single) 'WriteAFloat
Dim string8 As Long
Dim string9 As Long
Dim hoden As Long
string8 = string5(vbNullString, Warrock_fenster_4_)
If (string8 = 0) Then
End
Exit Function
End If
string1 string8, string9
hoden = string2(krebs, False, string9)
If (hoden = 0) Then
Exit Function
End If
string3 hoden, Combination_4_, Super_zahl_4_, 4, 0&
string4 lmdkwaa
End Function

Public Function writeabyte(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_4_ As Byte) 'WriteAByte
Dim string8 As Long
Dim string9 As Long
Dim hoden As Long
string8 = string5(vbNullString, Warrock_fenster_4_)
If (string8 = 0) Then
End
Exit Function
End If
string1 string8, string9
hoden = string2(krebs, False, string9)
If (hoden = 0) Then
Exit Function
End If
string3 hoden, Combination_4_, Super_zahl_4_, 1, 0&
string4 lmdkwaa
End Function

Public Function readabyte(Warrock_fenster_4_ As String, Combination_4_ As Long, Super_zahl_filter_4_ As Byte) 'ReadAByte
Dim string8 As Long
Dim string9 As Long
Dim hoden As Long
string8 = string5(vbNullString, Warrock_fenster_4_)
If (string8 = 0) Then
End
Exit Function
End If
string1 string8, string9
hoden = string2(krebs, False, string9)
If (hoden = 0) Then
Exit Function
End If
string7 hoden, Combination_4_, Super_zahl_filter_4_, 1, 0&
string4 lmdkwaa
End Function

ok so this module will do for now - you can edit strings if you want
So after this you need to get a undetected module and ones that are posted publicly are very likely to be detected so dont go there.
Also dont use ZeaS, unless you dont want to use stamina or spread hacks because i have found a few errors with Float functions.

So know you need to code something.
first goto 'Project' and 'Add Module' then insert whatever module you got then just close it (auto saves)
now make a couple of buttons - one 'On' and one 'Off' and now add a 'Timer' all these are found on the left toolbar
the buttons need to be coded like this

CODE

Code:: Timer1.Enabled = True (for the on button)
Timer1.Enabled = Flase ( for the Off Button)

These buttons are now prgrammed to Enable and Disable the Timer1
So now the bulk of code is entered into the Time

And now because your probably going to just use my module or the ZeaS Undetected Module Creator then im going to use no recoil because it should work with it

CODE

Code:: Dim recoil1 As Long
Dim recoil2 As Long
Dim recoil3 As Long
Dim recoil4 As Long
Call ReadALong("WarRock", &H1373FE0, recoil1)
recoil2 = recoil1 + &H2D8
recoil3 = recoil1 + &H2DC
recoil4 = recoil1 + &H2E0
Call WriteALong("WarRock", recoil2, 0)
Call WriteALong("WarRock", recoil3, 0)
Call WriteALong("WarRock", recoil4, 0)

Insert that code into your timer and so that you know what this means here we go...

CODE

Code:: Call ReadALong("WarRock", &H1373FE0, recoil1)

Dim recoil1 As Long is telling VB that these are variables and because they are all As Long it means that they will be working with each other
ReadALong is telling VB that your going to read a player pointer - WarRock is the game or window and 1373FE0 is the player pointer - now check the date you read this because im sure this will be changed in the next update from now!
now were givin another 3 ... not addresses but offsets
and please take note of the offsets because i dont see them change very often
and the '0' - these are the freeze points and of course you dont want any recoil...so 0
and now you made a No Recoil hack but fiddle about with your sources for addies and modules because you very rarely have the perfect set up first try.
and if you want some more here wo go...
Stamina
2 buttons again 'on' 'off'
1 timer - take note of its name - ie. 'Timer1' 'Timer2'
and add this code to the timer

CODE

Code:: Dim STAN As Long
Dim STAN1 As Long
Call ReadAFloat("WarRock", &H(playerpointer here), STAN)
STAN1 = STAN +&H(offset here)
Call WriteAFloat("WarRock", STAN1, 1120403456)

in a recent update i had to change my coding so now its Float rather than Long and i dont think ZeaS module works with that but o well...

and the stamina offest (depending on when you read this) is 288
and 1120403456 is the freeze point

I would have liked to finish this Topic off with a public release from me but there is an update within 20 hours of me posting and that will make most of my hacks useless - but i mite release here soon

But incase you want to release or make your own heres the addresses that i know of:

playerpointer - 1373FE0 Remember to use the pointer! needed in many hacks
stamina offset - 288
Spread address- B196F8
Scope - B196AA
5th slot D8B958
glass walls address is B34748 and you need the off value so 1166127104 is the off value

Look forward to your replies and maybe even releases - Pm me if you need any help

Admin Posts : 3 Join date : 2007-12-14

Nice TuT

Posts : 11 Join date : 2008-04-05