Thread: VB6 Aimbot code

Page 1 of 2 12 LastLast
Results 1 to 15 of 25
  1. #1
    harlcreeds's Avatar
    Join Date
    Jul 2012
    Gender
    male
    Location
    system32
    Posts
    97
    Reputation
    10
    Thanks
    503
    My Mood
    Angry

    Post VB6 Aimbot code

    I release a some pointers on Aimbot coded in VB6, someone who can help me to do this in a right way.. takes 1 month of doing this still confusing.
    The program is running no error. but it seems not really functioning properly

    form main:
    Code:
    Option Explicit
    
    Dim ProcessHandle As Long, ProcessDC As Long
    
    Private Sub Form_Activate()
    ProcessHandle = FindWindow(vbNullString, "ava.exe")
    ProcessDC = GetDC(0)
    
    End Sub
    
    Private Sub Form_Unload(Cancel As Integer)
    Call ReleaseDC(0, ProcessDC)
    End Sub
    
    Private Sub Timer1_Timer()
    On Error Resume Next
    
    Dim X As Long, Y As Long, PixelColor As Long
    Dim CursorPosition As Point
    
    If (ProcessHandle <> GetForegroundWindow()) Then
    Exit Sub
    End If
    
    Call GetCursorPos(CursorPosition)
    
    For X = CursorPosition.X - 20 To CursorPosition.X + 20
    For Y = CursorPosition.Y - 20 To CursorPosition.Y + 20
    PixelColor = GetPixel(ProcessDC, X, Y)
    
    'Replace RGB value for your specified color
    If (PixelColor = RGB(255, 255, 255)) Then
    Call mouse_event(MOUSEEVENTF_LEFTDOWN, CursorPosition.X, CursorPosition.Y, 0, 0)
    Exit Sub
    End If
    Next Y
    Next X
    End Sub
    User32:

    Code:
    Option Explicit
    
    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Public Declare Function GetForegroundWindow Lib "user32" () As Long
    Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
    Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
    Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
    Public Declare Function GetCursorPos Lib "user32" (lpPoint As Point) As Long
    Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
    
    Public Const MOUSEEVENTF_LEFTDOWN = &H2
    
    Public Type Point
    X As Long
    Y As Long
    End Type:
    hope i fix this at the end of the month

  2. The Following 4 Users Say Thank You to harlcreeds For This Useful Post:

    Frought (10-10-2012),matan_e19 (10-20-2012),punisher54 (10-11-2012),soulnite12 (10-20-2012)

  3. #2
    matchboy7's Avatar
    Join Date
    Sep 2011
    Gender
    male
    Location
    United Kingdom
    Posts
    324
    Reputation
    8
    Thanks
    1,089
    My Mood
    Amazed
    Great :P Hope someone will try to use this and Aeria will be dead even moar Great work thou. +rep

  4. #3
    DarkSt0rmX's Avatar
    Join Date
    Sep 2011
    Gender
    male
    Location
    Dragonball GT
    Posts
    1,217
    Reputation
    19
    Thanks
    1,372
    My Mood
    Relaxed
    @Jabberwo0ck check here

     
    Skype: vituzzzu21

     
    Quote Originally Posted by Nuuma View Post
    he added me amd65 i got it , legit guy i vouch him
    Quote Originally Posted by .Cereal View Post
    People these 3 guys are trusted and safe, no harm for you .
    Quote Originally Posted by Kailani View Post
    thanks for gun adding for me
    Quote Originally Posted by kurtdampire View Post
    Really fast ! I vouch for this guy. Thanks again.
    Quote Originally Posted by GtxRive123 View Post
    THIS GUY IS SO LEGIT.! HE DOES THE GUNADD SO FAST.! HE IS 100% LEGIT no SCAM.!! Fastest gunadder in MPGH.NET in my oppinion I VOUCH FOR HIM !
    Quote Originally Posted by FreaZzer View Post
    Thanks for adding ! He's legit and fast !

  5. #4
    Jabberwock's Avatar
    Join Date
    Jun 2012
    Gender
    male
    Posts
    1,655
    Reputation
    191
    Thanks
    14,466
    My Mood
    Relaxed
    This one is color based. Unless you have chams made to the game you can't use this.
    Even familiar landscapes will
    reveal a different kind of beauty
    if you change your viewpoint.
    Where these new encounters
    and new bonds will lead you...
    Such dazzling golden days.
    I, too, look forward to
    what I might behold.

    Everything depends on you friend. Be strong don't give up. Don't let the sadness hurt you. Be strong and prevail!

  6. #5
    dirtjumpermike's Avatar
    Join Date
    Apr 2012
    Gender
    male
    Posts
    208
    Reputation
    10
    Thanks
    37
    My Mood
    Cool
    try to get the pixel colour of a screen shot and add the pixel address you might be able to get it to work that way
    things im working on

    colour aimbot (possibly wireframe aimbot)
    finding a bypass for GameGuard (with constant updates)
    wallhack
    OPK

  7. #6
    dkdamian21's Avatar
    Join Date
    Jan 2012
    Gender
    male
    Posts
    76
    Reputation
    10
    Thanks
    1
    My Mood
    Bored
    Guys try making dll hack a aimbot dll hack thanks if you do i love u!

  8. #7
    jkljkl218's Avatar
    Join Date
    Jan 2012
    Gender
    male
    Posts
    127
    Reputation
    10
    Thanks
    6
    My Mood
    Aggressive
    ohhh wow lul.. took you guys long enough XD I made chams, aimbot, wallhack, no recoil/spread, rapid fire.. o-o although I will not release it :3

  9. #8
    dacoolnic12345678910's Avatar
    Join Date
    Jul 2012
    Gender
    male
    Location
    U.S
    Posts
    120
    Reputation
    10
    Thanks
    45
    My Mood
    Cheerful
    show a video then.....

  10. #9
    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 dacoolnic12345678910 View Post
    show a video then.....
    Do not even ask for that.
    Those guy's are called Leechers, they claim to create anything.
    BACK TO MPGH.NET

  11. #10
    dacoolnic12345678910's Avatar
    Join Date
    Jul 2012
    Gender
    male
    Location
    U.S
    Posts
    120
    Reputation
    10
    Thanks
    45
    My Mood
    Cheerful
    probably true
    Quote Originally Posted by awesomegamer1222 View Post
    Do not even ask for that.
    Those guy's are called Leechers, they claim to create anything.

  12. #11
    rhenen3's Avatar
    Join Date
    Jul 2012
    Gender
    male
    Posts
    234
    Reputation
    10
    Thanks
    164
    where to add these codes?

  13. #12
    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 rhenen3 View Post
    where to add these codes?
    If your experienced with Visual Basic 6, you should know that.
    This aimbot is not finished yet.
    It's up to us if we want to finish it.
    BACK TO MPGH.NET

  14. #13
    se7enthsin's Avatar
    Join Date
    Jun 2011
    Gender
    male
    Posts
    1,069
    Reputation
    31
    Thanks
    270
    My Mood
    Amused
    well
    if
    we
    do
    then
    we
    will
    be
    the
    first
    non
    pay
    to
    site
    that
    has
    ava
    aim
    bot


    kool
    MMOVIPER SUPPORT GURU


  15. #14
    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
    well
    if
    we
    do
    then
    we
    will
    be
    the
    first
    non
    pay
    to
    site
    that
    has
    ava
    aim
    bot


    kool
    Please don't write like that, it's annoying.
    BACK TO MPGH.NET

  16. #15
    se7enthsin's Avatar
    Join Date
    Jun 2011
    Gender
    male
    Posts
    1,069
    Reputation
    31
    Thanks
    270
    My Mood
    Amused
    Quote Originally Posted by awesomegamer1222 View Post
    Please don't write like that, it's annoying.
    lmao. sorry, i was high at the time.
    MMOVIPER SUPPORT GURU


Page 1 of 2 12 LastLast

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