How do i make a program that would click colors

I found out how to do it, i made 4 programs so far, ill release soon.

 

http://www.sythe.org/showthread.php?t=360930&highlight=Findcolor

 

there is alot of custom functions i have seen in forums you should maybe see if cruels lib (cruels.net) is still about i think that had everything you should need,

i kno back in the day TerrenKiller had some sweet movemouse & mousecurve functions in his forums if there still about i dont know

also read up on the Script control very intresting

 

I wouldn't use the findcolor in the link. It works if you want to do something basic, but if you want to code anything more advanced you'll need a decent function.

I'm on a Mac right now so I obviously don't have access to my old vb stuff, but in a while if I have time I will unearth some functions I wrote back in the day and post them here.

Oh and if you want it to be reeeallly easy you should switch to delphi. I love using scanlines.

 

Im really new to coding with mouse movements, and stuff, so can someone really make it basic for me, just a simple source code for color clicking would be nice.

Thanks

 

Read the second post of this thread... wow..

 

Id did, i dont know if i need CruelLib.dll, and if i do, i dont know how to add it, i dont know were to put the codes, and if i need a button or not.

Can someone just make it easy for me?

 

You do not need the dll for that code.

You need to start with simpler stuff (even though this seems extremely basic to me..) if you don't know the answer to those questions.

No one is going to just do all the work for you. This is one of the easiest languages ever, so I think you could figure it out if you spent the time.

 

i know you already found it but im going to post the code i use anyway

Code:

Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" ( _
    ByVal hwnd As IntPtr, _
    ByVal wMsg As Int32, _
    ByVal wParam As Int32, _
    ByVal lParam As Int32) As Int32
    Public Declare Function WindowFromPoint Lib "user32" ( _
    ByVal stPoint As Point) As IntPtr
    Public Const WM_LBUTTONDOWN = &H201
    Public Const WM_LBUTTONUP = &H202
    Function ScreenshotForm() As Bitmap
        Dim bmp As New Bitmap(Me.Width, Me.Height)
        Using g As Graphics = Graphics.FromImage(bmp)
            g.CopyFromScreen(Me.Location, Point.Empty, Me.Size)
        End Using

        Return bmp
    End Function
    Private Sub MoveMousetoPixel(ByVal Clr As Color)
        Dim BMP As Bitmap = ScreenshotForm()

        For x As Integer = 1 To BMP.Width - 1
            For y As Integer = 1 To BMP.Height - 1
                If BMP.GetPixel(x, y).ToArgb = Clr.ToArgb Then
                    ax.Text = x + Me.Location.X
                    Ay.Text = y + Me.Location.Y
                    Exit Sub
                End If
            Next
        Next
    End Sub