VB6 Tut.

Warrock VB6 Hack Tut.

How to make hacks in VB6:

What do you need:

A Brain!

Some Working Adresses!

A bypass (If you use Detected adresses!)

Visual Basic 6:
Download VB-6: http://www.fapiko.com/raiden/Programs/visualbasic6.zip
CD-key: 027-5725592

Step One:

Open VB6, And make a New Project, Add a New Module (Right Click on the Project Explorer; Add, Module, New Module.)

Paste In The Module This Code:

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 "The Game Is Not Working", 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 "The Game Is Not Working", 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 "The Game Is Not Working", 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 "The Game Is Not Working", 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 "The Game Is Not Working", 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

Step Two:
Make A Stamina Hack:

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 It will called; Timer1.

Double click on Command1 and write this code:

Code:

Code:

Timer1.Interval = 1

Double click on Command2 and write this code:

Code:

Code:

Timer1.Interval = 0

Now double click on Timer1 and write this code:

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:

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)

Step 2.1:
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:

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:

0. M7 (Knife)
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 you have A Weapon Hack, Press Start And You can Hack!

Add HotKeys:

Double Click on Your form and Write This code on the top Form code:

Code:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal key As Long) As Integer

So i will look like this:

Code:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal key As Long) As Integer

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

Make A New Timer It Wil Be called; Timer2.
Make The Interval: 100
Double Click On the Timer And Write This Code:

Code:

If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyShift) Then
Command1_Click
End If

The Hotkey Is Control + Shift.

and add this code:

Code:

If GetKeyPress(vbKeyShift) And GetKeyPress(vbKeyControl) Then
Command2_Click
End If

The Hotkey is Shift + Control.

Now press play, when you are in the warrock game press the "Control + Shift" button and Stamina will Activate. Press "Shift + Control" and stamina will deactivate!

Make A log In Dialog:

Add A form, Do Not Press directly open!
First press "log in Dialog" in place of; "form"

Now You have a Log in Dialog!

Change the pass:

double click on the "ok" button!
you will see this code:

Code:

Private Sub cmdOK_Click()
    'check for correct password
    If txtPassword = "password" Then
        'place code to here to pass the
        'success to the calling sub
        'setting a global var is the easiest
        LoginSucceeded = True
        Me.Hide
    Else
        MsgBox "Invalid Password, try again!", , "Login"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If
End Sub

Now Change The Yellow part to your own pass, my pass is; test

So the code will look like this:

Code:

Private Sub cmdOK_Click()
    'check for correct password
    If txtPassword = "test" Then
        'place code to here to pass the
        'success to the calling sub
        'setting a global var is the easiest
        LoginSucceeded = True
        Me.Hide
    Else
        MsgBox "Invalid Password, try again!", , "Login"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If
End Sub

(You dont need to fill some thing in at the username place!)

Now You have a Stamina, Weapon hack, with hotkeys and a Pass!

Made By: LTKort213

And help of my good buddy:

The Red Eye

Originally Posted by lolkay

I don't really understand the Hotkeys tut, can you rephrase it or make it understandable more? I understand the rest, and thanks for making this tut!

1: press in a timer icon on toolbar of left
2: drag on trainer
3: press on timer (only 1 time)
4: go to right on timer propieties
5: change interval to 100
6: press on timer (2 times)
7: write this:

Code:

If GetKeyPress(vbKeyFIRSTKEY) And GetKeyPress(vbKeySECONDKEY) Then
Command10_Click
End If

CHANGE THE YELLOW WORDS TO HOTKEY YOU WANT
CHANGE THE RED WORDS TO ID BUTTON YOU WANT
sample:

Code:

If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyQ) Then
Command10_Click
End If

I hope that now you understand it

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 "The Game Is Not Working", 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 "The Game Is Not Working", 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 "The Game Is Not Working", 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 "The Game Is Not Working", 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 "The Game Is Not Working", 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

0. M7 (Knife) 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.

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal key As Long) As Integer 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

Private Sub cmdOK_Click() 'check for correct password If txtPassword = "password" Then 'place code to here to pass the 'success to the calling sub 'setting a global var is the easiest LoginSucceeded = True Me.Hide Else MsgBox "Invalid Password, try again!", , "Login" txtPassword.SetFocus SendKeys "{Home}+{End}" End If End Sub

Private Sub cmdOK_Click() 'check for correct password If txtPassword = "test" Then 'place code to here to pass the 'success to the calling sub 'setting a global var is the easiest LoginSucceeded = True Me.Hide Else MsgBox "Invalid Password, try again!", , "Login" txtPassword.SetFocus SendKeys "{Home}+{End}" End If End Sub

Post a Reply

Similar Threads

Tags for this Thread

VB6 Tut.

Post a Reply

Similar Threads

Tags for this Thread