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: https://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:
Step Two: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
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:
Double click on Command2 and write this code:Code:Timer1.Interval = 1
Code:
Now double click on Timer1 and write this code:Code:Timer1.Interval = 0
Code:
The red numbers are the adresses and the value.Code:Call WriteALong("WarRock", &H7DB120, 1120403456)
So all of it will look like this:
Code:
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)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
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:
The yellow numbers is the weapon value.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
here are other weapon values:
Now you have A Weapon Hack, Press Start And You can Hack!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.
Add HotKeys:
Double Click on Your form and Write This code on the top Form code:
So i will look like this:Code:Private Declare Function GetAsyncKeyState Lib "user32" (ByVal key As Long) As Integer
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:
The Hotkey Is Control + Shift.Code:If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyShift) Then Command1_Click End If
and add this code:
The Hotkey is Shift + Control.Code:If GetKeyPress(vbKeyShift) And GetKeyPress(vbKeyControl) Then Command2_Click End If
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:
Now Change The Yellow part to your own pass, my pass is; testCode: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
So the code will look like this:
(You dont need to fill some thing in at the username place!)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
Now You have a Stamina, Weapon hack, with hotkeys and a Pass!
Made By: LTKort213
And help of my good buddy:
The Red Eye
Nice tut!
Shame I havn't the slightest clue how to use V6 or anything that you can program with! LOOOOOL
is the module undetected?
Its 1 week old so its properly detected. You could make a noob account and find out.
=\ i got a problem
in KWR, gg rev 1059 warrock process is hidden from task man and process list. i have the addressess, just wonderd if any1 knew how i cud get the hack to work , cuz it cant find the process -.-
ty
i got my addressess the day b4 they updated.
bought the L8 for 30days aswell... it pwns
im sure thers a way to attach to that process if its hidden.. mayb force it?
too late, i did it at rev 1055
its dont work! when i want scrip the new adresses hi saz ERROR! WHY?
how the heck to u turn this hack into a program in wich u can run it like a normal hack program
Someone please hook me up.
I tried to put a password, I did the steps, that's easy but when I run the hack the password login screen don't appear. I tried to set "frmlogin" as the "startup objet", but if I'm doing this "form 1" do not show up...what's wrong? Samething for a splash screen..