VB.net Color Aimbot

**lucasheer715** · 05-03-2013

I was researching color/pixel aim bots in visual basic, and i put together a quick aim bot of what i found. This is currently working for crossfire, but it is slow and i do not have the correct color for head listed in code. (I will have it shown in code snippet)
If you have a 32 bit system then u can use (getasynvkeystate)

Code:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

(This code is undetectable.....)

Requirements (everything is done in form_load)
2 timers
2 buttons

Timer1 Code :

Code:

Dim screensize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
        Dim screenshot As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
        Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(screenshot)
        g.CopyFromScreen(New Point(0, 0), New Point(0, 0), screensize)
        Dim pointx As Integer = 1
        Dim pointy As Integer = 1
        Dim looking As Boolean = True
        Try
            While looking = True
                Dim atpoint As Color = screenshot.GetPixel(pointx, pointy)
                Dim red As Color = Color.FromArgb(255, 217, 59, 73) 'does not work with crossfire
                If atpoint = red Then
                    Cursor.Position = New Point(pointx, pointy)
                    looking = False
                    pointx = 1
                    pointy = 1
                End If

                pointy = pointy + 1
                If pointy = My.Computer.Screen.Bounds.Height Then
                    pointy = 0
                    pointx = pointx + 1
                End If

            End While
        Catch ex As Exception
        End Try

Timer2 Code:

Code:

Dim screensize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
        Dim screenshot As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
        Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(screenshot)
        g.CopyFromScreen(New Point(0, 0), New Point(0, 0), screensize)
        Dim pointx As Integer = 1
        Dim pointy As Integer = 1
        Dim looking As Boolean = True
        Try
            While looking = True
                Dim atpoint As Color = screenshot.GetPixel(pointx, pointy)
                Dim red As Color = Color.FromArgb(255, 217, 59, 73) 'does not work with crossfire
                If atpoint = red Then
                    Cursor.Position = New Point(pointx, pointy)
                    looking = False
                    pointx = 1
                    pointy = 1
                End If

                pointy = pointy + 1
                If pointy = My.Computer.Screen.Bounds.Height Then
                    pointy = 0
                    pointx = pointx + 1
                End If

            End While
        Catch ex As Exception
        End Try

Button1 Code:

Code:

 Timer1.Start()
        Timer2.Start()

Button2 Code:

Code:

Timer1.Stop()
        Timer2.Stop()

Form Code:

Code:

 Timer1.Interval = 1
        Timer2.Interval = 1
        Timer1.Enabled = False
        Timer2.Enabled = False
        Button1.Text = "on"
        Button2.Text = "off"

This is done in Visual basic 2010 64 bit, if this doesn't work for u please ask questions.

BTW: I made duel timers which makes it faster but only do 1 if your computer is slow.