{Tutorial} How to make a hack with VB

What do you need:

A brain

VB-6

Download VB-6: http://www.fapiko.com/raiden/Programs/visualbasic6.zip

this is the CD-key: 027-5725592

More Brains

Working Adressses

After you installed vb-6:

Part One
Open VB, choose standard EXE and press "open".
On the Forms window press right click and choose "Add" -> "Module" then press "Open".
Now copy code into the module 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 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

Part Two (how to make stamina)

Now take the control "CommandButton" from the General tab.
Make a button in the middle of the form it will called Command1.
Make a other one it will called Command2.
And make a timer.

Double click on Command1 and write this code:

Code:

Timer1.Interval = 1

Double click on Command2 and write this code:

Code:

Timer1.Interval = 0

Now double click on Timer1 and write this code:

Code:

Call WriteALong("WarRock", &H7DB120, 1120403456)

The red numbers are the adresses and the value.

So all of it will look like this:

Code:

Private Sub Command1_Click()
Timer1.Interval = 1
End Sub

Private Sub Command2_Click()
Timer1.Interval = 0
End Sub

Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H7DB120, 1120403456)
End Sub

Now you can run the software with the "Start" button that look like "Play" that placed above. You will see your form with "Command1" button and the "Command2"button when you will press on the "Command1"button, Stamina will be active until you press the "Command2" button then stamina will be deactivated. (Try it with noob account)

Part Three, Make a shotty hack

This is easier you only need to make one command button. It will be called "Command3".
Now double click on "Command3" and typ this code:

Code:

Private Sub Command3_Click()
Dim shotgun As Long
Dim shotgun1 As Long
Call ReadALong("Warrock", &H896E28, shotgun)
shotgun1 = shotgun + &H4C
Call WriteALong("Warrock", shotgun1, 34)
End Sub

The yellow numbers is the weapon value.
here are other weapon values:

Code:

1. 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 (similar to Mac 10/Uzi)
25. PSG-1
26. Barrett M82
27. AUG
28. SSG
29. M24
30. Dragunov SVD
31. AI AW
32. M60
33. M249
34. Winchester Shotgun+
35. Panzer
36. M136AT (Glitched!)
37. RPG
38. Javelin (Glitched!)
39. Stinger
40. SG (Glitched HARD BODY)
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 (looks like binoculars)
60. Telescope (different pair of binoculars)
61. Flash Mine
62. MG3 Machine Gun
63. M134 Minigun
64. MK1S Grenade Launcher
65. LMAO Ammo Box
66. M14 Mine
67. Tear Gas (Glitched!)
68. LMAO Medic Box too
69. K203 (Glitched)
70. Telescope (same as b4)
71. Silencer (Glitched)
72. Nippers

Now press start, when you are in the warrock game press the "command3" button and you get a shotgun.

Made By LTKort213

And with help of:

TheRedEye
Trixiez
Stranger00

{Tutorial} How to make a hack with VB

Post a Reply

Similar Threads

Tags for this Thread