VB.net Color Aimbot

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.

Nice tutorial!

thanks, i had help from a friend with the code a lil bit

You can use this image for aimbot color

Can you sey me the Pixel ?

nice tut thanks

Originally Posted by CoderCf

Can you sey me the Pixel ?

no sorry, i dont have then pixel, but im working on it cause i can only find red, green, and blue. (if i find it i will give code)

Thx

can use to other games

Originally Posted by nwouh

can use to other games

yep, i use rgb color finder, works great

VB.net Color Aimbot

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.

Nice tutorial!

thanks, i had help from a friend with the code a lil bit

You can use this image for aimbot color

Can you sey me the Pixel ?

nice tut thanks

Originally Posted by CoderCf

Can you sey me the Pixel ?

no sorry, i dont have then pixel, but im working on it cause i can only find red, green, and blue. (if i find it i will give code)

Thx

can use to other games

Originally Posted by nwouh

can use to other games

yep, i use rgb color finder, works great

VB.net Color Aimbot

Post a Reply

Similar Threads

Tags for this Thread

VB.net Color Aimbot

Post a Reply

Similar Threads

Tags for this Thread