Page 1 of 2 12 LastLast
Results 1 to 15 of 18
  1. #1
    Oneirish's Avatar
    Join Date
    Mar 2008
    Gender
    male
    Location
    3Oh!3, Colorado
    Posts
    4,568
    Reputation
    876
    Thanks
    866
    My Mood
    Inspired

    Question Tutorial - How to use Visual Basics 6 (vb6) for WarRock hacks

    ive seen sooooo many people saying how to use vb6 or how to make hacks or whatever. and causes alot of spam. so i hope this guide will just make that quite down...

    PLEASE REP IF I HELPED AND RATE POST!

    and so we start...
    WARNING!!!!REMEMBER THAT THE ADDRESSES MAY BE DETECTED... CHANGE THEM

    These are addresses can be found anywhere and remember that the module can be too... but the addresses will be found when you add a cheat to the timer in the first hack. it will be the &Hsomething, something but leave the &H

    to start:

    YOUR GOING TO NEED:
    -Visual Basics 6 (vb6)
    -A little knowledge on programing


    FIRST...
    You are going to need to open Visual Basics 6. Your going to press Project > Add Module... click MODULE and press OPEN

    Add this Module

    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
    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

    Once You have added this just close it cause it will automatically save

    STEP 2
    In visual basic In the general tab at the left side of visual basic. Press Command Button

    A new command button should show up in your application area..

    After you made the button you will want to make it say something else than Command1. (make it say the hack your going to put in EXAMPLE: Unl. Stamina On)

    Click on the button once so it is highlighted. In the Properties box
    Change the Caption of the button. Which is Located on the bottom right. to the right of the word Caption you will see Command1 change that.

    So now you made a button which does nothing yet. So were ganna start off with Unl. Stamina.

    Before you add the codes on the right menu that shows a clock symbal your going to click on that and draw it on the map in the middle.

    your going to need to double click the clock and add this code:

    Call WriteALong("WarRock", &H7DB120, 1120403456)
    WARNING!!!! you are going to need to change "7DB120" leave &H and change "1120403456" to the current address
    you can find these addresses all over but get the current one or else it is detected and you will be banned from WarRock!!!

    3rd-ish
    your going to make Another button Named Unl. Stamina Off
    -Remember have one on and one off

    so far your going to have:
    two buttons and a timer

    Double click your first button (Unl. Stamina On)

    Type in this code:

    Timer1.Interval = 1
    4th-ish
    Double click your second button (Unl. Stamina Off)

    type in this code:

    Timer1.Interval = 0
    how to do these with other hacks is:
    (timer name).interval = (1/0)
    1 = ON
    0 = OFF

    ________________
    Thats all you had to do for Unl. Stamina hack...
    REMEMBER KEEP YOUR BUTTONS ORGANIZED
    but of course your going to need more...

    Another Popular one is having the shotgunchester...

    Make a NEW button and name it (Winchester or whatever...)

    Add this code

    Dim shotgun As Long
    Dim shotgun1 As Long
    Call ReadALong("Warrock", &H896E28, shotgun)
    shotgun1 = shotgun + &H4C
    Call WriteALong("Warrock", shotgun1, 34)
    Somehow 34 means shotgun and theres a list from 72 but somehow all the guns dont do any damage except the winchester...
    ________________________________
    Another Good Hack is No Spreed hack

    you dont have to do this one if your fine with the above hacks... but everybody wants more.

    REMEMBER THIS HACK IS KIND OF A HASSLE

    FIRST!!!!
    Your going to Make 8 new timers!!!

    OPEN FIRST ONE AND TYPE:

    Call WriteALong("WarRock", &H90DC6F, 0)
    OPEN SECOND TIMER AND TYPE:

    Call WriteALong("WarRock", &H90DC70, 0)
    OPEN THIRD TIMER AND TYPE:

    Call WriteALong("WarRock", &H90DC71, 0)
    OPEN FOURTH TIMER AND TYPE:

    Call WriteALong("WarRock", &H90DC72, 0)
    OPEN FIFTH TIMER AND TYPE:

    Call WriteALong("WarRock", &H90DC73, 0)
    OPEN SIXTH TIMER AND TYPE:

    Call WriteALong("WarRock", &H90DC77, 0)
    OPEN SEVENTH TIMER AND TYPE:

    Call WriteALong("WarRock", &H90DC78, 0)
    OPEN EIGHTH TIMER AND TYPE:

    Call WriteALong("WarRock", &H90DC79, 0)
    2nd......
    Add a new button and name it (for example no spreed on)

    double click it and add this code:

    Timer2.Interval = 1
    Timer3.Interval = 1
    Timer4.Interval = 1
    Timer5.Interval = 1
    Timer6.Interval = 1
    Timer7.Interval = 1
    Timer8.Interval = 1
    Timer9.Interval = 1
    MAKE A NEW BUTTON AND NAME IT (of course no spreed off)

    double click that and add this code:

    Timer2.Interval = 0
    Timer3.Interval = 0
    Timer4.Interval = 0
    Timer5.Interval = 0
    Timer6.Interval = 0
    Timer7.Interval = 0
    Timer8.Interval = 0
    Timer9.Interval = 0
    THATS ALL THERE IS.... your probably thinking finally.....
    ________________________
    ANOTHER ONE THAT EVERYONE WANTS IS
    --SUPERJUMP--

    Make a new button and name it (for example Superjump)

    there is not going to be a timer for this hack

    double click that and add this code:

    Dim jump As Long
    Dim jump1 As Long
    Dim jump3 As Single
    Call ReadALong("WarRock", &H896E28, jump)
    jump1 = jump + &H180
    jump3 = 1500
    Call WriteAFloat("WarRock", jump1, jump3)
    _____________________________

    REMEMBER go to File > Save Project cause if you lose it your messed. plus if does get detected you can easily edit this one!!!!

    Then go to File > Make Project1.exe

    save it and open it when your in WarRock!!!!!!!!!!!!

    REMEBER CHANGE THE CODES BECAUSE THEY CAN BE DETECTED!!! JUST FIND ADDRESSES... IF I HAVE SOME ILL POST AND UPDATE THIS IF THIS BECOMES STICKY

  2. The Following 3 Users Say Thank You to Oneirish For This Useful Post:

    Carb0neum (05-08-2008),chubkakes (05-12-2008),harmkiller (04-15-2009)

  3. #2
    Oneirish's Avatar
    Join Date
    Mar 2008
    Gender
    male
    Location
    3Oh!3, Colorado
    Posts
    4,568
    Reputation
    876
    Thanks
    866
    My Mood
    Inspired

    Question March 21, 2008 Addresses

    March 21, 2008 addresses
    I WILL UPDATE JUST NEED TO FIND NEWER

    Player Pointer - 136A0E0


    StaminaOffset - 288
    No Recoil 1 offset - 02D8
    No Recoil 2 offset - 02DC
    No Recoil 3 offset - 02E0
    NFD offset - 260
    Superjump offset - 178

    Spawn Address 1 - 10C3A94
    Spawn Address 2 - D8C1F0
    Spawn Address 3 - 10C3A9C

    Unlock Slots - D8C958

    No Bounds 1 - D8C270
    No Bounds 2 - D8C278

    Fast Heal - B0F7B4
    Fast Repair - B0F7B8
    Fast Flag - B0F7BC
    Fast Ammo - B0F7C0

    Scope - B0F7AA

    Vechicle GPS - B0F7D1
    Player Boxes - B0F7D2

    Triggerbot - 8FB458

    AntiKick - 505495

    Esp_Addie 0x522F9D

    Headshot - 4a3604
    Neckshot - 4A3625
    Spineshot - 4A367D

    SilentWalk - 4A3651

    Unl Ammo 1 - 51E376
    Unl Ammo 2 - 51E387
    Unl Ammo 3 - 51E38D

    Invisible - 524678

    Water - 8FBF58

    OPK - 516503

    Fast As Famas - 523D03

  4. #3
    adamleslie0's Avatar
    Join Date
    Mar 2007
    Gender
    male
    Location
    Liverpool
    Posts
    198
    Reputation
    11
    Thanks
    7
    thanx for the tut man +REP there but i can already make hacks lol but i like people who dont just worry bout themselves
    +REP PLEASE
    IF YOU FEEL I HELPED YOU

    DONATE TO ME PLEASE --> adamleslie@live.co.uk

  5. #4
    Oneirish's Avatar
    Join Date
    Mar 2008
    Gender
    male
    Location
    3Oh!3, Colorado
    Posts
    4,568
    Reputation
    876
    Thanks
    866
    My Mood
    Inspired
    lol ya the tutorial was easy to write just boring to write that much...

  6. #5
    nabzta's Avatar
    Join Date
    Jan 2008
    Posts
    1
    Reputation
    10
    Thanks
    0

    wa bout hotkeys

    i dont get it
    afta u make a hak like superjump and shotgun how the hell do u use it
    so u need a hotkey so plz tell me how to make hotkey

  7. #6
    lusi92's Avatar
    Join Date
    Feb 2008
    Location
    France-Portugal or In your Bed
    Posts
    108
    Reputation
    9
    Thanks
    23
    Thanks Really! I will try XD! But i have a question:
    How can i +Rep a man ?
    Don't ban me if its stupid question XS but anxwer please

  8. #7
    Oneirish's Avatar
    Join Date
    Mar 2008
    Gender
    male
    Location
    3Oh!3, Colorado
    Posts
    4,568
    Reputation
    876
    Thanks
    866
    My Mood
    Inspired
    o to +rep you press the little R+ green square under my name youll see it.

    but about the hotkeys thing, its alittle harder... Just once you make the hack just start the game your in press the windows key to make the start menu pop up. then press the hack program you made turn on the stuff that you want and go back to then game. then it should be turned on!

  9. #8
    jeremiahg2's Avatar
    Join Date
    Oct 2007
    Posts
    136
    Reputation
    12
    Thanks
    0
    lol, onirish wana help me? my hack is always detected!!

  10. #9
    effective's Avatar
    Join Date
    Jan 2008
    Location
    slovenia
    Posts
    11
    Reputation
    10
    Thanks
    0
    i dont get it,
    u said:
    Call WriteALong("WarRock", &H7DB120, 1120403456)
    WARNING!!!! you are going to need to change "7DB120" leave &H and change "1120403456" to the current address
    you can find these addresses all over but get the current one or else it is detected and you will be banned from WarRock!!!

    where to copy that ?

    StaminaOffset - 288 (your 2nd post)

  11. #10
    Oneirish's Avatar
    Join Date
    Mar 2008
    Gender
    male
    Location
    3Oh!3, Colorado
    Posts
    4,568
    Reputation
    876
    Thanks
    866
    My Mood
    Inspired
    BTW FOR PEOPLE WHO KEEP GETTING DETECTED ITS CAUSE YOUR MODULE IS DETECTED. YOUR GOING TO NEED TO CHANGE THAT WITH A MODULE GENERATOR FOUND HERE Undetected Module Generator by ZeaS. download and type in any word. i type long ones and input the module into your cheat. when you finish that just change what you changed WriteAfloat in the generator to the code. for example

    you change WriteAFloat to asdfasdf

    then in your code change all of the WriteAFloat's into asdfasdf.

    same with the others. or else you will get an error.


    call writealong ("warrock", &hxxxxxx, xxxxxx)

    i dont know the current codes off the top of my head but the first set of xxxxxx's are the code, second set of xxxxxx's are the offset. if nothings changed with the code just change the second xxxxxx's the current offset.

  12. #11
    radnomguywfq3's Avatar
    Join Date
    Jan 2007
    Gender
    male
    Location
    J:\E\T\A\M\A\Y.exe
    Posts
    8,858
    Reputation
    381
    Thanks
    1,823
    My Mood
    Sad
    OKAY

    We get it, you don't have to have massive font size.



    There are two types of tragedies in life. One is not getting what you want, the other is getting it.

    If you wake up at a different time in a different place, could you wake up as a different person?


  13. #12
    sopola1980's Avatar
    Join Date
    Apr 2008
    Posts
    2
    Reputation
    10
    Thanks
    0
    nice byt i am new in hacks i am stupid sorry ...

  14. #13
    sopola1980's Avatar
    Join Date
    Apr 2008
    Posts
    2
    Reputation
    10
    Thanks
    0

    Exclamation

    nice byt i am new in hacks i am stupid sorry ... wer i cant lear haw too hack my english its not good byt i read..ok

  15. #14
    bloqueado93's Avatar
    Join Date
    Sep 2007
    Posts
    226
    Reputation
    10
    Thanks
    34

    mm

    i dont understand nothing of that tutorial

  16. #15
    boyd45's Avatar
    Join Date
    Apr 2008
    Gender
    male
    Location
    behind my lapt0p
    Posts
    88
    Reputation
    10
    Thanks
    20
    My Mood
    Yeehaw
    i got a question
    how can i add hotkeys in my Sj hack...
    and how i generate a undetected module
    i got zeas module maker
    so iff i fill in the text box
    writeafloat = undetected
    i need to change in my butten
    not writeafloat but undetected?

Page 1 of 2 12 LastLast

Similar Threads

  1. [Tutorial] How To Use Dragon Nest Mods [Video][Instructions]
    By xBoredom in forum Dragon Nest Mods & Modding
    Replies: 49
    Last Post: 03-20-2017, 01:48 AM
  2. Tutorial - How to use Visual Basics 6 (vb6) for WarRock "easy"
    By Oneirish in forum Programming Tutorials
    Replies: 2
    Last Post: 04-23-2008, 08:23 AM
  3. Replies: 13
    Last Post: 01-22-2008, 06:21 PM
  4. How to make checkboxes for vb6 for Warrock
    By Desymondo in forum Visual Basic Programming
    Replies: 1
    Last Post: 10-21-2007, 05:49 PM
  5. how to make checkboxes for vb6 for warrock
    By Desymondo in forum WarRock - International Hacks
    Replies: 3
    Last Post: 10-21-2007, 10:52 AM

Tags for this Thread