[HELP] Auto click

You didn't own him, you just proved you can't read. The OP asked for how to get the mouse to move to a certain color and then click. A color aimbot. In short, you're a retard.

I know how to make it trigger a mouse click event when it goes over the color but I'm afraid I can't help you with making the mouse actually move to that color. Gimme a second to write the code out for the trigger on color.

Here we go:

Open Visual Basic.
Create new project.
On the Main form, add a picture box. Name it 'p'.
Set picture box location to 0,0 on the form.
Choose Auto-Size as mode for picture box.
Choose a colorful image for the picture box.

Now create a list box on one side of the picture box and name it 'L'.
Re size the list box so it is wide enough to show some text.
Create a new button and set its text to "Choose a color".
Create a new button and set its text to "Find Closes Colors".

Goto Code of the form and declare the following:

Dim clr As Color
Dim L2 as New Listbox
Public Declare Function SetCursorPos Lib "user32"( ByVal X As Integer , ByVal Y As Integer ) As Integer


Double click the first button that is "Choose a color". The code window will open. Add the following code for its click event.

Dim x As New ColorDialog
If Not x.ShowDialog = Windows.Forms.DialogResult.Cancel Then
clr = x.Color
End If

Now Double Click the 2nd button "Find Closest Colors". In its click event add the following code:

l .Items.Clear()
l2.Items.Clear()
Dim width As Integer = p .Image.Size.Width
Dim height As Integer = p .Image.Size.Height
Dim bitmp As New Bitmap( p .Image)
For x As Integer = 0 To width - 1
For y As Integer = 0 To height - 1
Dim pixelColor As Color = bitmp.GetPixel(x, y )
If pixelColor.R = clr.R And pixelColor.G = clr.G Then
l .Items.Add(pixelColor.ToString)
If x p .Location.X Or x p .Width Or y p .Location.Y Or y p .Height Then
MsgBox( "Out of co-ordinates.")
Continue For
End If
l2.Items.Add(x & ":" & y )
End If
Next
Next


Now double-click the list-box named "L" on the form. It's SelectedIndexChanged event will be shown in the code window. Add the following code in it:

Try
If Not l .SelectedItem Is Nothing Then
Dim sp() As String = l2.Items( l .SelectedIndex).ToString.Split( ":")
SetCursorPos(sp(0),sp(1))
End If
Catch ex As Exception
End Try

Optionally, add the following code to the picturebox's MouseClick event:

Dim pix As Color = DirectCast ( p .Image,Bitmap).GetPixel( e .X - 1, e .Y - 1)
MsgBox( "RED = " & pix.R & vbCrLf & "GREEN = " & pix.G & vbCrLf & "BLUE = " & pix.B)

Run the project. Click the button and choose a color that exists in the image too. Expand the dialog box for a wide variety of custom colors. Try to choose the closest color as possible. After choosing, press the 2nd button. If it will find the chosen colors in the image too, it will add them to the listbox. After the items have been added. Click the items in the listbox, and it will take the cursor directly to the color's location in the picturebox.

This is just a start, as I don't really know what exactly you are trying to do. So, we can move on from here.
Hope this helps.

Sorry about the slow reply, I forgot about it xD

Anyways here's my code for triggering a click when mouse is over a certain color.

[REQUIREMENTS]

A timer with an interval of 1. That's it.

[php]
Option Explicit On
Imports System.Runtime.InteropServices

Friend Class Form1
Inherits System.Windows.Forms.Form
Private 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)
Private Const LEFTMOUSEUP = &H4
Private Const LEFTMOUSEDOWN = &H2

Private Sub MouseClicks()
mouse_event(LEFTMOUSEDOWN, 0, 0, 0, 0)
mouse_event(LEFTMOUSEUP, 0, 0, 0, 0)
End Sub

<StructLayout(LayoutKind.Sequential)> Private Structure POINTAPI
Dim x As Integer
Dim y As Integer
End Structure

Private Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As Integer
Private Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Integer) As Integer
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Integer, ByVal x As Integer, ByVal y As Integer) As Integer




Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 100
Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick
Dim structCursorPosition As POINTAPI
Call GetCursorPos(structCursorPosition)
Dim lColor As Integer = GetPixel(GetDC(0), structCursorPosition.x, structCursorPosition.y)

Dim c As Color = ColorTranslator.FromOle(lColor)
Dim R1, G1, B1 As Integer
R1 = c.R
G1 = c.G
B1 = c.B

If RGB(c.R, c.G, c.B) = RGB(255, 3, 3) Then ' Change the 'RGB(255, 3, 3)' to whatever color'
Call MouseClicks()
MsgBox("OMG IT WORKED") ' remove this, i was just testing'
End If


End Sub
End Class
[/php]

Hope that works for you.