Jump to content
Welcome, Guest
Existing user? Sign In

Sign In



Sign Up
The MatriX
  • Welcome To Ghbsys
  • CS GO Streaming Version is released. Have fun streaming while cheating!
  • Have a Payment Issue? Send us a Support ticket.
  • Make a thread if you need support or join our discord for live support.
  • Have Suggestions? Make a thread and you'll earn Ghbsys Points for implemented suggestions.
  • Join our discord to stay well connected! Don't forget to integrate your discord to the site
  • Welcome to [GHB] - GAmEhAcKbAsTaRdS Forum

    Welcome to [GHB] - GAmEhAcKbAsTaRdS Forum, like most online communities you must register to view or post in our community, but don't worry this is a simple free process that requires minimal information for you to signup. Be apart of [GHB] - GAmEhAcKbAsTaRdS Forum by signing in or creating an account.
    • Start new topics and reply to others
    • Subscribe to topics and forums to get email updates
    • Get your own profile page and make new friends
    • Send personal messages to other members.

    [VB8 Beginer Therad]For VB8 C&P N4Ps


    Guest neskes
     Share

    Recommended Posts

    Guest neskes

    -------------------------------------------------------

    Timer Codes

     

     

    Standart !

     

    1---NFD---		WriteFloatPointer(&HPlayer , &HOffset , -2000)
    
    2---Superjump---	If GetAsyncKeyState(17)Then
    		WriteFloatPointer(&Hplayerpointer , &Hoffset , TextBox1.Text)
    		End If
    
    3---Stamina---		WriteFloatpointer(&Hplayerpointer, &Hoffset, value) 
    
    4---NoRecoil		WriteFloatPointer(&Hppointer, &Hoff, 0)
        		WriteFloatPointer(&Hppointer, &Hoff, 0)
    		WriteFloatPointer(&Hppointer, &Hoff, 0)
    
    5---NoSpread		Writememory(&H player pointer, 0, 4)
    
    
    
    6---Zoom		WriteMemory(&HADDY, 1, 4)
    
    7---5thslot		WriteMemory(&Haddy, 4, 4)
    
    8---6thslot		WriteMemory(&Haddy, 5, 4)
    
    9---7thslot		WriteMemory(&Haddy, 6, 4)
    
    10---8thslot		WriteMemory(&Haddy, 7, 4)
    
    11---FastRepair		WriteMemory(&Haddy , 1 , 4)
    
    12---FastAmmo		WriteMemory(&Haddy , 1 , 4)
    
    13---FastHeal		WriteMemory(&Haddy, 1 , 4)
    
    14---FastFlag		WriteMemory(&Haddy, 1 , 4)
    
    15---No Water		WriteMemory(&Haddy , 0, 4)
    
    16---Inst.Spawn		Writememory(&Haddy, 0, 4) 
    		Writememory(&Haddy, 0, 4) 
    
    17---Crosshair	
    
    18---Crosshair	
    
    19---Crosshair	
    
    20---Crosshair	
    
    21---GoldPrem		
    
    22---LvLhack		WriteMemory(&HAddy, textbox1.Text , 4)
    
    23---KillHack		WriteMemory(&HAddy, textbox1.Text , 4)
    
    24---DeathHack		WriteMemory(&HAddy, textbox1.Text , 4)
    
    

    -------------------------------------------------------

     

    V!P for this pm me =) (only vip become it)

     

     

    Antikick	
    Ulm.Ammo 
    0 Delay:
    Esp Code:
    Invi
    HeadeShot			
    Shoot Through Walls
    ThilentWalk

     

     

    The Modul (Is allready DT)

     

    Module Module1
       Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
       Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
       Private Declare Function WriteFloatMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
       Private Declare Function ReadFloat Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByRef buffer As Single, ByVal size As Int32, ByRef lpNumberOfBytesRead As Int32) As Boolean
       Private Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
       Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer
       Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
       Public RBuff As Long
       Public RBuff2 As Single
       Public RBuff3 As Integer
    
       Public Function Writememory(ByVal Address As Integer, ByVal Value As Long, ByVal Bytes As Integer)
    
           Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
    
           If warrockLookUp.Length = 0 Then
    
               End
    
           End If
    
           Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
    
           WriteProcessMemory(processHandle, Address, Value, Bytes, Nothing)
    
           CloseHandle(processHandle)
    
       End Function
    
       Public Function ReadFloat(ByVal Address As Single)
    
           Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
    
           If warrockLookUp.Length = 0 Then
    
               End
    
           End If
    
           Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
    
           ReadProcessMemory(processHandle, Address, RBuff, 4, Nothing)
    
           CloseHandle(processHandle)
    
           Return RBuff
    
       End Function
    
       Public Function WriteFloat(ByVal Address As Integer, ByVal Value As Single)
    
           Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
    
           If warrockLookUp.Length = 0 Then
    
               End
    
           End If
    
           Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
    
           WriteFloatMemory(processHandle, Address, Value, 4, Nothing)
    
           CloseHandle(processHandle)
    
       End Function
    
       Public Function ReadLong(ByVal Address As Integer)
    
           Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
    
           If warrockLookUp.Length = 0 Then
    
               End
    
           End If
    
           Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
    
           ReadProcessMemory(processHandle, Address, RBuff, 4, Nothing)
    
           CloseHandle(processHandle)
    
           Return RBuff
    
       End Function
    
       Public Function ReadFloatPointer(ByVal Base As Integer, ByVal Offset As Short)
    
           Dim fullAddress As Long
    
           Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
    
           If warrockLookUp.Length = 0 Then
    
               End
    
           End If
    
           Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
    
           ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing)
    
           fullAddress = RBuff + Offset
    
           ReadFloat(processHandle, fullAddress, RBuff2, 4, Nothing)
    
           Return RBuff2
    
           CloseHandle(processHandle)
    
       End Function
    
       Public Function ReadLongPointer(ByVal Base As Integer, ByVal Offset As Short, ByVal Bytes As Integer)
    
           Dim fullAddress As Long
    
           Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
    
           If warrockLookUp.Length = 0 Then
    
               End
    
           End If
    
           Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
    
           ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing)
    
           fullAddress = RBuff + Offset
    
           ReadProcessMemory(processHandle, fullAddress, RBuff3, Bytes, Nothing)
    
           Return RBuff3
    
           CloseHandle(processHandle)
    
       End Function
    
       Public Function WriteFloatPointer(ByVal Base As Integer, ByVal Offset As Short, ByVal Value As Single)
    
           Dim fullAddress As Long
    
           Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
    
           If warrockLookUp.Length = 0 Then
    
               End
    
           End If
    
           Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
    
           ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing)
    
           fullAddress = RBuff + Offset
    
           WriteFloatMemory(processHandle, fullAddress, Value, 4, Nothing)
    
           CloseHandle(processHandle)
    
       End Function
    
       Public Function WriteLongPointer(ByVal Base As Integer, ByVal Offset As Short, ByVal Value As Long, ByVal Bytes As Integer)
    
           Dim fullAddress As Long
    
           Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
    
           If warrockLookUp.Length = 0 Then
    
               End
    
           End If
    
           Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
    
           ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing)
    
           fullAddress = RBuff + Offset
    
           WriteProcessMemory(processHandle, fullAddress, Value, Bytes, Nothing)
    
           CloseHandle(processHandle)
    
       End Function
    
       Public Function NOP(ByVal Address As Integer, ByVal value As Integer)
    
           Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
    
           If warrockLookUp.Length = 0 Then
    
               End
    
           End If
    
           Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
    
           WriteProcessMemory(processHandle, Address, value, 1, Nothing)
    
           CloseHandle(processHandle)
    
       End Function
    End Module
    

     

     

    This are u need for made hacks

     

    Coming soon

    [TuT]-How to made ud modul ! STICKY UPDATED !

    [TuT]-How to use the codes !

    [TuT]-Use the ud Modul+codes with a VB8-Source

     

    hf copypaste nubs !

    Edited by Maxn™
    Link to comment
    Share on other sites

    • Replies 64
    • Created
    • Last Reply

    Top Posters In This Topic

    Guest neskes
    lol N4p was gibste einfach meine Vip Timer Codes her -.-'

     

    ganz einfach ihr c&p nubs müsst zusammen halten !

    und wer mich veraschen tut pp

    Link to comment
    Share on other sites

    Ja ey diese "VIP Timer-Codes" dann kann die ja jeder coden

    @BlueEye

    DEINE Timercodes? diese Codes gehören niemanden der jenige der das modul geschrieben hat es veröffetlicht

    damit jeder was davon hat

     

    btw

    Wenn ich das Wort "Timercodes" höre könnte ich kotzen.

    Link to comment
    Share on other sites

    • 3 weeks later...
    Ja ey diese "VIP Timer-Codes" dann kann die ja jeder coden

    @BlueEye

    DEINE Timercodes? diese Codes gehören niemanden der jenige der das modul geschrieben hat es veröffetlicht

    damit jeder was davon hat

     

    btw

    Wenn ich das Wort "Timercodes" höre könnte ich kotzen.

     

    Inzwischen sind fast alle Codes Public. Aber die PB Sperre ownd sie alle xD

    Link to comment
    Share on other sites

    • 5 weeks later...

    lawl ( Im too stupid to write "lol" ) ( Im too stupid to write "lol" ) ( Im too stupid to write "lol" ) ( Im too stupid to write "lol" )

    Link to comment
    Share on other sites

    • 3 weeks later...
    • 4 weeks later...
    • 3 weeks later...
    • 2 weeks later...
    nice

     

     

     

    -------------------------------------------------------

    Timer Codes

     

     

    Standart !

     

    [ Hidden part. View original post. ]

    -------------------------------------------------------

     

    V!P for this pm me =) (only vip become it)

     

     

    Antikick	
    Ulm.Ammo 
    0 Delay:
    Esp Code:
    Invi
    HeadeShot			
    Shoot Through Walls
    ThilentWalk

     

     

    The Modul (Is allready DT)

     

    Module Module1
       Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
       Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
       Private Declare Function WriteFloatMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
       Private Declare Function ReadFloat Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByRef buffer As Single, ByVal size As Int32, ByRef lpNumberOfBytesRead As Int32) As Boolean
       Private Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
       Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer
       Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
       Public RBuff As Long
       Public RBuff2 As Single
       Public RBuff3 As Integer
    
       Public Function Writememory(ByVal Address As Integer, ByVal Value As Long, ByVal Bytes As Integer)
    
           Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
    
           If warrockLookUp.Length = 0 Then
    
               End
    
           End If
    
           Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
    
           WriteProcessMemory(processHandle, Address, Value, Bytes, Nothing)
    
           CloseHandle(processHandle)
    
       End Function
    
       Public Function ReadFloat(ByVal Address As Single)
    
           Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
    
           If warrockLookUp.Length = 0 Then
    
               End
    
           End If
    
           Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
    
           ReadProcessMemory(processHandle, Address, RBuff, 4, Nothing)
    
           CloseHandle(processHandle)
    
           Return RBuff
    
       End Function
    
       Public Function WriteFloat(ByVal Address As Integer, ByVal Value As Single)
    
           Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
    
           If warrockLookUp.Length = 0 Then
    
               End
    
           End If
    
           Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
    
           WriteFloatMemory(processHandle, Address, Value, 4, Nothing)
    
           CloseHandle(processHandle)
    
       End Function
    
       Public Function ReadLong(ByVal Address As Integer)
    
           Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
    
           If warrockLookUp.Length = 0 Then
    
               End
    
           End If
    
           Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
    
           ReadProcessMemory(processHandle, Address, RBuff, 4, Nothing)
    
           CloseHandle(processHandle)
    
           Return RBuff
    
       End Function
    
       Public Function ReadFloatPointer(ByVal Base As Integer, ByVal Offset As Short)
    
           Dim fullAddress As Long
    
           Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
    
           If warrockLookUp.Length = 0 Then
    
               End
    
           End If
    
           Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
    
           ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing)
    
           fullAddress = RBuff + Offset
    
           ReadFloat(processHandle, fullAddress, RBuff2, 4, Nothing)
    
           Return RBuff2
    
           CloseHandle(processHandle)
    
       End Function
    
       Public Function ReadLongPointer(ByVal Base As Integer, ByVal Offset As Short, ByVal Bytes As Integer)
    
           Dim fullAddress As Long
    
           Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
    
           If warrockLookUp.Length = 0 Then
    
               End
    
           End If
    
           Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
    
           ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing)
    
           fullAddress = RBuff + Offset
    
           ReadProcessMemory(processHandle, fullAddress, RBuff3, Bytes, Nothing)
    
           Return RBuff3
    
           CloseHandle(processHandle)
    
       End Function
    
       Public Function WriteFloatPointer(ByVal Base As Integer, ByVal Offset As Short, ByVal Value As Single)
    
           Dim fullAddress As Long
    
           Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
    
           If warrockLookUp.Length = 0 Then
    
               End
    
           End If
    
           Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
    
           ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing)
    
           fullAddress = RBuff + Offset
    
           WriteFloatMemory(processHandle, fullAddress, Value, 4, Nothing)
    
           CloseHandle(processHandle)
    
       End Function
    
       Public Function WriteLongPointer(ByVal Base As Integer, ByVal Offset As Short, ByVal Value As Long, ByVal Bytes As Integer)
    
           Dim fullAddress As Long
    
           Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
    
           If warrockLookUp.Length = 0 Then
    
               End
    
           End If
    
           Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
    
           ReadProcessMemory(processHandle, Base, RBuff, 4, Nothing)
    
           fullAddress = RBuff + Offset
    
           WriteProcessMemory(processHandle, fullAddress, Value, Bytes, Nothing)
    
           CloseHandle(processHandle)
    
       End Function
    
       Public Function NOP(ByVal Address As Integer, ByVal value As Integer)
    
           Dim warrockLookUp As Process() = Process.GetProcessesByName("WarRock")
    
           If warrockLookUp.Length = 0 Then
    
               End
    
           End If
    
           Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, warrockLookUp(0).Id)
    
           WriteProcessMemory(processHandle, Address, value, 1, Nothing)
    
           CloseHandle(processHandle)
    
       End Function
    End Module
    

     

     

    This are u need for made hacks

     

    Coming soon

    [TuT]-How to made ud modul ! STICKY UPDATED !

    [TuT]-How to use the codes !

    [TuT]-Use the ud Modul+codes with a VB8-Source

     

    hf copypaste nubs !

    Link to comment
    Share on other sites

    • 4 weeks later...
    Guest
    This topic is now closed to further replies.
     Share

    • Recently Browsing   0 members

      • No registered users viewing this page.

    ×
    ×
    • Create New...