Page 1 of 3 123 LastLast
Results 1 to 15 of 32
  1. #1
    ltkort213's Avatar
    Join Date
    May 2007
    Gender
    male
    Location
    I live in my own pc and, I hack in my pc!
    Posts
    203
    Reputation
    11
    Thanks
    16
    My Mood
    Stressed

    Lightbulb {Tutorial} How to make a hack with VB

    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:

    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
    Last edited by ltkort213; 06-10-2007 at 04:44 AM.
    Srry for Bad English, I am Dutch!




    Help me raise my Habamon!

  2. The Following User Says Thank You to ltkort213 For This Useful Post:

    mcduck5 (04-25-2008)

  3. #2
    mains3rv3r's Avatar
    Join Date
    Mar 2007
    Gender
    male
    Location
    NC
    Posts
    360
    Reputation
    27
    Thanks
    29
    My Mood
    Devilish
    Looks EXTREMELY familiar. A compilation of others work I guess? Works.

  4. #3
    TheRedEye's Avatar
    Join Date
    Apr 2007
    Location
    In a good place
    Posts
    300
    Reputation
    18
    Thanks
    24
    WTF?


    you leecher! this is my tut! go fugd yourself!
    delete it now!!

  5. #4
    ltkort213's Avatar
    Join Date
    May 2007
    Gender
    male
    Location
    I live in my own pc and, I hack in my pc!
    Posts
    203
    Reputation
    11
    Thanks
    16
    My Mood
    Stressed
    Quote Originally Posted by TheRedEye View Post
    WTF?


    you leecher! this is my tut! go fugd yourself!
    delete it now!!
    i heard of some people that they dont understand your tut, so i made it easier!
    Srry for Bad English, I am Dutch!




    Help me raise my Habamon!

  6. #5
    xxHackerxx's Avatar
    Join Date
    Jun 2007
    Posts
    39
    Reputation
    10
    Thanks
    0

    Look

    The Here is not working..??

  7. #6
    ltkort213's Avatar
    Join Date
    May 2007
    Gender
    male
    Location
    I live in my own pc and, I hack in my pc!
    Posts
    203
    Reputation
    11
    Thanks
    16
    My Mood
    Stressed
    Quote Originally Posted by xxHackerxx View Post
    The Here is not working..??
    sorry? i dont understand u?
    Srry for Bad English, I am Dutch!




    Help me raise my Habamon!

  8. #7
    Xosmi's Avatar
    Join Date
    Apr 2007
    Gender
    male
    Posts
    90
    Reputation
    12
    Thanks
    31
    My Mood
    Amused
    Nice.. though i'd like a mention if you use the code snipets i sent you.

  9. #8
    kyo's Avatar
    Join Date
    Dec 2005
    Location
    Belgium
    Posts
    285
    Reputation
    110
    Thanks
    131
    Quote Originally Posted by TheRedEye View Post
    WTF?


    you leecher! this is my tut! go fugd yourself!
    delete it now!!
    dude.. relax... your shit will be stolen... it's the internet. get with it


    but yeh you leeched it 99% but he did refer to you

  10. #9
    TheRedEye's Avatar
    Join Date
    Apr 2007
    Location
    In a good place
    Posts
    300
    Reputation
    18
    Thanks
    24
    delete it now!

  11. #10
    kyo's Avatar
    Join Date
    Dec 2005
    Location
    Belgium
    Posts
    285
    Reputation
    110
    Thanks
    131
    Quote Originally Posted by TheRedEye View Post
    delete it now!
    whiny bitch...
    you sound like a crazy 10 year old

  12. #11
    TheRedEye's Avatar
    Join Date
    Apr 2007
    Location
    In a good place
    Posts
    300
    Reputation
    18
    Thanks
    24
    Quote Originally Posted by kyo View Post
    whiny bitch...
    you sound like a crazy 10 year old
    you know what?
    you are a fucking bitch!
    you dont know how i worked hard on it
    and some noob leecher taking my tut
    this is a shame
    and you are noob 2..

  13. #12
    kyo's Avatar
    Join Date
    Dec 2005
    Location
    Belgium
    Posts
    285
    Reputation
    110
    Thanks
    131
    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
    Quote Originally Posted by TheRedEye View Post
    you know what?
    you are a fucking bitch!
    you dont know how i worked hard on it
    and some noob leecher taking my tut
    this is a shame
    and you are noob 2..

  14. #13
    Kung Fu Penguin31's Avatar
    Join Date
    Jun 2007
    Gender
    male
    Location
    how am i supposed to know....
    Posts
    473
    Reputation
    12
    Thanks
    48
    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>

  15. #14
    MS Word's Avatar
    Join Date
    Jun 2007
    Gender
    male
    Posts
    483
    Reputation
    11
    Thanks
    2
    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..

  16. #15
    TheRedEye's Avatar
    Join Date
    Apr 2007
    Location
    In a good place
    Posts
    300
    Reputation
    18
    Thanks
    24
    Quote Originally Posted by kyo View Post
    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

    i know what is internet dude
    but comon! on the same forum?!
    What The Hell?

Page 1 of 3 123 LastLast

Similar Threads

  1. [Detected] Tutorial: How To Make Some CF Hacks Work
    By ARHQA$Y$YW4AYG4y in forum CrossFire Tutorials
    Replies: 6
    Last Post: 10-27-2011, 05:50 PM
  2. [Tutorial] How to make your own undetected module in VB6
    By markfracasso11 in forum Visual Basic Programming
    Replies: 17
    Last Post: 10-15-2007, 09:34 AM
  3. [Tutorial] How to make you'r first hack in CE!!!
    By Darky in forum WarRock - International Hacks
    Replies: 3
    Last Post: 07-29-2007, 11:02 AM
  4. How to make gps hack?
    By Death526 in forum WarRock - International Hacks
    Replies: 10
    Last Post: 07-27-2007, 12:31 AM
  5. [Tutorial]How to find some Hacks
    By mental81 in forum WarRock - International Hacks
    Replies: 22
    Last Post: 04-06-2007, 10:50 AM