mcduck5 (04-25-2008)
What do you need:
A brain
VB-6
Download VB-6: https://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:
Part Two (how to make stamina)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
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:
Double click on Command2 and write this code:Code:Timer1.Interval = 1
Now double click on Timer1 and write this code:Code:Timer1.Interval = 0
The red numbers are the adresses and the value.Code:Call WriteALong("WarRock", &H7DB120, 1120403456)
So all of it will look like this:
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
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:
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 press start, when you are in the warrock game press the "command3" button and you get a shotgun.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
Made By LTKort213
And with help of:
TheRedEye
Trixiez
Stranger00
Last edited by ltkort213; 06-10-2007 at 04:44 AM.
mcduck5 (04-25-2008)
Looks EXTREMELY familiar. A compilation of others work I guess? Works.
WTF?
you leecher! this is my tut! go fugd yourself!
delete it now!!
Nice.. though i'd like a mention if you use the code snipets i sent you.
i once made a bot for rose online
it was stolen, some names changed and rereleased
everyone does it.
i like the tutorial you made
but it's THE INTERNET. get over it
your stuff WILL BE STOLEN... if you don't want anyone to steal it; release it as a book. god half of the adresses i got. i got by using vb6 decompilers (yeh you can get adresses off trainers)
so no i'm not a noobs and i KNOW what i'm talking about
just relax. it's the internet. you have no control
lol... usaid it
[img]https://www.danasof*****m/sig/ghghhkjklk.jpg[/img]
drill sargeant: How tall are you boy!?
soldier: umm....urr about 5' 11''
drill sargeant: I didn't know they stacked shit that high!!
Creator of the Annihilation,Freebie and KFP Series.
<MASTER HACKER>
hey man .. first... calm down ... i know how you feel, dont think ur the only one whose work was stolen... but take it easy, PM that piece of an old clitoris and tell him what you think about that he stole it... and leastwise he refered to you..