Thread: VB6 Aimbot code

Page 2 of 2 FirstFirst 12
Results 16 to 25 of 25
  1. #16
    awesomegamer1222's Avatar
    Join Date
    Jul 2012
    Gender
    male
    Location
    's-Hertogenbosch
    Posts
    281
    Reputation
    13
    Thanks
    281
    My Mood
    Inspired
    Quote Originally Posted by se7enthsin View Post
    lmao. sorry, i was high at the time.
    They all say that
    BACK TO MPGH.NET

  2. #17
    soulnite12's Avatar
    Join Date
    May 2012
    Gender
    male
    Posts
    573
    Reputation
    21
    Thanks
    444
    My Mood
    Daring
    well fellas we better start making some aimbots for ava.I need to finish the source code when i do well boys we be first site ever to make a free ava aimbot.
    it might take a while cause i kind of busy but i made one for another site already that selling it so i can make one here

  3. #18
    emaniu's Avatar
    Join Date
    Jul 2012
    Gender
    male
    Posts
    98
    Reputation
    10
    Thanks
    8
    My Mood
    Brooding
    how use this please..............

    =D

  4. #19
    jkljkl218's Avatar
    Join Date
    Jan 2012
    Gender
    male
    Posts
    127
    Reputation
    10
    Thanks
    6
    My Mood
    Aggressive
    Quote Originally Posted by dacoolnic12345678910 View Post
    probably true
    I make my own hacks I left ava long ago
    Plus a guy in youtube named FleepHacks
    helped me study C++ and other stuff
    along with cheat engine
    I am currently helping people make hacks for
    Tribes Ascend and as of right I am working
    on infinite fractals... I will not post any
    video of my private hacks nor
    any codes... I am using a memory aimbot
    ... first one i made was a color base aimbot
    although it stopped working after the patch
    so i changed to memory aimbot..
    it took me a while to make but it was fun

  5. #20
    hunt3rh3ad's Avatar
    Join Date
    Oct 2012
    Gender
    male
    Posts
    33
    Reputation
    10
    Thanks
    0
    lol you guys just fk up ariea games like this.hahahahaha

  6. #21
    harlcreeds's Avatar
    Join Date
    Jul 2012
    Gender
    male
    Location
    system32
    Posts
    97
    Reputation
    10
    Thanks
    503
    My Mood
    Angry
    Quote Originally Posted by Jabberwo0ck View Post
    This one is color based. Unless you have chams made to the game you can't use this.
    yeah, I'm working on memory based right now.

    Code:
    Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
    
    Private Declare Function GetWindowThreadProcessId Lib "User32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
    Private 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
    Private 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
    Private 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 WriteByte(Offset As Long, Value As Byte) As Boolean
    
        Dim hwnd As Long
        Dim ProcessID As Long
        Dim ProcessHandle As Long
        
        hwnd = FindWindow(vbNullString, "")
        
        If hwnd = 0 Then
            
            Exit Function
        
        End If
        
        GetWindowThreadProcessId hwnd, ProcessID
        
        ProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, ProcessID)
        
        If ProcessHandle = 0 Then
            
            Exit Function
        
        End If
        
        WriteProcessMemory ProcessHandle, Offset, Value, 1, 0&
        
        CloseHandle ProcessHandle
        
    End Function
    
    
    Public Function ReadInteger(Offset As Long) As Integer
    
        Dim hwnd As Long
        Dim ProcessID As Long
        Dim ProcessHandle As Long
        Dim Value As Integer
        
        hwnd = FindWindow(vbNullString, "")
        
        If hwnd = 0 Then
            
            Exit Function
        
        End If
        
        GetWindowThreadProcessId hwnd, ProcessID
        
        ProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, ProcessID)
        
        If ProcessHandle = 0 Then
    
            Exit Function
            
        End If
        
        ReadProcessMem ProcessHandle, Offset, Value, 2, 0&
        
        ReadInteger = Value
        
        CloseHandle ProcessHandle
        
    End Function
    
    Public Function WriteInteger(Offset As Long, Value As Integer) As Boolean
    
        Dim hwnd As Long
        Dim ProcessID As Long
        Dim ProcessHandle As Long
        
        hwnd = FindWindow(vbNullString, "")
        
        If hwnd = 0 Then
        
            Exit Function
        
        End If
        
        GetWindowThreadProcessId hwnd, ProcessID
        
        ProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, ProcessID)
        
        If ProcessHandle = 0 Then
        
            Exit Function
            
        End If
        
        WriteProcessMemory ProcessHandle, Offset, Value, 2, 0&
        
        CloseHandle ProcessHandle
        
    End Function
    Last edited by harlcreeds; 10-21-2012 at 03:20 PM.

  7. #22
    KoKo1992's Avatar
    Join Date
    Nov 2012
    Gender
    male
    Posts
    4
    Reputation
    10
    Thanks
    0
    can i download this aimbot anywhere??

  8. #23
    Prepix's Avatar
    Join Date
    Jun 2012
    Gender
    male
    Posts
    5,965
    Reputation
    117
    Thanks
    1,374
    Quote Originally Posted by KoKo1992 View Post
    can i download this aimbot anywhere??
    No, it's a source code, you need to develop it by yourself.

  9. #24
    dacoolnic12345678910's Avatar
    Join Date
    Jul 2012
    Gender
    male
    Location
    U.S
    Posts
    120
    Reputation
    10
    Thanks
    45
    My Mood
    Cheerful
    hhahahahaahha someones a noob
    Quote Originally Posted by KoKo1992 View Post
    can i download this aimbot anywhere??

  10. #25
    moutonkiller's Avatar
    Join Date
    Jul 2012
    Gender
    male
    Posts
    171
    Reputation
    10
    Thanks
    905
    ah , this can be good

Page 2 of 2 FirstFirst 12

Similar Threads

  1. VB6 Vip codes!
    By oualidf3 in forum WarRock - International Hacks
    Replies: 0
    Last Post: 01-23-2009, 12:32 PM
  2. I need aimbot codes PLEASE
    By eskimo123321 in forum General Hacking
    Replies: 2
    Last Post: 08-04-2008, 08:33 PM
  3. [TUT] arnold's hack v1.1 vb6 source code
    By arnold in forum WarRock - International Hacks
    Replies: 6
    Last Post: 07-11-2008, 11:36 PM
  4. Vb6 hacks / codes
    By hansschwanz in forum Visual Basic Programming
    Replies: 4
    Last Post: 04-30-2008, 05:53 PM
  5. Again Problem With Vb6 Swim Code
    By jokuvaan11 in forum WarRock - International Hacks
    Replies: 12
    Last Post: 06-09-2007, 06:26 PM