[tut]making A Vb6 Hack Warrock[tut]

[Agent007]

TUT NIE JEST MÓJ !!

 

 

 

 

 

 

 

Guests

 

 

 

 

 

 

How to make a hack with VB6 by TheSpammer.

 

This Tutorial got 4 sections:

How to Find Addies/Value's.

Weapon Hack(WarRock only).

Simple Value Hack.

Freezing Hack.

 

What do you need:

VB6( Microsoft Visual Basic 2006).

Cheat Engine.

 

Section 1

Find Addies/Values.

 

They're two ways to find addies.

 

the first way:

Download Cheat Engine and open it.

Start the game were you want the addies from.

for axample, i use Unlimited Ammo.

Pickup a weapon and you will see that your ammo is 30(example).

Typ 30 in at Cheat Engine and scan, then you will get an addie-list, shoot a few times, your ammo is 24(example), typ that at Cheat Engine, and scan again, you will get an shorter list.

go until you get at least one addie.

now you can find any addie you want by yourself!.

 

The second way:(for example warrock)

if you can find a good hacking site, you will find an addie-logger(a WarRock addie-logger is available on this site).

click on the "scan" button and you will get a list of addies... dry.gif .

 

And how to find the RIGHT values?

if you've used Cheat Engine, you don't need to do this, otherwise, do this:

Open VB6, click on "Standart EXE.", make a Command Button and a Textbox and click twice on the command button.

Paste this code into the screen:

CODE

Dim Value1 As Long

Call ReadALong("WarRock", &HAB12345, Value1)

Text1.Text = Value1

 

 

What does this code?:

 

At the adress section do you need to fill in the address where you want the value from.. rolleyes.gif (,&HAddressSection, Value1)

Weapon Hack(WarRock Only)this is a tutorial i post earlier.

OLD ADDRESSES

 

For this tutorial do you need:

VB6(Visual Basic 2006)

 

Okay i explain this tutorial in steps:

Step 1 the module

Open Vb6 and click on "standart EXE"

Then click on "Project" then "Add Module" and then paste this module into the window:

 

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

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

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)

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)

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

 

Then close that window

 

Step 2 "the code"

Make a "Command Button" and a "Text Box" and click twice on the Command Button, paste this code into the screen:

CODE

If Text1.text > 72 Then

Text1.text = "34"

End If

Dim Shotgun1 As Long

Dim Shotgun2 As Long

Call ReadAlong("WarRock", &HB5288, Shotgun1)

Shotgun2 = Shotgun1 + &H4C

Call WriteAFloat("WarRock", Shotgun1, Text1.text)

 

 

Step 3: what does it does?

i think you know it,,it gives you a weapon, but what weapon?, for that we got the TextBox, if you type 34 you will get a Winchester, and if you type 25, you will get a Psg1, whatever you want!.

only you have to find the weapon address by you own, i don't know how...

 

Step 4: actually this isn't a step smile.gif

Here the weapon value list:

CODE1. Fist

2. Colt

3. Eagle

4. MP5K

5. Magnum

6. Glock

7. Dual Berettas

8. AK 47

9. K2

10. M4A1

11. Famas

12. L85A1 Sniper Rifle

13. XM8

14. Type 89

15. g36C

16. g36c Drummed

17. g36

18. g36 drummed

19. MP5

20. P90

21. Uzi

22. Mac 10

23. K1

24. MP7A1

25. PSG-1

26. Barrett M82

27. AUG

28. SSG

29. M24

30. Dragunov SVD

31. AI AW

32. M60

33. M249

34. Winchester

35. Panzer

36. M136AT

37. RPG

38. Javelin

39. Stinger

40. SG

41. TMA-1A Mine

42. HA_Supply (Mine)

43. K400_Grenade

44. K400

45. Smoke Grenade

46. Flash Bang 1

47. Flash Bang 2

48. Claymore Mine

49. Claymore Switch

50. Empty

51. C4

52. Med Kit

53. Med Kit 2

54. Med Kit 3

55. Spanner

56. Pipe Wrench

57. Adrenaline

58. Parachute

59. Detector

60. Telescope

61. Flash Mine

62. MG3 Machine Gun

63. M134 Minigun

64. MK1S Grenade Launcher

65. Ammo Box

66. M14 Mine

67. Tear Gas

68. Medic Box

69. K203

70. Telescope

71. Silencer

72. Nipper

 

Now this was it, i hope i've helped you!

 

Section 3: simple Value Hack

To easy! just follow these steps, be sure that you've got a good module.

 

Step 1

Open VB6 and click on "standart EXE."

Make a Command Button and then double click on it, then paste this code into the screen:

CODE

Call WriteAlong("WarRock", &HAB12345, 01)

 

 

What does that code means?:

Call WriteAlong = Writing a new value.

("WarRock", &HAB12345, 01) = (" Pocessname ", &H Addresses, value)

Do you understand?

i hope yes, because i don't explain anymore...

 

Section 4: Freeze Hack

Make two Command Buttons, and one "Timer"(clock)

Click twice on the first Command Button(Command Button1) and paste this code into the screen.

CODE

Timer1.Interval = 1

 

Then click twice on Command Button2 and paste this code into the screen

CODE

Timer1.Interval = 0

 

I think you understand that codes..i'm sure.

Then click twice on the timer and paste this code into the screen:

CODE

Call ReadAlong("WarRock", &HAB12345, 01)

 

 

What does that code means?

Call ReadAlong = Reading a Value(that value is already hapening when you play, example: full ammo)

The rest do you know..

 

Freezing a value is that you are freezing a "thing" cool.gif

Example: Ammo, if your ammo is 30, and you've got that address, you can freeze that "30", so you can shoot whatever you want..your ammo stays 30!, understand?? mellow.gif

 

That's it!, i hope i've helped you!

[4pr000only]

może nie jest twój ale nie za dożo osób tego nie zrozumie więc mogłeś z ang ---> pol po prostu jakoś przetłumaczyć

[Nightmar4]

hmm

 

po1. w j ang mozna znalezc 2 razy lepsze tuty

po2. vb nie dziala dopoki jest hs (tak mi sie zdaje)

po3. to jest hack na weapon, zajebiscie stary nie wiem skad go wziales ze mozna bylo z psg latac

 

[plisek]

OMG

Przetłumacz